XProfan

Declarar String z, a[3]
a[0] = "7:00"
a[1] = "7:15"
a[2] = "8:00"
a[3] = "17:00"
z = "Hans es en XXXX aufgestanden, ha en XXXX gefrühstückt y es en XXXX a Arbeit gefahren\nund en XXXX después de Casa gekommen."
Ventana 800, 400
Imprimir z
Imprimir MultiTanslate(z, "XXXX", Array(String "7:00", "7:15", "8:00", "17:00"))
Imprimir MultiTanslate(z, "XXXX", "7:00|7:15|8:00|17:00")

Proc MultiTanslate

    Declarar Largo savepos, savelen, p, x, typ

    Select pType$(3)

        CaseOf "$"

        Parámetros String z1, s2, z3
        typ = 1

        CaseOf "$[]"

        Parámetros String z1, s2, ersatz[]
        typ = 2

    EndSelect

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

    Mientras que 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

    Conjunto("RegEx", 0)
    Volver z1

ENDPROC

WaitKey

Declarar z$, a$[3]
a$[0] = "7:00"
a$[1] = "7:15"
a$[2] = "8:00"
a$[3] = "17:00"
z$ = "Hans es en XXXX aufgestanden, ha en XXXX gefrühstückt y es en XXXX a Arbeit gefahren\nund en XXXX después de Casa gekommen."
Ventana 800, 400
Imprimir z$
Imprimir MultiTanslate(z$, "XXXX", Array("7:00", "7:15", "8:00", "17:00"))
Imprimir MultiTanslate(z$, "XXXX", "7:00|7:15|8:00|17:00")

Proc Array'Array Función para ältere XProfan Versionen

    declarar b$[%PCount]

    whileloop 0,%PCount

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

    endwhile

    volver b$[]

ENDPROC

Proc MultiTanslate

    Declarar  savepos&, savelen&, p&, x&, typ&

    if pType$(3) = "$"

        Parámetros  z1$, s2$, z3$
        typ& = 1

    elseif left$(pType$(3),2) = "$["'en XProfan 11 Es el Anzahl con esta, el brauchen wir no

        Parámetros  z1$, s2$, ersatz$[]
        typ& = 2

    más

        volver ""

    Endif

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

    Mientras que 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

    Conjunto("RegEx", 0)
    Volver z1$

ENDPROC

WaitKey