• ベストアンサー

VBで文字検索

ＶＢで文字列検索するとき たとえば 借り物商品001,1 仕入商品005,3 上記のようなテキストがあったとき sWk(1) = 借り物商品001 sNo(1) = 5 sWk(2) = 仕入商品005 sNo(2) = 3 上記のように.(カンマ)の前後で項目を分けたいのですが MidやLen関数を使ってもうまくいきません 全角半角が混在のせいで文字数は取れるのですがMid関数がうまくできないのです ＶＢ初心者のためこんなことで悩んでます どうかよいアドバイスお願いします

  • Geek
  • お礼率32% (9/28)

質問者が選んだベストアンサー

  • ベストアンサー
  • Kuppycat
  • ベストアンサー率50% (109/216)
回答No.4

Splitを使うこんな方法もあります。 Dim sWk(2) Dim sNo(2) Dim strText$ Dim tmp strText = "借り物商品001,1" tmp = Split(strText,",") If IsArray(tmp) Then 　sWk(1) = tmp(0) 　sNo(1) = tmp(1) End If 手元に詳細な資料が無いので、詳しくはヘルプを参照してください（＾＾；

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (3)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.3

split関数が最適だと思います。 Sub test01() a = "借り物商品001,1" b = Split(a, ",") For i = 0 To UBound(b) MsgBox b(i) Next i End Sub をご参考にして見てください。

Geek
質問者

お礼

即答ありがとうございます そんなやり方もあるのですね 参考になりました また、何かありましたらお願いします

全文を見る
すると、全ての回答が全文表示されます。
  • BLUEPIXY
  • ベストアンサー率50% (3003/5914)
回答No.2

確かMID関数って全角半角を認識していたと思います。 カンマのある位置 pos=instr(str,",") 左部分 left(str,pos-1) 右部分 mid(str,pos+1,len(str)-pos) でできるとおもうのですが

全文を見る
すると、全ての回答が全文表示されます。
  • taka_tetsu
  • ベストアンサー率65% (1020/1553)
回答No.1

InStr()でカンマや改行の位置を検索してLeft()やMid()で切り出す。 文字数で行えば、全角半角の区別をする必要なし。

Geek
質問者

お礼

即答ありがとうございます 簡単なことでしたが大変参考になりました また、何かありましたらお願いします

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 半角／全角文字混在データの分割方法

    ＶＢ６．０にて、あるデータ項目の内容を、画面上の２つの表示領域に分割して セットする方法を教えて下さい。 あるファイルの項目として、「住所」という項目があるとします。 このデータを取得し、画面に表示する際に、「住所１」「住所２」とに分割して、 セットします。 この場合、ファイル上の「住所」は、キャラクタタイプで４０バイトと定義されており、 ”半角／全角文字混在”でデータが格納されています。 画面上の、「住所１」「住所２」はそれぞれ、２０バイトとします。 この様な条件で、単純に取得したデータを２分割すると、 取得したデータが、全て半角か全角なら問題はないのですが、 例えば、１文字目が半角で、以降が全て全角文字だった場合に、 最後の全角文字がぴったり収まらなくなり、うまく表示できないように思います。 また、文字を取得する際に、使用している、Mid(MidB)関数やLen(LenB)関数も、 うまく利用できていないようです。（コード体系の違いでしょうか？） どなたかご教授下さい。 よろしくお願いします。

  • Excelで22バイトの文字を数えたい

    Excel2002です。 VBAでセルの文字列を取得する時に全角制御文字（2バイト）を含めて22バイトの制限を考慮したいのですがその方法がわかりません。 全角文字だけなら10文字、　 半角文字だけなら22文字の取得ができます。 その後の作業の都合上、22バイトを基準に条件判断したいのですが現在はその方法がわからないためLEN()で10を上限としています。LENB()でも同じ結果（文字数が返される）になります。 対象のセルには全角文字/半角文字が混在しており、全角-半角-全角-半角のような混在であれば制御文字を２回考慮する必要があります。 最悪その文字が全角か半角かの区別がつけば対応できると思います。 よい方法をご教授いただきたくお願いいたします。

  • 文字の判定

    　こんばんわ。早速ですが、ＶＢにおいて入力、又は取り込んできたデータの文字（１文字）が全角文字（漢字・ひらがな・全角スペース等）か半角文字（半角カタカナ・半角スペース等）かをみわける関数ってあるのでしょうか？

  • 全角文字と半角文字を判別して文字列を追加

    全角文字と半角文字が混合している文字列に文字を追加するプログラムを考えています。 仕様としては全角から半角に変わる際には全角文字の後ろに1234を、 半角から全角に変わるときは半角文字の後ろに4321をつけるというものです。 例１　文字列が「あxxxお」ならば出力結果は「あ1234xxx4321お」 そこで質問なのですが 文字列から全角文字と半角文字をプログラム上で判別して 上記のように出力するにはどうしたらいいんでしょうか？ ヒント等ございましたらどうぞお願いします。 とりあえず作ってみた例１の結果を無理やり出力するプログラムのコードを載せておきます。 こちらをうまく改変してくださっても結構ですのでよろしくお願いいたします。 #include <stdio.h> #include <string.h> int main(void){ unsigned char str0[256] = "あxxxお", str1[256] = "1234",str2[256]= "4321"; unsigned int zh,hz, len0 = strlen(str0),len1=strlen(str1),len2=strlen(str2); printf("挿入前：%s\n",&str0); zh=2; //全角から半角に変わる位置 hz=5; //半角から全角に変わる位置 //1234を挿入/// memmove(&str0[zh+len1], &str0[zh], len0 - zh+1); memcpy(&str0[zh], str1, len1); //4321を挿入/// memmove(&str0[hz+len1+len2], &str0[hz+len1], len0); memcpy(&str0[hz+len1], str2, len2); printf("挿入後：%s\n",&str0); return 0; }

  • 全角・半角混在の文字列から半角文字のみ取り出す

    エクセル勉強中です。問題集で理解できないところがあります。 数式がどういう意味をもつのか教えて頂けるとありがたいです。 よろしくお願いします。 画像添付の問題になります。 A列に製品名が入っています。（製品番号：半角文字）（製品名：全角文字） B列に半角文字の製品番号だけを取り出しなさいというものです。 半角文字の開始位置がバラバラになっているところが問題のポイントになっています。 回答ですが B2： =MID(A2,MATCH(1,INDEX(LENB(MID(A2,COLUMN(2:2),1))*1,0),),LEN(A2)*2-LENB(A2)) こちらで半角文字のみ取り出せるようです。回答には数式のみで何故この関数を使うのか？ 使うことでどういった結果を導くなどの解説が一切ありません。（ちなみに出版会社の便利技的な問題集です） MID関数で製品名A2から開始位置を指定して、全角半角をLEN関数LENB関数で半角文字数を 算出して文字列を抽出するという事は理解できます。 ただ、この開始位置の指定の所が理解できません。 数式を分割してみましたが =MID(A2,COLUMN(2:2),1)の所はどの行も製品名の１文字目ですよね・・・ その値にLENB関数で文字数？ 数式の検証で見てみると配列のような結果が次々と現れて・・・ MATCH関数もありますしINDEX関数が何か関係しているような気はしているのですが、 INDEX関数と言えば配列に行番号・列番号と例えば表の該当するセルの位置抽出の 知識しかありません。一つのセルでINDEX関数？ すいません。独学で勉強していてこの程度の知識ですが、この数式の考え方教えてくださる方よろしくお願いします。

  • カンマ区切りのデータを処理する方法

    よろしくお願いします。 vb6.0 + oracle9i(oo4o)で開発しています。 元データの中には、カンマ区切り形式で全角・半角・ブランクありの可変長です。（テキストデータではありません） 例えば、 111bb,22222,333333,44ｂｂ 11,234ｂｂ,33ｂｂ,44　　　　　見たいなデータです。 カンマの数は変わりませんし、各項目自体にカンマはありえません。 この各項目を個々に取り込んで処理したいのですが．．． MID関数(MID$,MIDB)など色々試してみるのですが 対応しきれなくなってしまいました。 各項目に対してTRIMをかけて処理をしたいのですが、 良い方法はあるのでしょうか？ カンマ間を一つの項目として判断でき、 TRIMがかけれれば一番よいのですが... 文字を一文字ずつ読んでいって、カンマを判断するしかないのでしょうか？

  • excｅlシート内で半角文字を検索したい

    win2000　excel97です 住所リストを加工したいのですが半角全角混在しています その後の処理の問題があり 半角←→全角の置換をせずに半角文字を検索し その列にフラグを立てたいのですが 半角文字を見つける方法がわかりません どなたかご存知でしたらお教えください よろしくお願いいたします

  • エクエル/ASCで半角化すると文字数が増える！？

    エクセル200です。 全角カタカナで濁点や半濁点があるものをASC関数で半角化すると、文字数が増えます！？ たとえば =LEN("パパ")　は2を返しますが、=LEN(ASC("パパ"))　は4を返します。 なぜなの？

  • 全角半角あわせて3文字

    全角半角が混在している文字列の左から3文字を取得したい場合にいい方法はないでしょうか？ mb_substr関数で第3パラメータはバイト数で指定するようです。 関数リファレンスでは「最大文字数」って表現になってます。 http://php.net/manual/ja/function.mb-substr.php 半角なら文字数=バイト数ですが、全角だと指定の半分の文字数になります。 最大だから間違ってはないですが、文字数じゃないよな‥‥っていつも思ってます。 いったん半角→全角にして、6バイト分を切り出すのはできます。 でも、英数字も全角半角混在してるので元の文字列を壊したくないのです。 mb_substrの第3パラメータを6から3まで、mb_strlenが3になるまで回すのもやってみました。 でも、なんかスマートじゃないんですよ‥‥。 なにかこう、スマートないい手はないでしょうか？ よろしくお願いします。

    • ベストアンサー
    • PHP
  • 半角文字を全角文字に

    エクセル上で半角・全角文字が混在したデータを 数字は半角数字に、それ以外は全角文字にしたいのです。 教えてgooのwinのカテゴリーで似た質問をいくつか見つけたので、 試してみたのですが、JIS関数で全て全角にすることさえもできません。 やり方が悪いのでしょうか？それともmacでは無理なのでしょうか？ 環境はOS9、Microsoft Excel（Microsoft Office 98）を使用しています。 エクセルは素人です。どうぞよろしくお願いします。

    • ベストアンサー
    • Mac

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する