| Вопрос: кодировка Koi8-R | Добавлено: 19.07.07 15:42 |
Автор вопроса:  DmBl
|
| народ, кто знает - расскажите плиз как программно перевести текс из кодировки Koi8-R в нормальную кирилицу для Windows. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #1 | Добавлено: 19.07.07 16:42 |
|
Ну сколько раз уже писали. Один из вариантов:
Attribute VB_Name = "mdlCodePage" Option Explicit Enum idCodePage Win = 1251  os = 866
Koi = 20866 Iso = 28595 End Enum Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, _ ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, _ ByVal cchWideChar As Long) As Long Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, _ ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, _ ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long Public Function ConvertCodePage(SourseString As String, inPage As idCodePage, outPage As idCodePage) As String Dim LenSourseString As Long Dim strFirst As String Dim strSecond As String Dim RetStrLong As Long LenSourseString = Len(SourseString) strFirst = String(LenSourseString * 2, Chr(0)) strSecond = String(LenSourseString * 2, Chr(0)) RetStrLong = MultiByteToWideChar(inPage, &H1, SourseString, LenSourseString, StrPtr(strFirst), LenSourseString) RetStrLong = WideCharToMultiByte(outPage, 0, StrPtr(strFirst), RetStrLong, strSecond, LenSourseString * 2, ByVal 0, 0) ConvertCodePage = Left(strSecond, RetStrLong) End Function |
||
|
Номер ответа: 2 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #2 | Добавлено: 19.07.07 16:44 |
| Первая строчка лишняя. Просто из Farа копировал. | ||
|
Номер ответа: 3 Автор ответа: DmBl Вопросов: 3 Ответов: 3 |
Профиль | | #3 | Добавлено: 19.07.07 16:51 |
| Пасиб большое. Может и писал, да поиск тока чё-то щас не фурычит... | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 20.07.07 21:30 |
| а гугл? | ||
Страница: 1 |