| Вопрос: кодировка дос | Добавлено: 13.07.07 12:31 |
Автор вопроса:  Bonapart | Web-сайт: team16.tut.su | ICQ: 175256 |
| как из оем/дос в обычную кодировку текс перевести |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Alexandr.R Вопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #1 | Добавлено: 13.07.07 13:06 |
|
Private Function ConvertEncoding(ByVal sXmlDocument As String) As XmlDocument Dim oReturnXmlDocument As New XmlDocument Dim oEncodingUnicode As Encoding = Encoding.Unicode Dim [oEncodingCP866] As Encoding = Encoding.GetEncoding(866) Dim oCP866Bytes As Byte() = [oEncodingCP866].GetBytes(sXmlDocument) Dim oUnicodeBytes As Byte() = Encoding.Convert([oEncodingCP866], oEncodingUnicode, oCP866Bytes) Dim oUnicodeChars(oEncodingUnicode.GetCharCount(oUnicodeBytes, 0, oUnicodeBytes.Length)) As Char oEncodingUnicode.GetChars(oUnicodeBytes, 0, oUnicodeBytes.Length, oUnicodeChars, 0) Dim sUnicodeString As New String(oUnicodeChars) oReturnXmlDocument.InnerXml = sUnicodeString Return oReturnXmlDocument End Function ф-ция переводит XML из ДОСовской кодировки(CP866) в Unicode |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 13.07.07 18:18 |
| CharToOEM/OEMToChar | ||
|
Номер ответа: 3 Автор ответа: BonapartICQ: 175256 Вопросов: 32 Ответов: 108 |
Web-сайт: Профиль | | #3 | Добавлено: 13.07.07 19:22 |
|
Второе лучше
только как пользоваться |
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 13.07.07 20:11 |
|
Чем? гуглом? Вот так:
http://www.google.com/search?ie=UTF-8&hl=ru&q=%56%42%20%43%68%61%72%54%6F%4F%45%4D |
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 13.07.07 20:13 |
Кстати, 3-ая ссылка гугла указывает на пример из нашей библы кодов - двойной незачёт топстартеру. Сначала нужно смотреть в библекодов/примерах, а потом постить на форум.. Хотя нет, после просмотра библы кодов нужно смотреть гугл, потом яндекс.. а уже потом форум 
|
||
|
Номер ответа: 6 Автор ответа: ua4ase Вопросов: 5 Ответов: 19 |
Профиль | | #6 | Добавлено: 01.08.07 14:20 |
|
В МОДУЛЕ
Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Public sOem As String ================== Public Function ANSI1OEM(ByVal sAnsi As String) As String sOem = String(Len(sAnsi), Chr(0)) CharToOem sAnsi, sOem (или: OemToChar sAnsi, sOem) End Function ================ В КОДЕ ФОРМЫ ANSI1OEM (Text1.Text) =============== |
||
Страница: 1 |