多数のテキストファイルからの文字列の取り出し

質問

いま、わたしが持っているヴィジュアルベーシックは
ＶＢ６．０です。ＰＣはノートで、ＯＳはＸＰです。
課題：
あるフォルダーに１０００くらいのテキストファイルがあって、
その各テキストファイルから
たとえば、「「不特定長さの文字列1」」・・・・・・・・（（不特定長さの文字列２））
の不特定長さの文字列１と不特定長さの文字列２を
とりだし、
それをファイル名「まとめ表」というテキストファイルに

ファイル名　　　　文字列１　　　文字列２

ファイル１　　　あいうえお　　かきくけこ
ファイル２　　　さしすせそ　　たちつてと
　・　　　　　　　　　・　　　　　　　　・
　・　　　　　　　　　・　　　　　　　　・

のように書き込むというプログラムを作成したいのですが、
できるでしょうか？
できるとすると、
プログラムの
およその考え方と
使用する命令語はどのようなものになりますか？
ご回答をおまちしております。
よろしくおねがいいたしますｍ（＿＿）ｍ

回答No.2

luka3 · ベストアンサー

VBScriptはWindows Scripting Host（略してWSH）の１つです。
WSHを簡単に説明すれば、高度なバッチファイルです。
詳しくは「Windows Scripting Host」や「WSH」で検索してみてください。

このWSHはWin98以降であれば使えます。
VBScript（略してVBS）はVBAとよく似た文法で記述できます。

先ほどのプログラムをメモ帳などに貼り付け、拡張子 .vbs で保存すればアイコンの形が変わるはずです。
この状態でダブルクリックすれば実行できます。
コマンドプロンプトでも「cscript test.vbs」とすればコンソールモードで実行できます。

ふと思いましたが、エクセルのVBAとしてももしかしたら動くかも？
ちょっと今手元にエクセルがないので試せませんが。

お礼

なるほど、バッチファイルでしたか、
そうするとエクセル・付録のＶＢＡで完全自動化のマクロプログラムも
夢ではなさそうな気がしてきました。
これからの勉強になりますが、今後ともご助言いただけるとたいへん
たすかります。

回答No.1

luka3

VBじゃなくて、VBScriptです。

--　ここから
folder = "C:\folder" ' テキストの入っているフォルダ

Set fso = CreateObject("Scripting.FileSystemObject")
Set dir = fso.GetFolder(folder)
For Each name In dir.files
　Text = fso.OpenTextFile(name, 1, False).ReadAll()
　Text = Replace(Text, vbNewLine, vbTab)
　If Right(Text, 1) = vbTab Then Text = Left(Text, Len(Text) - 1)
　tsvdata = tsvdata & fso.GetFileName(name) & vbTab & Text & vbNewLine
Next

Set of = fso.CreateTextFile("textfiles.tsv", True) ' 出力ファイル名
of.Write tsvdata
of.Close
Set of = Nothing
--　ここまで

フォルダ名などを修正して、test.vbs といった名前で保存してください。
これをダブルクリックすれば、同じフォルダにtsvが出力されます。
整形の仕方がはっきりしないのでタブ区切り（vbTab）にしました。
いったんテキストの中身をすべて読み込んで、Replaceで改行文字をタブに置換させています。

お礼

ご回答ありがとうございます。

正直もうしまして、わたしのプログラム経験は
MS_DOS時代のベーシック、ターボｃ
エクセルにおまけでついているVBAでして、

VB６．０は購入しているものの１回も使っていないという状況です。

そもそもVBscriptとはどういうものか、まったくわかりません。
そういものを購入しないといけないのでしょうか？
それでパソコン上で走る、実行ファイル的なものを作成できるのでしょうか？
そういレベルからまったくわかりません。
大変稚拙でもうしわけありませんが、ご説明いただけると助かります。
m(__)m