| Вопрос: Как преобразовать Dos кодировку в Win? | Добавлено: 23.09.04 12:12 |
Автор вопроса:  EDIK
|
|
Как преобразовать Dos кодировку в Win???
с примером если можно |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: crackoff ICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #1 | Добавлено: 23.09.04 12:26 |
|
CharToOem OemToChar |
||
|
Номер ответа: 2 Автор ответа:  POD_Luka ICQ: 334099107 Вопросов: 10 Ответов: 19 |
Профиль | | #2 | Добавлено: 23.09.04 13:03 |
|
Объяви...
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszDst As String, ByVal lpszSrc As String) As Long Dim WIN_String As String * 255 OemToChar DOS_0String, WIN_String WinFileStr = Mid(WIN_String, 1, Len(DOS_String)) 'получаем строчку в Win кодировке |
||
|
Номер ответа: 3 Автор ответа:  BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #3 | Добавлено: 23.09.04 13:29 |
|
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 ' Перевод текста в кодировку DOS Private Function ToDOS(Text As String) As String Dim Text1 As String Text1 = Space(Len(Text) + 1) OemToChar Text, Text1 ToDOS = Left$(Text1, Len(Text)) End Function ' Перевод текста в кодировку Windows Private Function ToWindows(Text As String) As String Dim Text1 As String Text1 = Space(Len(Text) + 1) CharToOem Text, Text1 ToWindows = Left$(Text1, Len(Text)) End Function |
||
|
Номер ответа: 4 Автор ответа: crackoffICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #4 | Добавлено: 23.09.04 13:57 |
|
Все гораздо проще, зачем доп. вызовы Функций итп? Dim s As String * n s = "строка для конвертации" CharToOem s, s Где n>=len(s) |
||
Страница: 1 |