テキストファイルのタブをカンマに変える方法

バッチファイルかVBSでテキストファイルのタブ区切りをカンマ区切りにする方法を教えてください。

変換イメージは下記の通りです。

12013020118411旅費交通費1000忠
220130201121111現金0100タクシー

　　　　　　　　　　　　　　　↓

1,20130201,"1","","8411","旅費交通費",100,0,"忠"
2,20130201,"1","2","1111","現金",0,100,"タクシー"

No.3 ベストアンサー 回答者： cma3atgoo 回答日時： 2013/03/11 12:18

vbsで

同じフォルダにある、before.txtをafter.txtに変換する
全て""で囲むのでコントロールしたい場合はForの中を工夫して
後はご自由に

Dim fso, beforeFile, afterFile
Dim strLine, strColumn
Dim aryColumns(), aryBuff
Dim i
Set fso = CreateObject("Scripting.FileSystemObject")
Set beforeFile = fso.OpenTextFile("before.txt", 1)
Set afterFile = fso.OpenTextFile("after.txt", 2, True)

Do While beforeFile.AtEndOfLine = False
strLine=beforeFile.ReadLine
aryBuff = Split(strLine , "")
i = 0
For Each strColumn In aryBuff
ReDim Preserve aryColumns(i)
aryColumns(i) = """" & strColumn & """"
i=i+1
Next
afterFile.WriteLine(Join(aryColumns, ","))
Erase aryBuff
Erase aryColumns
Loop

beforeFile.Close
afterFile.Close

Set beforeFile = Nothing
Set afterFile = Nothing
Set fso = Nothing

この回答へのお礼

詳しく記述して頂き、ありがとうございました。

お礼日時：2013/03/11 13:55

No.2 回答者： happy_yuppie 回答日時： 2013/03/11 11:27

エクセルで開いて、CSVファイルとして保存すれば良いのでは

この回答への補足

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

自動実行させたいのですが、何かいい方法はないでしょうか？

補足日時：2013/03/11 12:00

No.1 回答者： Mechirun 回答日時： 2013/03/11 11:12

テキストエディタの置換機能で出来ませんか？

秀丸ならタブの指定に注意する必要はありますが、普通に置換で変換可能ですが。

この回答への補足

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

秀丸等の入ってないPCでも、自動実行出来るようにしたいのですが、何か方法はありますでしょうか？

補足日時：2013/03/11 12:01