XProfan

Español

Jörg
Sellmeyer

¡Hola,
Como wäre lo si Translate una optionalen Parámetro bekommt:
Kompilieren Marca Separación

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

Wenn RegEx% 1 es, funktioniert Translate$ así, como una vorher eingestelltes Conjunto(RegEx,1).
Wenn RegEx% 0 es, funktioniert Translate$ así, como una vorher eingestelltes Conjunto(RegEx,0).
Ohne zusätzlichen Parámetro hält Translate se a el con Conjunto(RegEx,n%) eingestellten Valor.

Yo schlage el antes, porque en el Programa oft zwischen beiden hin y her geschaltet voluntad muß y esta Versión el Arbeit doch muy erleichtern sería.

Damit puede ser se sólo veces behelfen:
Kompilieren Marca Separación

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

Festival instalado wäre el determinado más rápido.

Saludo
Jörg

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

14.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nico
Madysa

Nunja, pero si du sólo no después de regulären Asudrücken suchst, kannst du el gesuchten Texto doch bastante normal eingeben, oder?
Kompilieren Marca Separación

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

sería con Conjunto(RegEx,1) y Conjunto(RegEx,0) el selbe Ergebnis liefern, oder?

Nico Madysa

16.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

[quote:7cca656b81=Nico Madysa]Nunja, pero si du sólo no después de regulären Asudrücken suchst, kannst du el gesuchten Texto doch bastante normal eingeben, oder?
Kompilieren Marca Separación

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

sería con Conjunto(RegEx,1) y Conjunto(RegEx,0) el selbe Ergebnis liefern, oder?[/quote:7cca656b81]
Nur: Si usted vorher RegEx eingeschaltet hast trabajo algunos Sachen no mehr. Usted darfst z.B. no $ oder ~ en el Suchstring haben.
Man muß also siempre sólo testen si RegEx una oder de es. Oder jedesmal darauf achten RegEx otra vez auszuschalten. Was otra vez zwei Zeilen Code mehr bedeutet, el con un 4 Parámetro en Delphi-Geschwindigkeit abgearbeitet würden.

Saludo
Jörg

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

16.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nico
Madysa

Und como wärs así?
Kompilieren Marca Separación

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