XProfan

English

H.Brill

white someone, as System-Variables $Match, %MatchPos, %MatchLen
with Translate$() To behandlen are ?
loudly Help should these Yes sowohl with InStr() as well as with Translate$()
staid go.

with InStr() works the too, but with Translate$() shine these
not staid To go. there Translate$() Yes rekursiv operates, should
$Match etc. Yes in the function Translate$() yourself each Fund
staid go.

here an example, circa dopplete characters
auszufiltern and To supplant.
Compile Mark Separation

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
End

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.

07/10/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote