Lotusstream и Cp866

Тема в разделе "Lotus - Программирование", создана пользователем phantom76, 5 мар 2008.

  1. phantom76

    phantom76 Lotus team
    Lotus team

    Регистрация:
    25 фев 2005
    Сообщения:
    363
    Симпатии:
    9
    Кто нибудь решал такую задачу, столкнулся что LotusStream не знает такую кодировку (CP866) ..
    как можно еще решить задачу выгрузки данных в формате дос?
     
  2. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    попробуй IBM866
     
  3. phantom76

    phantom76 Lotus team
    Lotus team

    Регистрация:
    25 фев 2005
    Сообщения:
    363
    Симпатии:
    9
    этот вариант уже пробывал.. не выгружает..

    в хелпе есть конекторы, но как ими пользоваться пока не знаю..

     
  4. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    или IBMCP866
     
  5. phantom76

    phantom76 Lotus team
    Lotus team

    Регистрация:
    25 фев 2005
    Сообщения:
    363
    Симпатии:
    9
    это в все уже пробывал... нужно выгрузить в текстовый файлик под досовскую русскую кодировку cp866..
    в описании notesStream :
    Valid character sets include: ASCII, Big5, Binary, EUC-JP, EUC-KR, EUC-TW, GB2312, ISO-2022-JP, ISO-2022-KR, ISO-8859-1 through ISO-8859-9, ISO-8859-15, KOI8-R, Latin4, Shift_JIS, System, TCVN3, Unicode, Unicode-1-1, US-ASCII, UTF-7, UTF-8, UTF-16, UTF-16BE, UTF-16LE, Windows-1250 through Windows-1258, and Windows-874. Binary implies byte operations only on the stream. Unicode is the same as UTF-16 and Unicode-1-1 is a compatible subset of UTF-16.

    т.е. русской досевой нет в описании.. :( джавой пока не владею, чтобы на ней написать..
     
  6. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    вот это попробуй, но корректность функции я не проверял (стиль кода ужасен)
    Код (Text):
    Private Function toDOS(Byval s_str$) As String
    On Error Resume Next
    Dim k%, n_asc%, s_chr$, FR$
    For k = Len(s_str) To 1 Step - 1
    s_chr = Mid(s_str, k, 1)
    n_asc = Asc(s_chr)
    If n_asc = 168 Then
    s_chr = Chr(240)
    Elseif n_asc = 184 Then
    s_chr = Chr(241)
    Elseif n_asc >= 192 And n_asc <= 239 Then
    s_chr = Chr(n_asc - 64)
    Elseif n_asc >= 240 And n_asc <= 255 Then
    s_chr = Chr(n_asc - 16)
    End If
    FR = s_chr + FR
    Next k
    toDOS = FR
    End Function
     
  7. phantom76

    phantom76 Lotus team
    Lotus team

    Регистрация:
    25 фев 2005
    Сообщения:
    363
    Симпатии:
    9
    Огромное спасибо!!! Работает!! :(
     
  8. dsdred

    dsdred Гость

    Зарание извеняюсь, я работаю админом системы документооборота основоной на Лотус,
    но тоже столкнулся с этой проблемой, а в програмировании на Лотус я чайник.
    Подскажите пожалуйста куда эту функцию подставить нужно?
     
  9. Sandr

    Sandr Гость

    Эту функцию вставте в какую-нит библиотеку.
    Потом, там где Вам нужно её использовать подключайте эту библиотеку и вызывайте функцию...
     
  10. dsdred

    dsdred Гость

    мне нужно чтобы эту функцию можно было в кнопку вогнать в тулбаре
     
  11. Sandr

    Sandr Гость

    Выберите на кнопке язык Lotus Script, скопируйте эту функцию и вставте на кнопке под последней строчкой процедуры Click (за End Sub). Она сама переместится куда надо.
    В сасой процедруе Click вызывайте эту функцию.

    Код (Text):
    dim dosString as string
    dosString = toDOS("срока для преобразования")
     
  12. dsdred

    dsdred Гость

    большое спасибо
     
Загрузка...
Похожие Темы - Lotusstream Cp866
  1. Izver84
    Ответов:
    1
    Просмотров:
    4.403

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