Copier une ligne d'un fichier .csv a un autre fichier .csv en tcl

Fermé
ielkalio Messages postés 1 Date d'inscription dimanche 30 décembre 2018 Statut Membre Dernière intervention 30 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: