• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь

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

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 663
295
#1
не скажу ничего нового, просто шобыбыло

на самом деле можно для любого 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}
 
Вверх Снизу