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 
 Re: Widestring mit unerwartetem Ergebnis
Autor: Michael Wodrich (---.customer.vsm.sh)
Datum:   21.08.18 00:37


Vorläufig ohne Parameters und Return gelöst.
Bekommen wir noch das \u als Ersatzzeichen spendiert?


 
 cls
 print $profver
 
 Proc uni
    Parameters widestring s
    // ...
    return s
 EndProc
 
 Proc TEST
    Declare widestring derText
    
    var handle h = Create("Font","Verdana",0,0, 0,0,0)
    SetDialogFont h
    // derText = "Unicode läßt sich also darstellen <\u2717\u2713>   "
    // DrawText 10,50, uni(derText)
    // derText = "Aber in einer PROC mit Rückgabe wäre das \u2764\u2764\u2764 wiel schöner \u2764\u2764\u2764"
    // DrawText 10,50+25, uni(derText)
    
    derText = "Unicode läßt sich also darstellen <\u2717\u2713>   "
    Declare widestring __ws,__f,__c, int __P,__L
    __ws = derText
    __f = Match$("\\u([0-9A-F]{1,4})",__ws) : __P = %MatchPos : __L = %MatchLen
    While __f != ""
       __c = chr$(Val(Translate$(__f,"\u","$")))
       __ws = del$(__ws,__P,__L) : __ws = Ins$(__c,__ws,__P)
       __f = Match$("\\u([0-9A-F]{1,4})",__ws) : __P = %MatchPos : __L = %MatchLen
    EndWhile
    derText = __ws
    DrawText 10,50, derText
 
    derText = "Aber in einer PROC mit Rückgabe wäre das \u2764\u2764\u2764 viel schöner \u2764\u2764\u2764"
    'Declare widestring __ws,__f,__c, int __P,__L
    __ws = derText
    __f = Match$("\\u([0-9A-F]{1,4})",__ws) : __P = %MatchPos : __L = %MatchLen
    While __f != ""
       __c = chr$(Val(Translate$(__f,"\u","$")))
       __ws = del$(__ws,__P,__L) : __ws = Ins$(__c,__ws,__P)
       __f = Match$("\\u([0-9A-F]{1,4})",__ws) : __P = %MatchPos : __L = %MatchLen
    EndWhile
    derText = __ws
    DrawText 10,50+25, derText
 
    DeleteObject h
 EndProc
 
 TEST
 waitinput
 end
 


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


 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