Трабл с русскими именами файлов

Тема в разделе "Lotus - Программирование", создана пользователем Chernom0r, 16 сен 2005.

Статус темы:
Закрыта.
  1. Chernom0r

    Chernom0r Гость

    Драсти. народ.
    В lotus script любые операции с файловой системой (open, copy, del...) не срабатывают с русскими именами файлов и директорий.
    В дебаггере файл с именем файл.txt выглядит как |ф|а|й|л|.txt

    Чё блин за чудеса?
    Лотус R5 и клиенты и сервера.
     
  2. Vagor.ini

    Vagor.ini Гость

    Тоже было такое, причем и на русском дизайнере и на английском, все одно...
    help'образно запретил русские имена файлов.

    Сам желал бы узнать, как сие лечиться. :D
     
  3. Domino6

    Domino6 Гость

    <!--QuoteBegin-Chernom0r+16:09:2005, 16:00 -->
    <span class="vbquote">(Chernom0r @ 16:09:2005, 16:00 )</span><!--QuoteEBegin-->Чё блин за чудеса?
    [snapback]24925" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Это LMBCS - Lotus Multi Byte Character Set

    Обходим так:
    декларируем функцию которая выдает имя файла или переменную куда заносится имя файла

    Код (Text):
    .... As LMBCS String
    Пример вызова диалога открытия файла
    Код (Text):
    Declare Function NEMGetFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As LMBCS String, Byval szFilter As String, Byval szTitle As String ) As Integer
    Sub Click(Source As Button)
    'Declare variables...
    Dim szFileName As String*256
    Dim szTitle As String
    Dim szFilter As String
    Dim szSelectedFile as String
    'Set values...
    szFilename = Chr(0)
    szTitle = "Open File"
    szFilter = "All Files |*.*|Word Document |*.doc|Text Files|*.txt|"
    If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
    szSelectedFile = szFileName
    End If
    Print "Файл:",szSelectedFile
    End Sub
     
  4. Chernom0r

    Chernom0r Гость

    пасип. Попробую
     
  5. Chernom0r

    Chernom0r Гость

    Для: Domino6
    спасибо. Всё заработало :)
     
Загрузка...
Статус темы:
Закрыта.

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