Ansi + Solaris

[NickProstoNick]

Всем привет!
Проблема с кодировкой при чтении текстовых файлов. Как решить вопрос?
Файл конвертировать нельзя... по крайней мере пользователя заставлять конвертировать нельзя
На входе Dos/Windows ANSI

 

[lmike]

а поточней - читать где?

 

[NickProstoNick]

а поточней - читать где?

Серверный агент разбирает файл. Вот собственно разбирает криво.
В результате получаю нечитабельный текст. Параметры стрима перебирал разные.

 

[lmike]

стрим в какой кодировке? ДОС?
тоды указываем при открытии...
НО (и я об этом где-то упоминал) если со стримом "ничего" не сделать (например ДХЛ парсеру не отдать) - будут кракозябры
как вокэраунд - вот так, с ЮТФ8:

Private Const MIME_TYPE_UTF8={text/plain; charset=UTF-8}
Function UTF8toClient(strm As NotesStream) As String
'для отображения UTF-8 кодировки в клиенте Lotus Notes
'--------------------------------------------------------------------------------------------------------------
ses.ConvertMime=False
Dim doc As NotesDocument
Set doc=db.CreateDocument()
Dim body As NotesMimeEntity
Set body=doc.CreateMIMEEntity
Call body.SetContentFromText(strm, MIME_TYPE_UTF8, ENC_NONE)
UTF8toClient=body.ContentAsText
ses.ConvertMime=True
'--------------------------------------------------------------------------------------------------------------
End Function
Function UTF8toClientTXT(s As String) As String
'для отображения UTF-8 кодировки в клиенте Lotus Notes
'--------------------------------------------------------------------------------------------------------------
Dim strm As NotesStream
Set strm=ses.CreateStream()
Call strm.WriteText(s)
UTF8toClientTXT=UTF8toClient(strm)
ses.ConvertMime=True
'--------------------------------------------------------------------------------------------------------------
End Function