XProfan

Declare 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 und ist um XXXX zur Arbeit gefahren\nund um XXXX nach Hause gekommen."
Window 800, 400
Print z
Print MultiTanslate(z, "XXXX", Array(String "7:00", "7:15", "8:00", "17:00"))
Print MultiTanslate(z, "XXXX", "7:00|7:15|8:00|17:00")

Proc MultiTanslate

    Declare Long savepos, savelen, p, x, typ

    Select pType$(3)

        CaseOf "$"

        Parameters String z1, s2, z3
        typ = 1

        CaseOf "$[]"

        Parameters String z1, s2, ersatz[]
        typ = 2

    EndSelect

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

    While InStr(s2, z1)

        If 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)
    Return z1

EndProc

WaitKey

Declare 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 und ist um XXXX zur Arbeit gefahren\nund um XXXX nach Hause gekommen."
Window 800, 400
Print z$
Print MultiTanslate(z$, "XXXX", Array("7:00", "7:15", "8:00", "17:00"))
Print MultiTanslate(z$, "XXXX", "7:00|7:15|8:00|17:00")

Proc Array'Array Funktion für ältere XProfan Versionen

    declare b$[%PCount]

    whileloop 0,%PCount

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

    endwhile

    return b$[]

EndProc

Proc MultiTanslate

    Declare  savepos&, savelen&, p&, x&, typ&

    if pType$(3) = "$"

        Parameters  z1$, s2$, z3$
        typ& = 1

    elseif left$(pType$(3),2) = "$["'in XProfan 11 ist die Anzahl mit dabei, die brauchen wir nicht

        Parameters  z1$, s2$, ersatz$[]
        typ& = 2

    else

        return ""

    Endif

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

    While InStr(s2$, z1$)

        If 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)
    Return z1$

EndProc

WaitKey