9
votes

Lecture de fichier, écriture et annexiste dans TCL

dans TCL, comment appendez un contenu différent dans un seul fichier à l'aide du pour boucle ou foreach boucle


1 commentaires

Qu'entendez-vous par «contenu différent»?


3 Réponses :


23
votes

Avez-vous voulu dire quelque chose comme ça? XXX

Vous ouvrez le fichier fichier en mode A (Ajouter) et écrivez dans le fichier. Descripteur ( $ fo dans l'exemple).

mise à jour: Si vous souhaitez ajouter des contenus variable, vous devez modifier le script à: xxx


4 commentaires

c'est ok bien. Mais j'ai un autre problème. Le problème est que supposons que si je déclare comme si je déclare comme ça: Définir Data1 "Connect / comme sysdba; \ n" SET DATA2 {SPOOL $ TMP / "DBTEST" _DBMODE.TXT} SET DATA3 "\ NSELECT Open_Mode, Nom, ControlFile_Type de V \ $ Database; \ n "et ainsi de suite .... Si je veux écrire dans un fichier, alors comment puis-je substituer les valeurs Data1, Data2 ...... Exactement ce que je veux, je veux mettre la valeur $ Data1 dans la boucle de Forache, alors comment dois-je faire, aidez-moi s'il vous plaît .. Définissez Data4 "Spool off; \ n"


@galvin: Je ne suis pas totalement sûr que si je vous ai bien compris, mais j'ai mis à jour ma réponse.


Voir la situation que je définis la valeur de la variable le permet: définir data1 "Ceci est la valeur de données1" et secondes est défini Data2 "Ceci est la valeur DATA2" Maintenant, je veux écrire la valeur des données variables1 et Data2 à l'aide de la boucle de Foreach. Puis-je faire, aidez-moi s'il vous plaît. Ici, je fais comme ceci: SET FO [OUVERT $ FILENAME W] FORECH DIFFÉRENT_Content {Data1 Data2} {Met $ $ fo $ Différent_Content} Fermer $ fo} mais ça ne fonctionne pas .???????????? ???


@galvin: Si vous le faites comme si vous le faites, vous écrirez «DATA1» et «DATA2» dans le fichier. Vous devez faire par exemple foreach différent_content "$ data1 $ data2" {met $ $ fo $ différent_content}



0
votes

Le code suivant convient à la lecture d'un fichier, où sample.tcl est disponible dans le dossier 'p'.

en direction < Pré> xxx


0 commentaires

1
votes

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

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

puts $fid "here   is the first line."

close $fid


0 commentaires