XProfan

English

Jörg
Sellmeyer

Hi,
how'bout if Translate a optionalen Parameter get:
Compile Mark Separation

Translate$(Text$,Zeichen$,Ersatz$,RegEx%)

If RegEx% 1 is, functions Translate$ so, like a before eingestelltes Set(RegEx,1).
If RegEx% 0 is, functions Translate$ so, like a before eingestelltes Set(RegEx,0).
without additional Parameter holds Translate itself on whom with Set(RegEx,n%) tuned worth.

I hit the to, because in the program often between both hither and thither geschaltet go must and these Version The work still very relieve would.

so can itself first time behelfen:
Compile Mark Separation

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

solid installed would the certainly faster.

Greeting
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

10/14/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Nico
Madysa

Nunja, but if You hold not to regulären Asudrücken seek, can you whom sought Text still integrally normal prompt, or?
Compile Mark Separation

text$ = Translate$(text$,"Mein schönen tolles Käsebrot","Deine suppie Wurststulle)

would with Set(RegEx,1) and Set(RegEx,0) the same Result supplying, or?

Nico Madysa

10/16/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

[quote:7cca656b81=Nico Madysa]Nunja, but if You hold not to regulären Asudrücken seek, can you whom sought Text still integrally normal prompt, or?
Compile Mark Separation

text$ = Translate$(text$,"Mein schönen tolles Käsebrot","Deine suppie Wurststulle)

would with Set(RegEx,1) and Set(RegEx,0) the same Result supplying, or?[/quote:7cca656b81]
only: If you before RegEx eingeschaltet have functions some things not any more. You must z.B. no $ or ~ in the Suchstring having.
one must means always first testing whether RegEx one or from is. or jedesmal hereon respect RegEx again auszuschalten. what again two Lines code More means, The with a 4 Parameter in Delphi-speed worn out would.

Greeting
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

10/16/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Nico
Madysa

and How wärs so?
Compile Mark Separation

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