На сервере кодировка CP1251
Пишу в файл .csv в кодировке CP866 do ppl.WriteLine(id_";"_$zcvt($tr(^people(id),"`",";"),"I","CP866"))Если пишу в кодировке CP1251 - в файле кракозябы.
Потом читаю из этого файла....
И не пойму, как перевести прочитанное в CP1251 s str=ppl.ReadLine()
w $zcvt(str,"I","CP1251")Если делать так - выводит опять кракозябы, если CP866 написать, то тоже кракозябы, только другие.
Как перевести прочитанное в другую кодировку?
Midnight_girlПишу в файл .csv в кодировке CP866 do ppl.WriteLine(id_";"_$zcvt($tr(^people(id),"`",";"),"I","CP866"))
при записи должно быть $zcvt(text,"O","CP866")
есть разница во втором параметре, она означает направление в котором конвертировать строку, In/Out из или в текущую кодировку
Midnight_girl ,
Запись в файл s file=##class(%Stream.FileCharacter).%New()
s file.Filename="c:\test.csv"
s file.TranslateTable="CP1251"
d file.WriteLine("Привет")
d file.%Save()Чтение из файла s file=##class(%Stream.FileCharacter).%New()
s file.Filename="c:\test.csv"
s file.TranslateTable="CP1251"
w file.ReadLine(),!
Midnight_girlНа сервере кодировка CP1251
Пишу в файл .csv в кодировке CP866Поэтому в примере servit должно быть:
s file.TranslateTable="CP866"
Midnight_girl...и Cache на это согласен -)В Cache нет встроенного ИИ :) Вы задали аргументы функции, они прошли проверку корректности. Откуда $zcvt знает, может вам и вправду надо "O"?
Запомнить, когда "I", а когда "O", могут помочь простые правила:
- третий аргумент - всегда внешняя таблица (и никогда - внутренняя)
- в локализации, используемой по умолчанию при 8-битной установке, внутренняя таблица - CP1251;
- второй аргумент (как заметил DAiMor) - направление, которое указывается относительно внутренней таблицы. Т.е., если вы кодируете (во внешнюю кодировку), то "O" - output, если раскодируете - "I".
