как заменить символ в текстовом файле?

[mrBond007]

Добрый день уважаемый All,

Хелп плиз! Целый день бьюсь ...ничего не получается

Задача заключается в следующем:
необходимо сделать замену одного символа на другой в текстовом файле.

Нашел следующий скрипт, но что-то он не пашет......что не так не могу понять или может подскажете более простой способ ?

Заранее спасибо!!!

Dim FileName, Find, ReplaceWith, FileContents, dFileContents
'Find = Chr(10)
Find = "4"
ReplaceWith = "5"
FileName = "c:\15\txt.txt"

'Read source text file
FileContents = GetFile(FileName)

'replace all string In the source file
dFileContents = Replace(FileContents, Find, ReplaceWith, 1, -1, 1)

'Compare source And result
If dFileContents <> FileContents Then
'write result If different
WriteFile FileName, dFileContents

MsgBox "Replace done."
If Len(ReplaceWith) <> Len(Find) Then 'Can we count n of replacements?
MsgBox ((Len(dFileContents) - Len(FileContents)) / (Len(ReplaceWith) - Len(Find))) & _
" replacements."
End If
Else
MsgBox "Searched string Not In the source file"
End If
End Sub

'Read text file
Function GetFile(FileName)
If FileName <> "" Then
Dim FS, FileStream
Set FS = CreateObject("Scripting.FileSystemO bject")
On Error Resume Next
Set FileStream = FS.OpenTextFile(FileName)
GetFile = FileStream.ReadAll
End If
End Function

'Write string As a text file.
Function WriteFile(FileName, Contents)
Dim OutStream, FS

On Error Resume Next
Set FS = CreateObject("Scripting.FileSystemO bject")
Set OutStream = FS.OpenTextFile(FileName, 2, True)
OutStream.Write Contents
End Function

[IgorGO]

подскажете более простой способ

как же не подсказать...
открываете файл, например Word-ом, жмете Ctrl+H, указываете что на что заменить, жмете "сохранить как".

в отличие от Вашего макроса - это проверенный способ

[Hugo121]

Чтож это не проверенный? Я проверил
Работает, и как макрос, и как vbs. Только два пробела из поста убрать.
Когда постите коды, пользуйтесь тэгами!!!

[mrBond007]

спасибо, но все должно быть автоматизировано

[mrBond007]

Hugo121, спасибо. Действительно макрос работает с обычными txt файлами. с моим не работает....ломает его, пока не могу понять почему.

[mrBond007]

нашел решение. проблема была в том, что txt file был в unicode формате.

[mrBond007]

подскажите плиз,

Как найти перенос строки + символы " /"
find = Chr(10) & " /"
- что-то не не хочет искать

Задача состоит в том, чтобы найти перенос строки + " /" и заменить на пробел во всем текстовом файле.

[Hugo121]

Find = vbnewline & " /"

проверил в варианте vbs

[mrBond007]

помогло find = Chr(13) & " /" - это все работает , если файл в ANSI

остался последний вопрос, как текстовый файл преобразовать из Unicode в ANSI ?

[Hugo121]

Как кодом - не знаю, я пересохранял блокнотом или в AkelPad.