【Lifehacks】ファイルからダブルクォートを除去

■タスク
・ファイル中に含まれるダブルクォートを除去する。

■目的
・あるツールで取得したデータを別のツールの入力にする際、ダブルクォートを除去する必要があった。

■仕様
・入力、出力はテキストデータ。

■備考
・UNIXまたはCygwin32環境であればsedを用いて1行で済む話だが、素のWindows環境ではままならずスクリプトを書いて対処。

■使用方法
> cscript //Nologo SgElimDblQuot.vbs < Input.txt > Output.txt

■プログラム

'
' SgElimDblQuot.vbs
' ファイルからダブルクォートを除去する。
'
' Author: Orihika Ikuo
' Create: 2009.01.16
' Update: 2009.XX.XX
'

Option Explicit
On Error Resume Next

main()

Function main
  On Error Resume Next

  Dim line

  Do Until WScript.StdIn.AtEndOfStream = True
    line = WScript.StdIn.ReadLine
    line = Replace(line, """", "")
    WScript.StdOut.WriteLine line

    If Err.Number <> 0 Then
      WScript.StdOut.WriteLine Err.Description
      main = -1
      Exit Function
    End If
  Loop
  main = 0
End Function