Trucos Varios II
OEMTOANSI & VISCEVERSA
Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
testo_dos$ ="città, virtù, però, così, perchè"
testo_oem$ = "città, virtù, però, così, perchè"
Call OemToChar(testo_dos$, testo_oem$)
msgbox(testo_oem$)
|
