Copier une ligne d'un fichier .csv a un autre fichier .csv en tcl
Fermé
ielkalio
Messages postés1Date d'inscriptiondimanche 30 décembre 2018StatutMembreDernière intervention30 décembre 2018
-
Modifié le 30 déc. 2018 à 20:21
Bonjour,
Je suis nouveau a tcl et je souhaite copier une ligne dans un fichier .csv a un endroit precis dans une colonne dans un autre fichier .csv.
Voici ce que j'ai fait. Je copie une ligne dans un fichier a un autre fichier .csv. Mais je veux automatiser le processus et faire en sorte que je collecte une ligne precise dans un fichier .csv et je la met dans un autre fichier .csv a une colonne precise. Je veux eviter de faire les choses manuellement.
Merci pour votre aide.
ielkalio
package require csv
set fp [open "SourceFile.csv" r] set secondColumnData {} while {[gets $fp line]>=0} { if {[llength $line]>0} { lappend secondColumnData [lindex [split $line ","] 1] } } close $fp puts $secondColumnData
set filename "destination.csv" # open the filename for writing set fileId [open $filename "w"] # send the data to the file - # omitting '-nonewline' will result in an extra newline # at the end of the file puts -nonewline $fileId $secondColumnData # close the file, ensuring the data is written out before you continue # with processing. close $fileId
A voir également:
Copier une ligne d'un fichier .csv a un autre fichier .csv en tcl