<pre>on documentResources  toComputer  put disk() & ":Fichiers:Listes:ResList" into filename  open file filename  put liste("piles") into allStacks  set itemDelimiter to tab  repeat with x = 1 to the number of lines of allStacks    put item 1 of line x of allStacks into fName    put item 2 of line x of allStacks into fPath    put "Documentation des ressources de :" && fName    put resList(fPath) into var    set itemDelimiter to ","    repeat with y = 1 to the number of lines of var      put item 1 of line y of var into r1      put item 2 of line y of var into r2      put item 3 of line y of var into r3      put item 4 of line y of var into r4      write fName & tab & r1 & tab & r2 & tab & r3 & tab & r4 & return       to file filename    end repeat    set itemDelimiter to tab  end repeat  close file filenameend documentResources</pre>