XProfan

Declare String z, a[3]
a[0] = "7:00"
a[1] = "7:15"
a[2] = "8:00"
a[3] = "17:00"
z = "Hans is circa XXXX aufgestanden, has circa XXXX gefrühstückt and is circa XXXX to work drove\nund circa XXXX to dwell come."
Window 800, 400
Print z
Print MultiTanslate(z, "XXXX", aray(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, type

    Select pType$(3)

        CaseOf "$"

        Parameters String z1, s2, z3
        type = 1

        CaseOf "$[]"

        Parameters String z1, s2, substitute[]
        type = 2

    EndSelect

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

    While InStr(s2, z1)

        If type = 1

            z1 = Del$(z1, %MatchPos, %MatchLen)
            z1 = in that$(SubStr$(z3, x + 1, "|"), z1, %MatchPos)

        ElseIf type = 2

            z1 = Del$(z1, %MatchPos, %MatchLen)
            z1 = in that$(substitute[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 is circa XXXX aufgestanden, has circa XXXX gefrühstückt and is circa XXXX to work drove\nund circa XXXX to dwell come."
Window 800, 400
Print z$
Print MultiTanslate(z$, "XXXX", aray("7:00", "7:15", "8:00", "17:00"))
Print MultiTanslate(z$, "XXXX", "7:00|7:15|8:00|17:00")

Proc aray'aray function for ältere XProfan versions

    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 is the amount with thereby, The need we not

        Parameters  z1$, s2$, substitute$[]
        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$ = in that$(SubStr$(z3$, x& + 1, "|"), z1$, %MatchPos)

        ElseIf typ& = 2

            z1$ = Del$(z1$, %MatchPos, %MatchLen)
            z1$ = in that$(substitute$[x&], z1$, %MatchPos)

        EndIf

        Inc x&
        Inc p&, %MatchLen

    EndWhile

    Set("RegEx", 0)
    Return z1$

ENDPROC

WaitKey