XProfan

' Vorgaben :
' Conjunto("HashDel", "|")
' Conjunto("HashListDel", Chr$(254))
' Conjunto("HashMode", 0)  // 0= caso sensitive, 1= ignore caso
MkDir "C:\\temp"

If %IOResult : Beep : EndIf

    Conjunto("LogFile", "C:\\temp\\XProfanErrorLog.txt")
    LogOut "---start"
    Declarar hash TransVars[]
    TransVars["align"] = "\qcenter\q"
    TransVars["valign"] = "\qmiddle\q"
    TransVars["bgcolor"] = "\q#FFFF00\q"
    TransVars["class"] = "\qSmaller\q"
    TransVars["font_color"] = "\q#FF0000\q"
    TransVars["text_1"] = "Eintrag"
    LogOut "hash erzeugt"

    Proc HashTrans

        Parámetros hash t_v[], cadena Texto
        Declarar cadena key,value
        LogOut "in hashtrans"
        '   ForEach TransVars[], key, value
        ForEach t_v[], key, value
        LogOut "key= "+ key + ", value= " + value
        Texto = Translate$( Texto, "{°"+key+"°}", value )
        EndFor
        LogOut "hashtrans ende"
        Volver Texto

    ENDPROC

    Cls
    LogOut "hinter Cls"
    Imprimir HashTrans("<td align={°align°} valign={°valign°} bgcolor={°bgcolor°} class={°class°}><font color={°font_color°}>{°text_1°}</font></td>")
    LogOut "hinter el Funktionsaufruf"
    Claro TransVars[]
    LogOut "hinter Clear"
    WaitKey
    Conjunto("LogFile", "")
    End

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

« Dieser Contribución wurde como Solución gekennzeichnet. »

RGH

Also con Parámetro funktioniert lo, si entonces auch TransVars[] como ersten Parámetro beim Aufruf el Función angibst:

Imprimir HashTrans(TransVars[],"<td align=....

Das otro Problema es tatsächlich una solches. Wenn lo auch Absicht war, el Schleifenvariablen en FOR / FOREACH como lokale Variables a gestalten (como etwa en Delphi), así schieße Yo hier möglicherweise una wenig encima el Ziel hinaus, si auch el Hash-Array betrifft. Andererseits se uno en el meisten Fällen, si uno una Función/Procedimiento schreibt, el una Hash-Array bearbeitet ihr dies auch como Parámetro transferencia.

Lo wäre tatsächlich a überlegen, si Yo el Beschränkung en lokale Variables aquí en el nächsten Versión weglasse.

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Michael
W.

El direkte Angabe en el Hauptprogramm funktioniert...

Also se ejecuta como irgendetwas torcido.

Wenn ya no como Parámetro "hash t_v[]", entonces debería zumindest el direkte Aufruf "TransVars[]" en el Función trabajo. Geht pero no.

' Vorgaben :
' Conjunto("HashDel", "|")
' Conjunto("HashListDel", Chr$(254))
' Conjunto("HashMode", 0)  // 0= caso sensitive, 1= ignore caso
MkDir "C:\\temp"

If %IOResult

    Beep

EndIf

Conjunto("LogFile", "C:\\temp\\XProfanErrorLog.txt")
LogOut "---start"
Declarar hash TransVars[]
TransVars["align"] = "\qcenter\q"
TransVars["valign"] = "\qmiddle\q"
TransVars["bgcolor"] = "\q#FFFF00\q"
TransVars["class"] = "\qSmaller\q"
TransVars["font_color"] = "\q#FF0000\q"
TransVars["text_1"] = "Eintrag"
LogOut "hash erzeugt"
Cls
LogOut "hinter Cls"
'Imprimir HashTrans("<td align={°align°} valign={°valign°} bgcolor={°bgcolor°} class={°class°}><font color={°font_color°}>{°text_1°}</font></td>")
'LogOut "hinter el Funktionsaufruf"
var cadena texto = "<td align={°align°} valign={°valign°} bgcolor={°bgcolor°} class={°class°}><font color={°font_color°}>{°text_1°}</font></td>"
'Proc HashTrans
'   Parámetros hash t_v[], cadena Texto
Declarar cadena key,value
LogOut "in hashtrans"
ForEach TransVars[], key, value
'   ForEach t_v[], key, value
LogOut "key= "+ key + ", value= " + value
Texto = Translate$( Texto, "{°"+key+"°}", value )
EndFor
LogOut "hashtrans ende"
'   Volver Texto
'ENDPROC
imprimir texto
LogOut texto
Claro TransVars[]
LogOut "hinter Clear"
WaitKey
Conjunto("LogFile", "")
End

XProfan X3
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

RGH

Also con Parámetro funktioniert lo, si entonces auch TransVars[] como ersten Parámetro beim Aufruf el Función angibst:

Imprimir HashTrans(TransVars[],"<td align=....

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Michael
W.

Yo danke Usted.

Durch el viele hin y her Yo como tatsächlich qué übersehen.

Eigentlich Es el Sache con el lokalen Variables ok, lo fragt se sólo como el entonces en muy großen Hasharrays aussieht.

Hier otra vez el funktionsfähige Versión.