VBSを使用してテキストファイルのテキストを置き換えます

Question

私はメモ帳++を使用してTXTファイルを調整しています。私はVBScriptを使ってこれを自動化することが可能かどうか疑問に思っていましたか？

• ファイルを開きます。
• \r\nを ""（空白）に置き換えてください。
• I0を\nI0に置き換えます。
• X0を\nI0に置き換えます。
• ファイルを保存します。

Answer 1

以下の例は、UnicodeとASCIIテキストファイルに適しています：

sPath = "C:\Users\DELL\Desktop\tmp\test.txt" 
sContent = ReadTextFile(sPath, 0) ' lFormat -2 - System default, -1 - Unicode, 0 - ASCII 
sContent = Replace(sContent, vbCrLf, " ") 
sContent = Replace(sContent, "I0", vbLf & "I0") 
sContent = Replace(sContent, "X0", vbLf & "I0") 
WriteTextFile sContent, sPath, 0 

Function ReadTextFile(sPath, lFormat) 
    With CreateObject("Scripting.FileSystemObject").OpenTextFile(sPath, 1, False, lFormat) 
     ReadTextFile = "" 
     If Not .AtEndOfStream Then ReadTextFile = .ReadAll 
     .Close 
    End With 
End Function 

Sub WriteTextFile(sContent, sPath, lFormat) 
    With CreateObject("Scripting.FileSystemObject").OpenTextFile(sPath, 2, True, lFormat) 
     .Write sContent 
     .Close 
    End With 
End Sub