1 Тема от Yaskovit (изменено: alexii, 2014-03-20 11:21:09)

  • Yaskovit
  • Участник
  • Неактивен

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

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

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

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

Детально:

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


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

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

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

3 Ответ от Yaskovit (изменено: Yaskovit, 2014-03-20 10:12:53)

  • Yaskovit
  • Участник
  • Неактивен

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

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

4 Ответ от Yaskovit

  • Yaskovit
  • Участник
  • Неактивен

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

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

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