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

[doober]

Public Function Writer_To(strUnicode As String, FileName As String)
 
 Const adTypeBinary = 1
   Const adTypeText = 2
   Const bOverwrite = True
   Const bAsASCII = False
   Dim oFS: Set oFS = CreateObject("Scripting.FileSystemObject")
   Dim oFrom: Set oFrom = CreateObject("ADODB.Stream")
   Dim sFrom: sFrom = "utf-8"
   Dim oTo: Set oTo = CreateObject("ADODB.Stream")
   Dim sTo: sTo = "Windows-1251"
   Dim sTFSpec: sTFSpec = oFS.GetAbsolutePathName(FileName)
   If oFS.FileExists(sTFSpec) Then oFS.DeleteFile sTFSpec
   oFrom.Type = adTypeText
   oFrom.Charset = sFrom
   oFrom.Open
   oTo.Type = adTypeText
   oTo.Charset = sTo
   oTo.Open
 oTo.WriteText strUnicode
   oTo.SaveToFile sTFSpec
 
   oFrom.Close
   oTo.Close

End Function



 Public Function Writ_To_UTF8(strUnicode As String, FileName As String)
 
 Const adTypeBinary = 1
   Const adTypeText = 2
   Const bOverwrite = True
   Const bAsASCII = False
   Dim oFS: Set oFS = CreateObject("Scripting.FileSystemObject")
   Dim oFrom: Set oFrom = CreateObject("ADODB.Stream")
   Dim sFrom: sFrom = "Windows-1251"
   Dim oTo: Set oTo = CreateObject("ADODB.Stream")
   Dim sTo: sTo = "utf-8"
   Dim sTFSpec: sTFSpec = oFS.GetAbsolutePathName(FileName)
   If oFS.FileExists(sTFSpec) Then oFS.DeleteFile sTFSpec
   oFrom.Type = adTypeText
   oFrom.Charset = sFrom
   oFrom.Open
   oTo.Type = adTypeText
   oTo.Charset = sTo
   oTo.Open
 oTo.WriteText strUnicode
   oTo.SaveToFile sTFSpec
 
   oFrom.Close
   oTo.Close

End Function

[mrBond007]

вручную не подойдет, все должно быть автоматически......

[EducatedFool]

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

http://excelvba.ru/code/Encode
смотрите функцию ChangeFileCharset

Function ChangeFileCharset(ByVal filename$, ByVal DestCharset$, _
                           Optional ByVal SourceCharset$) As Boolean
    ' функция перекодировки (смены кодировки) текстового файла
   ' В качестве параметров функция получает путь filename$ к текстовому файлу,
   ' и название кодировки DestCharset$ (в которую будет переведён файл)
   ' Функция возвращает TRUE, если перекодировка прошла успешно
   On Error Resume Next: Err.Clear
    With CreateObject("ADODB.Stream")
        .Type = 2
        If Len(SourceCharset$) Then .Charset = SourceCharset$    ' указываем исходную кодировку
       .Open
        .LoadFromFile filename$    ' загружаем данные из файла
       FileContent$ = .ReadText   ' считываем текст файла в переменную FileContent$
       .Close
        .Charset = DestCharset$    ' назначаем новую кодировку
       .Open
        .WriteText FileContent$
        .SaveToFile filename$, 2   ' сохраняем файл уже в новой кодировке
       .Close
    End With
    ChangeFileCharset = Err = 0
End Function

[mrBond007]

Большущее спасибо!!! все работает