分かりやすく、使いやすく。

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   
スポンサーリンク