XProfan

Français

H.Brill

sais quelqu'un, comment qui Système $Match, %MatchPos, %MatchLen
chez Translate$() trop behandlen sommes ?
le son Aider devrait cet oui sowohl chez InStr() comme aussi chez Translate$()
gesetzt volonté.

chez InStr() klappt cela aussi, mais chez Translate$() sembler cet
pas gesetzt trop volonté. là Translate$() oui rekursiv arbeitet, devrait
$Match usw. oui dans qui Funktion Translate$() selber chez chaque Fund
gesetzt volonté.

ici un Beispiel, um dopplete marque
auszufiltern et trop ersetzen.
Kompilieren Marque Séparation

Declare a$, b$, d&
Set("RegEx", 1)
// Hier mit InStr//
d& = 1
a$ = "abcdefgghijklmnnoopqrstuvwxyzz"

While InStr("(.)~1+", a$, d&) > 0

    If $Match <> ""

        d& = %MatchPos
        Print $Match
        a$ = Translate$(a$, $Match, Right$($Match, 1))

    EndIf

EndWhile

Print a$
Print "Jetzt mit Translate$()  TASTE DRÜCKEN...."
Waitkey
// hier mit Translate$() //
Print Translate$("abcdefgghijklmnoopqrstuvwwwxyzz", "(.)~1+", Left$($Match, 1))
Waitkey
Fin

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

10.07.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation