【VBS】ファイルの行末の文字列を置換する

久しぶりにVBSを使った仕事に出くわしましたのでメモです。

カンマ区切りのファイルで行末の「・・・,”あいう”,””””」といった感じにダブルクォーテーションが二重になっているファイルを「・・・,”あいう”,””」にするために対応しました。

コード

'引数を利用する場合
'Set objArgs = WScript.Arguments
'第一引数：objArgs.Item(0)
'第二引数：objArgs.Item(1)
' : 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInputFile = objFSO.OpenTextFile("test.csv") 

'ファイルの中身が存在する場合のみ処理を行う
If objInputFile.AtEndOfStream = False Then
  'ファイル読み込み 
  sData = objInputFile.ReadALL
  '置換（行末の二重のダブルクォーテーションを置き換える）
  sData = Replace(sData,",""""""""" & vbCrLf,",""""" & vbCrLf)
  '出力 
  Set objOutputFile = objFSO.CreateTextFile("test2.csv", true)
  objOutputFile.Write(sData)
  objOutputFile.Close
  Set objOutputFile = Nothing
End If

'後処理
objInputFile.Close
Set objInputFile = Nothing
Set objFSO = Nothing