XProfan

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

Si %IOResult : Beep : EndIf

    Set("LogFile", "C:\\temp\\XProfanErrorLog.txt")
    LogOut "---start"
    Déclarer 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

        Paramètres hash t_v[], string Text
        Déclarer string clé,value
        LogOut "in hashtrans"
        '   ForEach TransVars[], clé, value
        ForEach t_v[], clé, value
        LogOut "key= "+ clé + ", value= " + value
        Text = Translate$( Text, "{°"+clé+"°}", value )
        EndFor
        LogOut "hashtrans ende"
        Retour Text

    ENDPROC

    Cls
    LogOut "hinter Cls"
    Imprimer HashTrans("<td align={°align°} valign={°valign°} bgcolor={°bgcolor°} class={°class°}><font color={°font_color°}>{°text_1°}</font></td>")
    LogOut "hinter dem Funktionsaufruf"
    Claire TransVars[]
    LogOut "hinter Clear"
    WaitKey
    Set("LogFile", »)
    Fin

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

« cette Beitrag wurde comme Solution gekennzeichnet. »

RGH

alors avec paramètre funktioniert es, si Du ensuite aussi TransVars[] comme ersten paramètre beim Aufruf qui Funktion angibst:

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

l'autre Problem ist réellement un solches. si es aussi intention était, qui Schleifenvariablen chez FOR / FOREACH comme lokale Variablen trop gestalten (comment etwa dans Delphi), so schieße je ici möglicherweise un peu sur cela but hinaus, si es aussi cela Hash-Array betrifft. Andererseits wird on dans den meisten Fällen, si on une Funktion/Procédure écrit, qui un Hash-Array bearbeitet son ca aussi comme paramètre transfert.

Es wäre réellement trop überlegen, si je qui Beschränkung sur lokale Variablen ici dans qui prochain Version weglasse.

Salut
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.

qui directe Angabe im Hauptprogramm funktioniert...

alors fonctionne là irgendetwas de travers.

si déjà pas comme paramètre "hash t_v[]", ensuite devrait zumindest qui directe Aufruf "TransVars[]" dans qui Funktion marcher. allez mais pas.

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

Si %IOResult

    Beep

EndIf

Set("LogFile", "C:\\temp\\XProfanErrorLog.txt")
LogOut "---start"
Déclarer 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"
'Imprimer HashTrans("<td align={°align°} valign={°valign°} bgcolor={°bgcolor°} class={°class°}><font color={°font_color°}>{°text_1°}</font></td>")
'LogOut "hinter dem Funktionsaufruf"
var string text = "<td align={°align°} valign={°valign°} bgcolor={°bgcolor°} class={°class°}><font color={°font_color°}>{°text_1°}</font></td>"
'Proc HashTrans
'   Paramètres hash t_v[], string Text
Déclarer string clé,value
LogOut "in hashtrans"
ForEach TransVars[], clé, value
'   ForEach t_v[], clé, value
LogOut "key= "+ clé + ", value= " + value
Text = Translate$( Text, "{°"+clé+"°}", value )
EndFor
LogOut "hashtrans ende"
'   Retour Text
'ENDPROC
imprimer text
LogOut text
Claire TransVars[]
LogOut "hinter Clear"
WaitKey
Set("LogFile", »)
Fin

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

RGH

alors avec paramètre funktioniert es, si Du ensuite aussi TransVars[] comme ersten paramètre beim Aufruf qui Funktion angibst:

Imprimer 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.

je remercie Dir.

par cela viele hin et her habe je là réellement quoi übersehen.

Eigentlich ist qui l'affaire avec den lokalen Variablen ok, es fragt sich seulement comment cela ensuite chez très grand Hasharrays aussieht.

ici nochmal qui funktionsfähige Version.