Discussion :

[t_om84]

Bonjour,

Suite a un changement de logiciels dans ma société, je dois modifier certains scripts python en scripts tcl.

J'ai un script python qui lit un fichier et qui récupère les données contenues dans le fichier, qui se présente comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{'Part1': ['produit1.jar', 'produit2.jar'], 'Part2':['produit3.jar']}

je le lis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
def getJarList(pluginInJarDict,key):
    resu = pluginInJarDict.get(key,None)
    if resu is None :
        resu = []
    return resu
 
f=open(dictFile,'r')
pluginInJarDict=eval(f.readline())
f.close()
dbJars.extend(getJarList(pluginInJarDict,'Part1'))
guiJars.extend(getJarList(pluginInJarDict,'Part2'))

Le problème, c'est que je ne peux pas toucher au fichier d'origine. Donc j'essaye de trouver une solution qui me permettrai de faire exactement la même chose en tcl

Merci pour l'aide

[mipicard]

Voici un début en utilisant les dict de Tcl

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
set txt {'Part1': ['produit1.jar', 'produit2.jar'], 'Part2':['produit3.jar']}
 
# remplace la vigule après un ] par un point virgule
regsub -all {\](\ )*,} $txt  {\];} txt2
 
 
foreach paire [split $txt2 ";"] {
    foreach {clef don} [split $paire :] {
        set clef [string trim $clef]
        set don [string trim $don]
        dict set mesdata $clef $don
    }
}

C'est encore à paufiner.