Страница 1 из 1
Выбор кодировки при "Open filename For Input As #1"
Добавлено: 21 дек 2007, 12:28
ShuR
Приветствую.
Подскажите пожалуйсто, как можно изменить кодировку файла открываемого как "Open filename For Input As #1" ( подобно тому, как это деалется при "Workbooks.OpenText ... " при помощи параметра Origin).
Re: Выбор кодировки при "Open filename For Input As #1"
Добавлено: 21 дек 2007, 16:04
Teslenko_EA
Здравствуйте
ShuR.
Для изменения кодировки DOS - Win и наоборот можно использовать следующие функции:
Код: Выделить всё
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Function DW(s$)as String
DW = Space$(Len(s))
OemToChar s, DW
End Sub
Function WD(s$)as String
WD = Space$(Len(s))
CharToOem s, WD
End Sub
Евгений.
Re: Выбор кодировки при "Open filename For Input As #1"
Добавлено: 21 дек 2007, 16:42
ShuR
Teslenko_EA.
Большое спасибо за помошь. Очень помогли.
Re: Выбор кодировки при "Open filename For Input As #1"
Добавлено: 21 дек 2007, 17:04
Teslenko_EA
ShuR, опечатка:
функции закрываются конечно же End Function, а не End Sub. извините
Евгений.
Re: Выбор кодировки при "Open filename For Input As #1"
Добавлено: 21 дек 2007, 17:27
ShuR
Teslenko_EA писал(а):ShuR, опечатка:
функции закрываются конечно же End Function, а не End Sub. извините
Евгений.
МЫСЛЬ и с опечаткой ясна, за неё и благодарен.