Главная страницаОбратная связьКарта сайта

Перекодировка текста из DOS в Windows



Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Dim l_lReturn As Long
Dim l_sSource As String 'исходный текст
Dim l_sDestination As String 'возвращаемый текст
l_lReturn = OemToChar(l_sSource, l_sDestination)


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Перекодировка текста из DOS в Windows", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info