Italia
Foro

Translate und RegEx

 

Jörg
Sellmeyer
Ciao,
Wie wäre es wenn Translate einen optionalen Parameter bekommt:
KompilierenMarkierenSeparieren
Translate$(Text$,Zeichen$,Ersatz$,RegEx%)
>

Wenn RegEx% 1 ist, funktioniert Translate$ so, wie ein vorher eingestelltes Set(RegEx,1).
Wenn RegEx% 0 ist, funktioniert Translate$ so, wie ein vorher eingestelltes Set(RegEx,0).
Ohne zusätzlichen Parameter hält Translate sich an den mit Set(RegEx,n%) eingestellten Wert.

Ich schlage das vor, weil im Programm oft zwischen beiden hin und her geschaltet werden muß und diese Version die Arbeit doch sehr erleichtern würde.

Damit kann man sich erst mal behelfen:
KompilierenMarkierenSeparieren
Proc TransReg$

    If %pcount = 3

        Parameters s$,s1$,s2$
        Return Translate$(s$,s1$,s2$)

    ElseIf %pcount = 4

        Parameters s$,s1$,s2$,rx%
        Declare ret$
        rx%=Set("RegEx",rx%)
        ret$=Translate$(s$,s1$,s2$)
        Set("RegEx",rx%)
        Return ret$

    EndIf

EndProc


Fest eingebaut wäre das bestimmt schneller.

Saluto
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
14.10.2006  
 




Nico
Madysa
Nunja, aber wenn du halt nicht nach regulären Asudrücken suchst, kannst du den gesuchten Text doch ganz normal eingeben, oder?
KompilierenMarkierenSeparieren
text$ = Translate$(text$,"Mein schönen tolles Käsebrot","Deine suppie Wurststulle)
>

würde mit Set(RegEx,1) und mit Set(RegEx,0) das selbe Ergebnis liefern, oder?
 
Nico Madysa
16.10.2006  
 




Jörg
Sellmeyer
[quote:7cca656b81=Nico Madysa]Nunja, aber wenn du halt nicht nach regulären Asudrücken suchst, kannst du den gesuchten Text doch ganz normal eingeben, oder?
KompilierenMarkierenSeparieren
text$ = Translate$(text$,"Mein schönen tolles Käsebrot","Deine suppie Wurststulle)
>

würde mit Set(RegEx,1) und mit Set(RegEx,0) das selbe Ergebnis liefern, oder?[/quote:7cca656b81]
Nur: Wenn Du vorher RegEx eingeschaltet hast funktionieren einige Sachen nicht mehr. Du darfst z.B. keine $ oder ~ im Suchstring haben.
Man muß also immer erst testen ob RegEx ein oder aus ist. Oder jedesmal darauf achten RegEx wieder auszuschalten. Was wieder zwei Zeilen Code mehr bedeutet, die mit einem 4 Parameter in Delphi-Geschwindigkeit abgearbeitet würden.

Saluto
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
16.10.2006  
 




Nico
Madysa
Und wie wärs so?
KompilierenMarkierenSeparieren
proc NewTranslate$

    parameters wort$ , such$ , ersatz$ , mod%
    declare status% , res$
    status% = Set("RegEx",mod%)
    res$ = Translate$(wort$,such$,ersatz$)
    Set("RegEx",status%)
    return res$

e
 
Nico Madysa
16.10.2006  
 




Jörg
Sellmeyer
Das ist ja genau das, was ich oben auch geschrieben habe, nur daß bei mir ein Translate mit 3 Parametern eben auch als normales Translate behandelt wird.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
16.10.2006  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

1.894 Views

Untitledvor 0 min.
H.Brill07.12.2023
Walter05.06.2022
Sven Bader10.08.2021
Christof Neuß06.09.2018
Di più...

Themeninformationen

Dieses Thema hat 2 subscriber:

Jörg Sellmeyer (3x)
Nico Madysa (2x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie