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

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



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

Function ANSI2OEM(ByVal sAnsi As String) As String
Dim sOem As String

sOem = String(Len(sAnsi), Chr(0))
CharToOem sAnsi, sOem
ANSI2OEM = sOem
End Function


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


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

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


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