Серый форум — VBScript: Удаление символа в txt файле

Re: VBScript: Удаление символа в txt файле

null@example.com (Yaskovit) — Thu, 20 Mar 2014 06:12:11 +0000

Всем спасибо.Помогли на другом форуме) Если кому то понадобиться, вот код:

Dim objFS, objFile, strPath, arrTemp
strPath = "C:\Temp\Example.txt"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FileExists(strPath) Then
    Set objFile = objFS.OpenTextFile(strPath, 1)
    arrTemp = Split(objFile.ReadAll, vbNewLine)
    objFile.Close
    For i = 0 To UBound(arrTemp)
        If InStr(1, arrTemp(i), "Сумма=", vbTextCompare) > 0 Then arrTemp(i) = Replace(arrTemp(i), "=-", "=")
    Next
    Set objFile = objFS.CreateTextFile(strPath, True)
    objFile.Write Join(arrTemp, vbNewLine)
    objFile.Close
    Set objFile = Nothing
    WScript.Echo "Готово."
Else
    WScript.Echo "Не найден путь " & strPath
End If
Set objFS = Nothing
WScript.Quit 0

Re: VBScript: Удаление символа в txt файле

null@example.com (Yaskovit) — Thu, 20 Mar 2014 05:37:20 +0000

Кодировка Win 1251 (ANSI-кириллица)

Re: VBScript: Удаление символа в txt файле

null@example.com (alexii) — Wed, 19 Mar 2014 13:45:44 +0000

Кодировка текстового файла? Есть ли BOM?

Лучше всего сопровождать вопрос образцом файла, упакованного в архив.

VBScript: Удаление символа в txt файле

null@example.com (Yaskovit) — Wed, 19 Mar 2014 10:57:00 +0000

Cам от программирования далек, но чувствую, что придется вникать %)

Искал в интернетах, но так ничего похожего и не нашел, а задача вроде проще некуда:

Необходим скрипт для удаления определенного символа в тексте, в txt - файле.

Детально:

1) Скрипт находит в txt-файле строки, содержащие "Сумма="
2) Если после "=" есть символ "-", то удаляет его

Буду весьма благодарен, если кто-то , хоть чем-то подскажет.