1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

Тема в разделе "Lotus - Программирование", создана пользователем lmike, 17 ноя 2011.

  1. lmike

    lmike нет, пердело совершенство
    Lotus team

    Репутация:
    3
    Регистрация:
    27 авг 2008
    Сообщения:
    6.406
    Симпатии:
    346
    не скажу ничего нового, просто шобыбыло

    на самом деле можно для любого 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}
     
Загрузка...
Похожие Темы - Utf (и Др
  1. mazimaz
    Ответов:
    29
    Просмотров:
    1.894
  2. Vadik(R)
    Ответов:
    4
    Просмотров:
    1.541
  3. garrick
    Ответов:
    2
    Просмотров:
    1.499
  4. shisik
    Ответов:
    1
    Просмотров:
    1.389
  5. NickProstoNick
    Ответов:
    8
    Просмотров:
    2.506

Поделиться этой страницей