Перевод текста из Dos в Win кодировку и обратно


Как всегда начало программы- это объявления всех функций и констант, для этого в строке Generel Declarations прописать
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String,_
ByVal lpszDst As String)As Long
Private Declare Function CharToOem& Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String,_
ByVal lpszDst As String)

'Из Dos в Win
Public Sub DOS2WIN()
Dim inputStr$, outputStr$, Code&
outputStr$ = Space$(Len(inputStr$))
Code& = OemToChar(inputStr$, outputStr$)
End Sub



'Из Win в Dos
Public Sub WIN2DOS()
Dim inputStr$, outputStr$, Code&
outputStr$ = Space$(Len(inputStr$))
Code& = CharToOem(inputStr$, outputStr$)
End Sub



А теперь разберем, как же всем этим воспользоваться. Итак InputStr$ - переменная, которой Вы должны присвоить значения текста, который Вы хотите перевести, а outputStr$ - конечный результат перекодировки. Пример:
Помещаете на форму TextBox с именем txtCode и кнопку Code. Из прописываем в Generel Declarations следующее:
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String,_
ByVal lpszDst As String)As Long
Private Sub Code_Click()
Dim inputStr$, outputStr$, Code$
inputStr$ = txtCode.Text
outputStr$ = Space$(Len(inputStr$))
Code$ = OemToChar(inputStr$,outputStr$)
txtCode.text = outputStr$
End Sub