ダブルクォーテーションを消してしまったcsvをドラッグアンドドロップするとダブルクォーテーションをつけてくれるVBS

oblsk.sakura.ne.jp

' http://oblsk.sakura.ne.jp/help/?p=1498
On Error Resume Next
Set objCsv = WScript.Arguments
Set objFileSys = WScript.CreateObject("Scripting.FileSystemObject")
Set objTxt = objFileSys.OpenTextFile(objCsv(0),1)
Set objFolder = objFileSys.OpenTextFile(objFileSys.GetParentFolderName(objCsv(0)) & "\" & objFileSys.GetBaseName(objCsv(0)) & "_ダブルクォーテーション復元.csv",2,True)
If Err.Number > 0 Then
msgbox "ダブルクォーテーションを消してしまったcsvを" +vbCr + "ドラッグアンドドロップしてください", vbSystemModal
End if
Do Until objTxt.AtEndOfStream
csvIn = objTxt.ReadLine
objFolder.WriteLine """" & Replace(csvIn,",",""",""",1,-1,1) & """"
Loop

このサイトに掲載のスクリプト・手順など全ての情報については、一切の保証が無いものとしてご利用下さい。PCの不具合、動作、データの破損などについて責任を負うことはできません。あくまでも自己責任となります。