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

質問

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

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

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

　　　　　　　　　　　　　　　↓

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

回答No.3

cma3atgoo · ベストアンサー

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

お礼

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

回答No.2

happy_yuppie

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

補足

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

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

回答No.1

noname#198951

テキストエディタの置換機能で出来ませんか？
秀丸ならタブの指定に注意する必要はありますが、普通に置換で変換可能ですが。

補足

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

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