Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch ber Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
bersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

AnsiiToAscii-TestCode :D

Uploader:Redakteurytwinky
Datum/Zeit:22.08.2007 20:35:48

#include "windows.bi"
FUNCTION yANSI2ASCII (BYVAL ConvertString AS STRING) AS STRING
    DIM OutString AS STRING=ConvertString
  Dim s As String=!"??'\34.^%S<O???Z''\34\34\7--~Ts>o?zYϾݑ" &_
    "󨷵ǎԐѥ噞 ᅃƄФ"
    FOR i AS INTEGER=0 TO LEN(OutString)-1
      If OutString[i]>127 And OutString[i]<256 Then OutString[i]=s[OutString[i]-128]
    NEXT i
    RETURN OutString
END FUNCTION

FUNCTION uANSI2ASCII (BYVAL ConvertString AS STRING) AS STRING
  DIM AS STRING OutString=ConvertString
  Static As Integer AscAnsDat(128)={ _
           63,  63,  39, 159,  34,  46, 197, 206,  94,  37,  83,  60,  79, 63, 63, 63, _
           90,  39,  39,  34,  34,   7,  45,  45, 126,  84, 115,  62, 111, 63, 122, 89, _
          255, 173, 189, 156, 207, 190, 221, 145, 149, 184, 166, 174, 170, 240, 169, 238, _
          248, 241, 253, 252, 239, 230, 244, 250, 247, 251, 167, 175, 172, 171, 243, 168, _
          183, 181, 182, 199, 142, 143, 146, 128, 212, 144, 210, 211, 222, 214, 215, 216, _
          209, 165, 227, 224, 226, 229, 153, 158, 157, 235, 233, 234, 154, 237, 232, 160, _
          225, 133, 131, 198, 132, 134, 145, 135, 138, 130, 136, 137, 141, 161, 140, 139, _
          208, 164, 149, 162, 147, 228, 148, 246, 155, 151, 163, 150, 129, 236, 231, 152}
    FOR i AS INTEGER=0 TO LEN(OutString)-1
      If OutString[i]>127 And OutString[i]<256 Then OutString[i]=AscAnsDat(OutString[i]-128)
    NEXT i
  RETURN OutString
END FUNCTION

Dim As String Ori="ߎę֚񱸩", Ansi=Ori, Ascii=Space(Len(Ansi))
?yANSI2ASCII (Ansi)
CharToOem Ansi, Ascii
?Ascii
?"Warum nehm ich nicht gleich die von volta vorgeschlagene Lsung?"
?"Da hab ich auch gleich noch die Rckumwandlung.. ;-))"
Sleep