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

  • Автор темы Chernom0r
  • Дата начала
Статус
Закрыто для дальнейших ответов.
C

Chernom0r

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

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

Vagor.ini

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

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

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

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

Код:
.... As LMBCS String
Пример вызова диалога открытия файла
Код:
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
 
C

Chernom0r

Для: Domino6
спасибо. Всё заработало :)
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!