vbs Do~loop内、抜き出し条件、出力について
VBS、素人というか事務部門なので、なじみがなく、
現在、本を見ながら勉強しております。
下記の事務処理を行いたいのですが、どなたか
申し訳ございませんが、ご教授願えませんでしょうか。(VBAにしたいのですが、excel使ってない為、VBS)
入力データは、行単位読込み。
入力データがなくなるまでloopさせてます。
if instr(xxxx,"111") = など検索文字がhitしたら
各Box(配列?)に出力し、各列、111or000~444を
1レコードとして出力させたいのですが、Do~loop
の中の、抜き出し条件をどの様にしてよいのか、
(現在、行読込みで、各出力レコードに出来る222を
ブレークポイントとして、取り合えず作成中…)
知りたい事
□始まりの、000or111、条件処理
(出力2レコード目無い場合が有るので)
□出力3レコード目、列(4)(5)333,444繰返し処理
(再度、333,444が出てきた場合)
入力データ+++++
111
222
333
222
333
000
222
333
444
999
333
444
~
出力結果イメージ(こうしたい)+++++
列(1),列(2),列(3),列(4),列(5)
111,222,333
,222,333
000,222,333,444,333,444
~
追記++++++++++
111or000は列(1)(nohitは空白)
222は列(2)
333は列(3)
再度、出てくる333は列(4)
再度、出てくる444は列(5)
お礼
ご検討ありがとうございます。 あれから「を挿んで羅列してみましょう」で検索してみたところ 翻訳には関係なさそうなページがかなりヒットしたのでやや驚きました。 適した表現を作りにくいために、既存の表現を相互にコピーして、 それが広まったような気がしないでもありません。 少ない言葉でも効率的に伝わるところが日本語のよさですが 正確を期さんがために言葉を追加したつもりでも、 語の選び方にちぐはぐがあるとかえっておかしくなることがあります。 (翻訳でよくあります。) 「羅列してみる」には「順不同」なばかりでなく際限なく「続きかねない」 しまりのなさも感じます。質問の原文で「羅列するキーワード」は 意味的には2つ3つ、せいぜい5つ6つほどでしょう。 つまり「思いつくままに羅列してみればさー」などの 口語表現でなら十分通じるけれど、説明書きには違和感があります。 レジスター(場面方言・言語使用域)がズレている、と言えるのかもしれません。 「追加」に置き換えるのも一案かもしれません。 ------- 検索結果が何もない,あるいは少ないときは,(さらに)関連するキーワードを or を挿みながら「追加」してみましょう.ヒットしやすくなります. -------