Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Widestring mit unerwartetem Ergebnis
Autor: Michael Wodrich (---.customer.vsm.sh)
Datum:   20.08.18 22:00

Damit habe ich nicht gerechnet:

 
 Proc LCase
    Parameters widestring source
    Declare widestring erg
    erg = Lower$(source)
    return erg
 EndProc
 
 Proc UCase
    Parameters widestring source
    Declare widestring erg
    erg = Upper$(source)
    return erg
 EndProc
 
 cls
 declare string s1
 declare widestring s2
 
 s1 = "Überfliegertest "
 s2 = "Überfliegertest "
 
 print $profver
 
 //  Die Funktionen geben nichts zurück
 print "<";s1;">", "<"; LCase(s1); ">", "<"; UCase(s1); ">"
 print "<";s2;">", "<"; LCase(s2); ">", "<"; UCase(s2); ">"
 
 
 // Unicode darstellen
 // Kreuz und ein Häckchen selbst codiert als UTF-8
 s1 = chr$($E2)+chr$($9C)+chr$($97) + chr$($20) + chr$($E2)+chr$($9C)+chr$($93) // UTF-8
 s2 = UTF8Decode(s1)
 
 // liegt's am Font?
 print ""
 font 0
 print "<";s1;">", "<"; s2; ">"
 font 1
 print "<";s1;">", "<"; s2; ">"
 font 2
 print "<";s1;">", "<"; s2; ">"
 
 var handle h = Create("Font","Verdana",0,0, 0,0,0)
 SetDialogFont h
 DrawText 10,150, "<" $ s1 $ "> " $ "<" $ s2 $ "> "
 
 s1 = "Unicode läßt sich also darstellen  "
 s1 = UTF8Encode(s1) + chr$($E2)+chr$($9C)+chr$($93)
 s2 = UTF8Decode(s1)
 DrawText 50,190, s2
 DeleteObject h
 waitinput
 end
 


Ändere ich die Parameter der Funktionen auf normale Strings, dann läuft es.

Das mit dem Unicode ist aber ganz schön umständlich.

--
Programmieren, das spannendste Detektivspiel der Welt.
Programmierumgebung: | XProfan (neueste) | Win (neueste)


Nachricht bearbeitet (20.08.18 22:03)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Widestring mit unerwartetem Ergebnis  Neu
Michael Wodrich 20.08.18 22:00 
 Re: Widestring mit unerwartetem Ergebnis  Neu
Michael Wodrich 20.08.18 22:14 
 Re: Widestring mit unerwartetem Ergebnis  Neu
Michael Wodrich 20.08.18 23:46 
 Re: Widestring mit unerwartetem Ergebnis  Neu
Michael Wodrich 21.08.18 00:37 
 Re: Widestring mit unerwartetem Ergebnis  Neu
RGH 21.08.18 10:00 
 Re: Widestring mit unerwartetem Ergebnis  Neu
RGH 26.08.18 01:34 
 Re: Widestring mit unerwartetem Ergebnis  Neu
Michael Wodrich 22.08.18 02:27 
 Re: Widestring mit unerwartetem Ergebnis  Neu
Karl-Jürgen Hilger 29.08.18 22:17 
 Re: Widestring mit unerwartetem Ergebnis  Neu
Michael Wodrich 31.08.18 01:48 
 Re: Widestring mit unerwartetem Ergebnis  Neu
Karl-Jürgen Hilger 31.08.18 11:16 
 Re: Widestring mit unerwartetem Ergebnis  Neu
Michael Wodrich 31.08.18 11:47 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org