XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Strings konvertieren (Ansi <-> Ascii) per API
Def Chartooema(2) !USER32, CharToOemA
Def Oemtochara(2) !USER32, OemToCharA

Proc Text2ascii

    Parameters Text$
    Chartooema(Addr(Text$), Addr(Text$))
    Return Text$

Endproc

Proc Text2ansi

    Parameters Text$
    Oemtochara(Addr(Text$), Addr(Text$))
    Return Text$

Endproc

Declare Ansitext$, Asciitext$
Ansitext$ = äöüß
Print ANSI:  + Ansitext$ +  = Ascii:  + Text2ascii(Ansitext$)
Waitkey