Кодировка создаваемого скриптом файла

Тема в разделе "Lotus - Программирование", создана пользователем Elena Nefedova, 26 мар 2007.

  1. Elena Nefedova

    Elena Nefedova Гость

    Open fileName
    [ For { Random | Input | Output | Append | Binary } ]
    [ Access { Read | Read Write | Write } ]
    [ { Shared | Lock Read | Lock Read Write | Lock Write } ]
    As [#]fileNumber
    [ Len = recLen ]
    [Charset = MIMECharsetName]

    Чтобы записать файл в нужной кодировке, нужно указать соответствующий параметр Charset = MIMECharsetName

    Вопрос:
    Как из списка всех этих кодировок выцепить единственно мне нужную - DOS ?

    PS: Рука дрогнула - полтекста стерлось :D
     
  2. Elena Nefedova

    Elena Nefedova Гость

    Ну неужели придется функцию писать?

    А ведь как хотелось красоты и простоты <_<
     
  3. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    вроде как это ibm866
     
  4. Elena Nefedova

    Elena Nefedova Гость

    Для: Kee_Keekkenen
    Может, и ibm866. Вот только не включили индусы эту кодировку в свой список вариантов - ругается лотус invalid MIME charset :(

    А ведь какая идея была прекрасная!
    Пришлось писать перекодировщик, который и выкладываю для желающих:
    Код (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
     
Загрузка...
Похожие Темы - Кодировка создаваемого скриптом
  1. NickProstoNick
    Ответов:
    6
    Просмотров:
    155
  2. R4z0R
    Ответов:
    17
    Просмотров:
    1.498
  3. PaKo
    Ответов:
    1
    Просмотров:
    1.078
  4. AndreyS
    Ответов:
    7
    Просмотров:
    3.284
  5. Niaden
    Ответов:
    1
    Просмотров:
    1.651

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