CSV ファイルを TSV ファイルや他の区切り文字列に変換する方法

VBScript で CSV ファイルを読み込んでタブ区切り文字列や（TSV）その他の区切り文字列に変換するサンプルコードです。

VBScript（実行可能なサンプルコード）
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39	Option Explicit Dim objFileSys Dim strReadFilePath Dim strWriteFilePath Dim objReadStream Dim objWriteStream Dim strLine '対象のファイルのパスを指定 strReadFilePath = "c:\temp\売上リスト.csv" '読込み元 strWriteFilePath = "c:\temp\売上リスト.tsv" '書込み先 'ファイルシステムを扱うオブジェクトを作成 Set objFileSys = CreateObject("Scripting.FileSystemObject") 'ファイルを読み取り専用で開き、TextStream オブジェクトを取得 Set objReadStream = objFileSys.OpenTextFile(strReadFilePath, 1) 'ファイルを書込み専用で開き、TextStream オブジェクトを取得 '第 3 引数に true を設定すると、ファイルが無い場合に自動作成します。 Set objWriteStream = objFileSys.OpenTextFile(strWriteFilePath, 2, true) Do Until objReadStream.AtEndOfLine = True '1 行読み込み strLine = objReadStream.ReadLine '区切り文字を置換（この例ではカンマからタブ） strLine = Replace(strLine, ",", vbTab) 'ファイルに出力 objWriteStream.WriteLine strLine Loop objReadStream.Close objWriteStream.Close Set objFileSys = Nothing

VBScript（実行可能なサンプルコード）

Option Explicit
 
Dim objFileSys
Dim strReadFilePath
Dim strWriteFilePath
Dim objReadStream
Dim objWriteStream
Dim strLine
 
'対象のファイルのパスを指定
strReadFilePath  = "c:\temp\売上リスト.csv" '読込み元
strWriteFilePath = "c:\temp\売上リスト.tsv" '書込み先
 
'ファイルシステムを扱うオブジェクトを作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")
 
'ファイルを読み取り専用で開き、TextStream オブジェクトを取得
Set objReadStream  = objFileSys.OpenTextFile(strReadFilePath, 1)
 
'ファイルを書込み専用で開き、TextStream オブジェクトを取得
'第 3 引数に true を設定すると、ファイルが無い場合に自動作成します。
Set objWriteStream = objFileSys.OpenTextFile(strWriteFilePath, 2, true)
 
 
Do Until objReadStream.AtEndOfLine = True
  '1 行読み込み
  strLine = objReadStream.ReadLine
  
  '区切り文字を置換（この例ではカンマからタブ）
  strLine = Replace(strLine, ",", vbTab) 
  
  'ファイルに出力
  objWriteStream.WriteLine strLine
Loop
 
objReadStream.Close
objWriteStream.Close
 
Set objFileSys = Nothing

▲このページの一番上に戻る