XProfan

Déclarer String z, a[3]
a[0] = "7:00"
a[1] = "7:15"
a[2] = "8:00"
a[3] = "17:00"
z = "Hans ist um XXXX aufgestanden, hat um XXXX gefrühstückt et ist um XXXX zur travail gefahren\nund um XXXX pour Hause gekommen."
Fenêtre 800, 400
Imprimer z
Imprimer MultiTanslate(z, "XXXX", Array(String "7:00", "7:15", "8:00", "17:00"))
Imprimer MultiTanslate(z, "XXXX", "7:00|7:15|8:00|17:00")

Proc MultiTanslate

    Déclarer Long savepos, savelen, p, x, typ

    Select pType$(3)

        CaseOf "$"

        Paramètres String z1, s2, z3
        typ = 1

        CaseOf "$[]"

        Paramètres String z1, s2, ersatz[]
        typ = 2

    EndSelect

    x = 0
    p = 0
    Set("RegEx", 1)

    Tandis que InStr(s2, z1)

        Si typ = 1

            z1 = Del$(z1, %MatchPos, %MatchLen)
            z1 = Ins$($ Substr(z3, x + 1, "|"), z1, %MatchPos)

        ElseIf typ = 2

            z1 = Del$(z1, %MatchPos, %MatchLen)
            z1 = Ins$(ersatz[x], z1, %MatchPos)

        EndIf

        Inc x
        Inc p, %MatchLen

    Endwhile

    Set("RegEx", 0)
    Retour z1

ENDPROC

WaitKey

Déclarer z$, a$[3]
a$[0] = "7:00"
a$[1] = "7:15"
a$[2] = "8:00"
a$[3] = "17:00"
z$ = "Hans ist um XXXX aufgestanden, hat um XXXX gefrühstückt et ist um XXXX zur travail gefahren\nund um XXXX pour Hause gekommen."
Fenêtre 800, 400
Imprimer z$
Imprimer MultiTanslate(z$, "XXXX", Array("7:00", "7:15", "8:00", "17:00"))
Imprimer MultiTanslate(z$, "XXXX", "7:00|7:15|8:00|17:00")

Proc Array'Array Funktion pour ältere XProfan Versionen

    declare b$[%PCount]

    whileloop 0,%PCount

        b$[&loop] = $(&loop+1)

    endwhile

    return b$[]

ENDPROC

Proc MultiTanslate

    Déclarer  savepos&, savelen&, p&, x&, typ&

    si pType$(3) = "$"

        Paramètres  z1$, s2$, z3$
        typ& = 1

    elseif left$(pType$(3),2) = "$["'dans XProfan 11 ist le nombre avec dabei, qui brauchen wir pas

        Paramètres  z1$, s2$, ersatz$[]
        typ& = 2

    d'autre

        return »

    Endif

    x& = 0
    p& = 0
    Set("RegEx", 1)

    Tandis que InStr(s2$, z1$)

        Si typ& = 1

            z1$ = Del$(z1$, %MatchPos, %MatchLen)
            z1$ = Ins$($ Substr(z3$, x& + 1, "|"), z1$, %MatchPos)

        ElseIf typ& = 2

            z1$ = Del$(z1$, %MatchPos, %MatchLen)
            z1$ = Ins$(ersatz$[x&], z1$, %MatchPos)

        EndIf

        Inc x&
        Inc p&, %MatchLen

    Endwhile

    Set("RegEx", 0)
    Retour z1$

ENDPROC

WaitKey