не скажу ничего нового, просто шобыбыло
на самом деле можно для любого CharSet (КМК)
возможно многие сталкивались, что просто хоца позырить - что прочитали из файла, а он (энтот файл) в кодировочке-то не виндистой (т.е. Не Windows-1251) и нотусня его не покажить правильно (что и понятно)...
Рылся тут и нашёл свой старый
он о другом - там нужно было закодировать, но небольшая коррекция даст искмое :angry2:
в случ. с ЮТФ-8 chset={text/plain; charset=UTF-8}
на самом деле можно для любого CharSet (КМК)
возможно многие сталкивались, что просто хоца позырить - что прочитали из файла, а он (энтот файл) в кодировочке-то не виндистой (т.е. Не Windows-1251) и нотусня его не покажить правильно (что и понятно)...
Рылся тут и нашёл свой старый
Ссылка скрыта от гостей
он о другом - там нужно было закодировать, но небольшая коррекция даст искмое :angry2:
Код:
Function ReEncode(strm As NotesStream, chset As String) As String
Dim ses As New NotesSession
Dim doc As notesdocument
Dim db As notesdatabase
Dim body As NotesMimeEntity
ReEncode={}
ses.ConvertMIME = False
Set db = ses.CurrentDatabase
Set doc = db.createdocument
Set body = doc.CreateMIMEEntity
Call body.SetContentFromText(strm, chset, ENC_NONE)
ReEncode=body.ContentAsText
ses.ConvertMIME = True
End Function