Есть строка , при выполнении обработки нужно ее перевести в кодировку windows-1251. Как это можно сделать, не пойму. Я уже думаю может в временный файл сохранять (там есть возможность указания кодировки) и потом с него читать. Люди, что посоветуете?

а на зачем?

Сохраняй во временный файл, потом читай.
Или ADODB.Stream прикрути...

Тебе коды символов в windows-1251 нужны ?

function СимволИзУникодаВАнси(Буква)
   
 Симв=КодСимвола(Буква);
 if (Симв<128) Тогда
     Возврат буква
  ИначеЕсли (Симв>=1040 и Симв<=1103)Тогда
  Возврат Символ(Симв-1040+192-128)
ИначеЕсли Симв=КодСимвола("Ё") Тогда
    Возврат Символ(168-128);
ИначеЕсли Симв=КодСимвола("ё") Тогда
    Возврат Символ(184-128)
ИначеЕсли Симв=КодСимвола("№") Тогда
    Возврат Символ(185-128)
  else
      Сообщить(Символ(Симв));
  КонецЕсли;
 
   Возврат ""
КонецФункции

function СимволАнсиТуУникоде(Буква)
   
         КодСимв=КодСимвола(Буква)+128;
        Если (КодСимв>=192 и КодСимв<=255) Тогда
            Возврат Символ(КодСимв+1040-192)
        ИначеЕсли КодСимв=168 Тогда
            возврат "Ё"
        ИначеЕсли КодСимв=184 Тогда
            возврат "ё"
        ИначеЕсли КодСимв=185 Тогда
            возврат "№"
        Иначе
            сообщить(КодСимв)
        КонецЕсли;

   
        Возврат ""
КонецФункции

Прошу прощения это код и перевода для Code128. Не нужно вычитать 128

(5) Тоесть обрабатывать каждый символ через такую функцию
function СимволИзУникодаВАнси(Буква)
   
 Симв=КодСимвола(Буква);
 if (Симв<128) Тогда
     Возврат буква
  ИначеЕсли (Симв>=1040 и Симв<=1103)Тогда
  Возврат Символ(Симв-1040+192)
ИначеЕсли Симв=КодСимвола("Ё") Тогда
    Возврат Символ(168);
ИначеЕсли Симв=КодСимвола("ё") Тогда
    Возврат Символ(184)
ИначеЕсли Симв=КодСимвола("№") Тогда
    Возврат Символ(185)
  else
      Сообщить(Символ(Симв));
  КонецЕсли;
 
   Возврат ""
КонецФункции

(1) +1
если в файл, я так понял, всё равно сохранять не надо, то, действительно, зачем?

Эта функция 100% переобразует в windows-1251

function СимволИзУникодаВАнси(Буква)
   
 Симв=КодСимвола(Буква);
 if (Симв<128) Тогда
     Возврат буква
  ИначеЕсли (Симв>=1040 и Симв<=1103)Тогда
  Возврат Символ(Симв-1040+192)
ИначеЕсли Симв=КодСимвола("Ё") Тогда
    Возврат Символ(168);
ИначеЕсли Симв=КодСимвола("ё") Тогда
    Возврат Символ(184)
ИначеЕсли Симв=КодСимвола("№") Тогда
    Возврат Символ(185)
  else
      Сообщить(Символ(Симв));
  КонецЕсли;
 
   Возврат ""
КонецФункции

?

А проверить никак? Возими все симовлы русского алфавита, перекодируй этой функцией. Сохрани в файл ASCII, а прочитай через кодировку 1251

Или Сохрани все русские символы в файл с кодировкой windows-1251 а открой US-ASCII и сравни коды символов