MyTetra Share
Делитесь знаниями!
Перекодирование строки в CP-866 и обратно в WIN-12 (API)
19.07.2018
19:35
Раздел: VBA - Access - msa.polarcom.ru - 13 Преобразование Строк


Перекодирование строки в CP-866 и обратно в WIN-12 (API)

По материалам : http://www.sql.ru/forum/

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

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


Public Function OEM2ANSI(ByVal sOem As String) As String

Dim sAnsi As String

sAnsi = String(Len(sOem), Chr(0))

OemToChar sOem, sAnsi

OEM2ANSI = sAnsi

End Function


Public 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



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования