| |
|
|
Jörg Sellmeyer | Salut, comment wäre es si Translate une optionalen paramètre bekommt: KompilierenMarqueSéparation si RegEx% 1 ist, funktioniert Translate$ so, comment un auparavant eingestelltes Set(RegEx,1). si RegEx% 0 ist, funktioniert Translate$ so, comment un auparavant eingestelltes Set(RegEx,0). sans zusätzlichen paramètre hält Translate sich à den avec Set(RegEx,n%) eingestellten Wert.
je schlage cela avant, weil im Programme souvent entre beiden hin et her geschaltet volonté doit et cet Version qui travail doch très erleichtern serait.
avec cela peux on sich seulement la fois behelfen: KompilierenMarqueSéparation
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 incorporé wäre cela bestimmt plus rapide.
Salut Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 14.10.2006 ▲ |
|
|
|
|
Nico Madysa | Nunja, mais si du arrêt pas pour regulären Asudrücken cherches, peux du den gesuchten Text doch entier normal eingeben, ou bien? KompilierenMarqueSéparationtext$ = Translate$(text$,"Mein schönen tolles Käsebrot","Deine suppie Wurststulle) > serait avec Set(RegEx,1) et Set(RegEx,0) cela selbe Ergebnis liefern, ou bien? |
|
|
| |
|
|
|
Jörg Sellmeyer | [quote-part:7cca656b81=Nico Madysa]Nunja, mais si du arrêt pas pour regulären Asudrücken cherches, peux du den gesuchten Text doch entier normal eingeben, ou bien? KompilierenMarqueSéparationtext$ = Translate$(text$,"Mein schönen tolles Käsebrot","Deine suppie Wurststulle) > serait avec Set(RegEx,1) et Set(RegEx,0) cela selbe Ergebnis liefern, ou bien?[/quote-part:7cca656b81] seulement: si Du auparavant RegEx eingeschaltet la hâte marcher quelques Sachen pas plus. Du darfst z.B. aucun $ ou bien ~ im Suchstring avons. il faut alors toujours seulement testen si RegEx un ou bien aus ist. ou bien chaque fois puis achten RegEx wieder auszuschalten. quoi wieder deux Zeilen Code plus bedeutet, qui avec einem 4 paramètre dans Delphi-Geschwindigkeit abgearbeitet würden.
Salut Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 16.10.2006 ▲ |
|
|
|
|
Nico Madysa | |
|
| |
|
|
|
Jörg Sellmeyer | c'est oui oui c'est ca cela, quoi je dessus aussi geschrieben habe, seulement qui chez mir un Translate avec 3 Parametern plan aussi comme normales Translate behandelt wird. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 16.10.2006 ▲ |
|
|
|