Имеем такую штуку
глИзменитьКодовуюСтраницуФайла(ВыбФайл, "UTF-8", "Windows-1251");

Процедура глИзменитьКодовуюСтраницуФайла(имяФайла, исходнКодировка, нужнаяКодировка) Экспорт
	Если ФС.СуществуетФайл(имяФайла) = 0 Тогда
		Сообщить("Файл " + имяФайла + " - не найден! Изменение кодировки отменено.", "!");
		Возврат;
	КонецЕсли;
	ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
	ScrptCtrl.Language = "VBScript";
	ScrptCtrl.AddCode("
		|Function StrConv(Text,SourceCharset,DestCharset)
		|	Set Stream=CreateObject(""ADODB.Stream"")
		|	Stream.Type=2
		|	Stream.Mode=3
		|	Stream.Open
		|	Stream.Charset=DestCharset
		|	Stream.WriteText Text
		|	Stream.Position=0
		|	Stream.Charset=SourceCharset
		|	StrConv=Stream.ReadText
		|End Function
		|
		|sub ConvertCodepage( fileName, SourceCharset, DestCharset )
		|	set fs = CreateObject(""Scripting.FilesystemObject"")
		|	originalText = fs.openTextFile(fileName,1).readAll()
		|	convertedText = strConv(originalText, SourceCharset, DestCharset )
		|	fs.openTextFile(fileName,2,true).write(convertedText)
		|end sub
		|
		|");
	Module = ScrptCtrl.Modules("Global");
	CodeObject = Module.CodeObject;
	CodeObject.ConvertCodepage(имяФайла, исходнКодировка, нужнаяКодировка);
КонецПроцедуры //ИзменитьКодовуюСтраницуФайла()

Суть проблемы - один файл нормально обрабатывает, на другом - падает с ошибкой


в чем разница - не понимаю...
куда смотреть, что отлавливать?

Путь к файлам одинаковый?

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

могу, конечно, и файлы выложить, если это поможет...

(0) а если чисто на vbs написать то какая ошибка?

Function StrConv(Text,SourceCharset,DestCharset)
	Set Stream=CreateObject("ADODB.Stream")
	Stream.Type=2
	Stream.Mode=3
	Stream.Open
	Stream.Charset=DestCharset
	On Error Resume Next
	Stream.WriteText Text
	If Err.Number <> 0 Then
		MsgBox "Ошибка при записи текста в поток: " & Err.Description
		On Error GoTo 0
		Exit Function
	End If
	Stream.Position=0
	Stream.Charset=SourceCharset
	StrConv=Stream.ReadText
	On Error GoTo 0
End Function

Сейчас проверю

Если надо строку конвертить, то можно карлика заюзать...

# Встроенные конвертеры
СтрокаUTF8   = Карлик.ToUTF8(СтрокаASCII)
СтрокаASCII  = Карлик.FromUTF8(СтрокаUTF8)
СтрокаURL    = Карлик.ToURL(СтрокаASCII)
СтрокаASCII  = Карлик.FromURL(СтрокаURL)
СтрокаBASE64 = Карлик.ToBASE64(СтрокаASCII)
СтрокаASCII  = Карлик.FromBASE64(СтрокаBASE64)

С файлами сложнее - тут, хочешь не хочешь через поток придется делать... Все от задачи зависит.

(5) не получаеся
то же самое выдает
CodeObject.ConvertCodepage(имяФайла, исходнКодировка, нужнаяКодировка);
{Глобальный модуль(1876)}: Ошибка выполнения Microsoft VBScript: Недопустимый вызов или аргумент процедуры
    19:46:52: формат обработки CSV, обработка не выполнена..?!

Текущий код

таакс.. чтото наклюнулось... пару мин

Не, все без изменений...

тупо падает ммежду КТ100 и КТ200

        |sub ConvertCodepage( fileName, SourceCharset, DestCharset )
        |    set fs = CreateObject(""Scripting.FilesystemObject"")
        |    originalText = fs.openTextFile(fileName,1).readAll()
        |    convertedText = strConv(originalText, SourceCharset, DestCharset )
        |     MsgBox ""кт100""
        |    fs.openTextFile(fileName,2,true).write(convertedText)
        |     MsgBox ""кт200""

Если вот так
Процедура глИзменитьКодовуюСтраницуФайла(имяФайла, исходнКодировка, нужнаяКодировка) Экспорт
    Если ФС.СуществуетФайл(имяФайла) = 0 Тогда
        Сообщить("Файл <" + имяФайла + "> - не найден! Изменение кодировки отменено.", "!");
        Возврат;
    КонецЕсли;
    ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
    ScrptCtrl.Language = "VBScript";
    ScrptCtrl.AddCode("
        |Function StrConv(Text,SourceCharset,DestCharset)
        |    MsgBox ""кт1""
        |    Set Stream=CreateObject(""ADODB.Stream"")
        |    Stream.Type=2
        |    Stream.Mode=3
        |    Stream.Open
        |    Stream.Charset=DestCharset
        |    MsgBox ""кт2""
        |    On Error Resume Next
        |    MsgBox ""кт3""
        |    Stream.WriteText Text
        |    MsgBox ""кт4""
        |    If Err.Number <> 0 Then
        |        MsgBox ""Ошибка при записи текста в поток: "" & Err.Description
        |        On Error GoTo 0
        |        Exit Function
        |    End If
        |    MsgBox ""кт5""
        |    Stream.Position=0
        |    MsgBox ""кт6""
        |    Stream.Charset=SourceCharset
        |    MsgBox ""кт7""
        |    StrConv=Stream.ReadText
        |    MsgBox ""кт8""
        |    On Error GoTo 0
        |    MsgBox ""кт9""
        |End Function
        |
        |sub ConvertCodepage( fileName, SourceCharset, DestCharset )
        |    set fs = CreateObject(""Scripting.FilesystemObject"")
        |    originalText = fs.openTextFile(fileName,1).readAll()
        |    convertedText = strConv(originalText, SourceCharset, DestCharset )
        |     MsgBox ""кт100""
        |    fs.openTextFile(fileName,2,true).write(convertedText)
        |     MsgBox ""кт200""
        |end sub
        |
        |");
    Module = ScrptCtrl.Modules("Global");
    CodeObject = Module.CodeObject;
        Сообщить("имяФайла=<"+имяФайла+">");
        Сообщить("исходнКодировка=<"+исходнКодировка+">");
        Сообщить("нужнаяКодировка=<"+нужнаяКодировка+">");
    CodeObject.ConvertCodepage(имяФайла, исходнКодировка, нужнаяКодировка);
КонецПроцедуры //ИзменитьКодовуюСтраницуФайла()

то выдает все от КТ1 до КТ9, потом КТ100 и облом...

(13) а если убрать функцию strconv и написать сплошным текстом?

это как?

Хотя у тебя между кт100 и кт200 же падает. Тогда туда добавь обработку ошибки - перед opentextfile

написал так:

Процедура глИзменитьКодовуюСтраницуФайла1(имяФайла, исходнКодировка, нужнаяКодировка) Экспорт
    Если ФС.СуществуетФайл(имяФайла) = 0 Тогда
        Сообщить("Файл <" + имяФайла + "> - не найден! Изменение кодировки отменено.", "!");
        Возврат;
    КонецЕсли;
    ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
    ScrptCtrl.Language = "VBScript";
    ScrptCtrl.AddCode("
        |sub ConvertCodepage( fileName, SourceCharset, DestCharset )
        |   set fs = CreateObject(""Scripting.FilesystemObject"")
        |   originalText = fs.openTextFile(fileName,1).readAll()
        |    MsgBox ""кт1""
        |    Set Stream=CreateObject(""ADODB.Stream"")
        |    Stream.Type=2
        |    Stream.Mode=3
        |    Stream.Open
        |    Stream.Charset=DestCharset
        |    MsgBox ""кт2""
        |    On Error Resume Next
        |    MsgBox ""кт3""
        |    Stream.WriteText convertedText
        |    MsgBox ""кт4""
        |    If Err.Number <> 0 Then
        |        MsgBox ""Ошибка при записи текста в поток: "" & Err.Description
        |        On Error GoTo 0
        |        Exit Function
        |    End If
        |    MsgBox ""кт5""
        |    Stream.Position=0
        |    MsgBox ""кт6""
        |    Stream.Charset=SourceCharset
        |    MsgBox ""кт7""
        |    StrConv=Stream.ReadText
        |    MsgBox ""кт8""
        |    On Error GoTo 0
        |    MsgBox ""кт9""
        |     MsgBox ""кт100""
        |    fs.openTextFile(fileName,2,true).write(convertedText)
        |     MsgBox ""кт200""
        |end sub
        |
        |");
    Module = ScrptCtrl.Modules("Global");
    CodeObject = Module.CodeObject;
        Сообщить("имяФайла=<"+имяФайла+">");
        Сообщить("исходнКодировка=<"+исходнКодировка+">");
        Сообщить("нужнаяКодировка=<"+нужнаяКодировка+">");
    CodeObject.ConvertCodepage(имяФайла, исходнКодировка, нужнаяКодировка);
КонецПроцедуры //ИзменитьКодовуюСтраницуФайла1()

пофиг, нормальный файл все проходит норм,
проблемный - падает после КТ100

(16) хз как. я на VB не писал никогда...

Попробуй 4й параметр указать в opentextfile

И может быть имеет смысл разделить opentextfile и write в последней строке

Может всё же проблема в разной исходной кодировке?

(23) см (0) - первые байты файлов - одинаковые..
?

(22) хз, говорю же - не писал.
попытка без функции не удалась, развалилось, требует SUB

EF BB BF это utf8

ну это и по постановке задачи видно со скринов в (0)

Если убрать строку
fs.openTextFile(fileName,2,true).write(convertedText) ошибка пропадает?

(28) вернул все в (0)
убрал строку.
ошибка пропадает, отрабатывает норм.

Перепиши последнюю строку как то так
set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
set file = fs.OpenTextFile(fileName, 2, True)
file.WriteText convertedText
file.Close
If Err.Number <> 0 Then
              MsgBox ""Ошибка при записи: "" & Err.Description
                On Error GoTo 0

Все таки не понятно ошибка возникает на opentextfile() или на write()

сейчас

редуцировал файл половинным делением, прошло на минимумуе, разбираюсь...

Кстати а ты пишешь в новый файл или в старый который конвертируется ?

(30)         |sub ConvertCodepage( fileName, SourceCharset, DestCharset )
        |    set fs = CreateObject(""Scripting.FilesystemObject"")
        |    originalText = fs.openTextFile(fileName,1).readAll()
        |    convertedText = strConv(originalText, SourceCharset, DestCharset )
        |   set fs = CreateObject(""Scripting.FileSystemObject"")
        |   On Error Resume Next
        |   set file = fs.OpenTextFile(fileName, 2, True)
        |   file.WriteText convertedText
        |   file.Close
        |   If Err.Number <> 0 Then
        |      MsgBox ""Ошибка при записи: "" & Err.Description
        |      On Error GoTo 0
        |   End If
        |end sub

ругалось на If, добавил end If перед end sub - ????
ругается

Попробуй так:

Set f = fs.openTextFile(fileName,2,true)
f.write(convertedText)
f.Close

Тогда вместо writetext напиши write

предварительно:
вот это ему не нравится

убрал знаки рубля и все прошло норм...

Ну возможно: в некоторых кодировках может не быть такого символа. Тогда наверно нужно сделать замену символа перед перекодировкой

(36) (37) все равно ломается на проблемном файле ;-)

(40) это понятно, но тогда при перекодировке такого символа что получится?

Ничего, наверно ошибка будет

Formex Стр = глСервис.EncodeFromUTF8(Стр); при перекодировке просто вбабахивает на такой символ как "?"

(43) вот она и была. только мутная и непонятная.

(7) UTF можно и формексом конвертить

Символ ₽ (рубль) не входит в стандартный набор символов Windows-1251, из-за чего и возникает ошибка при конвертации. - ответ gpt

Символ ₽ (рубль) был добавлен в стандарт Unicode в версии 7.0, выпущенной в 2014 году. Кодировка Windows-1251, также известная как CP1251, была разработана гораздо раньше и не обновлялась для включения новых символов, таких как рубль.

Windows-1251 была создана для поддержки кириллических алфавитов в советских и постсоветских странах и включает только набор символов, которые были актуальны на момент её создания. Новый символ ₽ просто не попал в этот набор.

Для поддержки современных символов лучше использовать Unicode (например, UTF-8), который включает широкий спектр символов и постоянно обновляется. Это обеспечит совместимость с новыми символами и позволит избежать проблем с кодировкой.

(47) это понятно. значит такой код конвертации как в (0) будет падать на любом наборе UTF8, который не отображается в кодировку-приемник.

(47) лучше гпт спросить как сконвертировать, чтобы не падало...

(51) он предлагает заменить символ на сочетание rub

Или такой код предлагает по замене недопустимых символов на вопрос:
sub ConvertCodepage(fileName, SourceCharset, DestCharset)
    On Error Resume Next
    set fs = CreateObject("Scripting.FilesystemObject")
    originalText = fs.openTextFile(fileName, 1, false, SourceCharset).readAll()
    If Err.Number <> 0 Then
        MsgBox "Ошибка чтения файла: " & Err.Description
        On Error GoTo 0
        Exit Sub
    End If

    Set Stream = CreateObject("ADODB.Stream")
    Stream.Type = 2
    Stream.Mode = 3
    Stream.Open
    Stream.Charset = DestCharset

    Dim i, char, resultText
    resultText = ""
    For i = 1 To Len(originalText)
        char = Mid(originalText, i, 1)
        Stream.WriteText char
        Stream.Position = 0
        If Err.Number <> 0 Then
            Stream.Charset = "UTF-8" ' Вернемся к исходной кодировке
            char = "?" ' Замена неподдерживаемого символа
            Stream.WriteText char
            Stream.Position = 0
            Stream.Charset = DestCharset
            Err.Clear
        End If
        resultText = resultText & Stream.ReadText
        Stream.Position = 0
    Next

    On Error GoTo 0
    set outputFile = fs.OpenTextFile(fileName, 2, true, 0)
    outputFile.WriteText resultText
    If Err.Number <> 0 Then
        MsgBox "Ошибка при записи файла: " & Err.Description
        Exit Sub
    End If
    outputFile.Close
    MsgBox "Конвертация завершена успешно"
end sub

Без посимвольной проверки:
Function ReplaceUnsupportedChars(text)
    Dim regex
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    regex.IgnoreCase = False
    regex.Pattern = "[^\x00-\xFF]" ' Паттерн для символов за пределами стандартного диапазона Windows-1251
    ReplaceUnsupportedChars = regex.Replace(text, "?") ' Можно заменить на любой другой безопасный символ или строку
End Function

Function ReplaceSpecialChars(text)
    Dim regex
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    regex.IgnoreCase = False
    regex.Pattern = "[^А-Яа-яA-Za-z0-9ёЁ\s.,:;?!()\""-]" ' Паттерн для символов, поддерживаемых Windows-1251
    ReplaceSpecialChars = regex.Replace(text, "?")
End Function

sub ConvertCodepage(fileName, SourceCharset, DestCharset)
    On Error Resume Next
    set fs = CreateObject("Scripting.FilesystemObject")
    originalText = fs.openTextFile(fileName, 1, false, SourceCharset).readAll()
    If Err.Number <> 0 Then
        MsgBox "Ошибка чтения файла: " & Err.Description
        On Error GoTo 0
        Exit Sub
    End If

    ' Заменяем неподдерживаемые символы
    originalText = ReplaceUnsupportedChars(originalText)
    originalText = ReplaceSpecialChars(originalText)
    
    Set Stream = CreateObject("ADODB.Stream")
    Stream.Type = 2
    Stream.Mode = 3
    Stream.Open
    Stream.Charset = DestCharset
    Stream.WriteText originalText
    Stream.Position = 0
    convertedText = Stream.ReadText
    If Err.Number <> 0 Then
        MsgBox "Ошибка при чтении текста из потока: " & Err.Description
        On Error GoTo 0
        Exit Sub
    End If
    On Error GoTo 0
    
    set outputFile = fs.OpenTextFile(fileName, 2, true, 0)
    outputFile.WriteText convertedText
    If Err.Number <> 0 Then
        MsgBox "Ошибка при записи файла: " & Err.Description
        Exit Sub
    End If
    outputFile.Close
    MsgBox "Конвертация завершена успешно"
end sub

Ух сколько всего... Проверю...

(46) (7) UTF можно и формексом конвертить

Ага... Просто в карлике белее широкий набор вариантов и туда, и обратно.

Есть еще куча онлайн-сервисов конвертеров. Что они на твой файл скажут, если им его подсунуть?

Вот первая попавшаяся ссылка: https://subtitletools.com/convert-text-files-to-utf8-online
На самом деле, их много, с разной степенью "удобности" :-)

Сталкивался с похожими проблемами, когда через скрипт пишешь в тот же файл, который читаешь.
Решил через временный файл: один читаешь, в другой пишешь.

(58) хм, надо проверить такой вариант

v7: Перекодировка файла из utf8 в 1251
Похожая тема. Говорят, помогло.

(60) попробовал, работает!
Спасибо.
.
символы, которые нельзя перекодировать, заменяет на "?"

В итоге запилил так
    ADODBStream = CreateObject("ADODB.Stream");
    ADODBStream.Type = 2;

    ADODBStream.Charset = КодировкаОткуда;
    ADODBStream.Open();

    ADODBStream.LoadFromFile(ИмяФайла);
    Text = ADODBStream.ReadText();
    ADODBStream.Close();
    
    ADODBStream.Charset = КодировкаКуда;
    ADODBStream.Open();
    ADODBStream.WriteText(Text);
    ADODBStream.SaveToFile(ИмяФайла,2);
    ADODBStream.Close();
    ADODBStream = "";

    //{--- тоже рабочий вариант, v7: Перекодировка файла из utf8 в 1251#11 ----------------------------------------------------------    
    //Байт=255;
    //СтримВход = СоздатьОбъект("Adodb.Stream");
    //СтримВход.Type = 2;
    //СтримВход.charset = ИзКодировки;
    //СтримВход.Open();
    //СтримВход.LoadFromFile(ВременныйФайл);
    //СтримВыход = СоздатьОбъект("Adodb.Stream");
    //СтримВыход.Type = 2;
    //СтримВыход.charset = ВКодировку;
    //СтримВыход.Open();
    //Пока СтримВход.EOS=0 Цикл
    //    СтримВыход.WriteText(СтримВход.ReadText(Байт),?(Байт=-2,1,0));
    //КонецЦикла;
    //СтримВход.Close();
    //СтримВыход.SaveToFile(ИмяФайла,2);    
    //}--- тоже рабочий вариант, v7: Перекодировка файла из utf8 в 1251#11 ----------------------------------------------------------

(62) в чем принципиальное отличие от того что было изначально? Добавлено loadfromfile?

UTF8->1251 ?

хватит разврата...

(64) В электронных УПД требуется 1251, может разврата еще не хватает?

(65) Ну ок. Но это последний раз.

(66) к (65) В электронных УПД требуется 1251

Как будто это требование от нас или используемой платформы зависит... Это требование оператора ЭДО. Я в свое время тоже с этим "поизвращался"...