Utf-8 (и Др.) Файлы

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 985
611
BIT
473
не скажу ничего нового, просто шобыбыло

на самом деле можно для любого 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
в случ. с ЮТФ-8 chset={text/plain; charset=UTF-8}
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!