 |
..........................................................................................................................
| [ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ] |
|
|
| [ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ] |
|
Перевод текста ANSI -> OEM. Пример, нужный любому русскому программисту, сталкивающемуся с переводом текстов из DOS в Windows и обратно. Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As LongFunction ANSI2OEM(ByVal sAnsi As String) As String Dim sOem As String sOem = String(Len(sAnsi), Chr(0)) CharToOem sAnsi, sOem ANSI2OEM = sOem End Function |
|
|
|
|
>>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! |
>>>Если у вас есть статья которой нет на сайте
пришлите ее мне--------> Послать статью >>>Если вы хотите задать вопрос пишите--------> Мне нужна помощь |
|
|
|
|
|
|