Fichier en lecture, en écriture et en les ajoutant dans TCL

En TCL, comment faire pour ajouter un contenu différent en un seul fichier à l'aide de la for boucle ou foreach boucle?

Qu'entendez-vous par "contenu différent"?

OriginalL'auteur galvin Verghese | 2011-04-11

  1. 20

    Vouliez-vous dire quelque chose comme ça?

    set fo [open file a]
foreach different_content {"text 1" "text two" "something else" "some content"} {
  puts $fo $different_content
}
close $fo

    Vous ouvrez un fichier file en mode a (append) et écrire dans le fichier descripteur ($fo dans l'exemple).

    Mise à jour: Si vous voulez ajouter de la variable contenu, vous devez modifier le script pour:

    set fo [open file a]
foreach different_content [list $data1 $data2 $data3 $data4] {
  puts $fo $different_content
}
close $fo
    merci pour la réponse rapide.
    oui j'ai vérifié cher, sa fonctionne très bien, merci u tellement............
    son ok fine. Mais j'ai un problème de plus. Le problème est qu'suppose que si je déclare comme ça: ensemble de données data1 "connect / as sysdba;\n" set data2 {bobine $TMP/"DBTEST"_dbmode.txt} définir data3 "\nchoisir OPEN_MODE, NOM, CONTROLFILE_TYPE DE V\$de BASE de données;\n" et ainsi de suite.... Si je veux écrire dans un fichier alors, comment puis-je remplacer le data1,data2 ..... des valeurs. Exactement ce que je veux, je veux mettre le $data1 valeur dans la boucle foreach, alors comment dois-je faire, Merci de m'aider.. jeu de données4 "spool off;\n"
    Je ne suis pas entièrement sûr si je vous ai bien compris, mais j'ai mis à jour ma réponse.
    voir la situation

    OriginalL'auteur bmk

  2. 1

    Le code suivant crée un fichier texte dans le dossier 'P' et écrit.

    set fid [open p:\\temp.txt w]

puts $fid "here   is the first line."

close $fid

    OriginalL'auteur Balachandar

  3. 0

    Le code suivant est très bien pour la lecture à partir d'un fichier, où sample.tcl fichier est disponible dans le 'p' de dossier.

    Rubrique

    set fp [open "p://sample.tcl" r]

set file_data [read $fp]

puts $file_data

close $fp

    OriginalL'auteur Balachandar