Перекодировка теста

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

Наш партнер Genesis Hackspace
  1. romanko

    romanko Гость

    здравствуйте! не подскажите как сделать перекодировку текста сообщения. например приходит сообщение на лотус ящик в формате win1251 от конкретного пользователя потом срабатывает какой-то агент и перекодирует его в формат utf8. заранее благодарен за проявленную помощь!
     
  2. romanko

    romanko Гость

    Нужно считать текст с мемо и перекодировать его. Как это реализовать? помогите!!!

    Добавлено: Нужно считать текст с мемо и перекодировать его, но при этом перекодировать не все сообщения которые приходят на ящик а только от одного пользователя. Как это реализовать? помогите!!!
     
  3. romanko

    romanko Гость

    Немного не так. Приходит на маил xml файл приатачменый его нужно перекодировать в UTF8. подскажите пожайлуста как это сделать??
     
  4. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.109
    Симпатии:
    19
    открыть оригинальный стрим в win1251 и новый стрим в URF8 и закопипастить
     
  5. romanko

    romanko Гость

    Можно подробнее...
     
  6. Гость

    Раскажи подробнее как это сделать и если можеш с примером очень интересно и думаю пригодится.
     
  7. romanko

    romanko Гость

    Вот так можно перевести в utf-8?


    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim body As NotesMIMEEntity
    Dim stream As NotesStream
    Set db = s.CurrentDatabase
    s.ConvertMIME = False ' Do not convert MIME to rich text
    Set doc = db.CreateDocument
    Call doc.ReplaceItemValue("Form", "Main Form")
    Set body = doc.CreateMIMEEntity
    Set header = body.CreateHeader("Subject")
    Call header.SetHeaderVal("MIME one-part message")
    Set stream = s.CreateStream
    Call stream.WriteText("Text of message.")
    Call body.SetContentFromText _
    (stream, "text/plain;charset=UTF-8", ENC_IDENTITY_7BIT)
    Call doc.Save(True, True)
    s.ConvertMIME = True ' Restore conversion

    Так жеш создается документ майм в кодировке UTF-8. можно в него засунуть значение переменной?и вывести как-то результат??
     
Загрузка...

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