Заменить текст в текстовом файле с помощью VBS

Question

Я использую Notepad ++ для настройки 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