cs_SornDrixer
Messages postés2084Date d'inscriptionjeudi 12 décembre 2002StatutMembreDernière intervention30 janvier 20118 9 déc. 2004 à 21:08
Bonsoir,
Je passe juste pour réagir à cette remarque :
"Bon ce n'est pas trop le forum adapté pour le tcl"
IRCFR regroupe tout se qui parle d'IRC, ce n'est pas mircscriptfr, donc mIRC Script, TCL/TK, perl (pour Xchat par exemple) sont admis.
Cordialement, Sorn_Drixer -
:question) Mon site : Sorn-Creation
hindhinf
Messages postés50Date d'inscriptiondimanche 9 mai 2004StatutMembreDernière intervention27 juillet 20072 10 déc. 2004 à 10:35
merci tout d'abord
j'ai essayer ce que vous venez de proposer ca n'a pas doné de résutat .
le mieux c'est que je t'explique ce que je veux faire :
j'ai un fichier texte nommé text.txt , je veux créer un fichier t.txt qui n'existe pas auparavant nommé : t.txt où je copierai le contenu du premmier d'une autre façon
mon code est le suivant :
proc fichier:conv {fileIn fileOut} {
set fileIn "c:/test.txt"
set fileOut "c:/t.txt"
# verifier si les fichiers sont visibles
if { ![file readable $fileIn] } { return "erreur : fichier input non lisible"}
if { ![file readable $fileOut] } { return "erreur : fichier inpOut non lisible"}
#ouvrir le fichier input
set fIn [open $fileIn "r"]
#ouvrir le fichier output
#set fOut [open "c:/t.txt" "a+"]
set fOut [createfile [ open $fileOut w ]]
while { ![eof $fIn] } {
set p1 [gets $fIn]
set x1 [gets $fIn]
set x2 [gets $fIn]
set y1 [gets $fIn]
set y2 [gets $fIn]
set xx "$x1 $y2"
set yy "$y1 $y2"
#ecrire dans le fichier output
puts $fOut $p1
puts $fOut $xx
puts $fOut $yy
}
#fermer le fichier output
close $fIn
#fermer le fichier input
close $fOut
}
set f1 "c:/test.txt"
set f2 "c:/t.txt"
fichier:conv f1 f2
puts "réussie"
Vous n’avez pas trouvé la réponse que vous recherchez ?
talking
Messages postés343Date d'inscriptiondimanche 30 novembre 2003StatutMembreDernière intervention19 août 20061 10 déc. 2004 à 15:48
Je viens de retrouver une code que j'ai fait il y a pas longtemps mais qui efface le fichier je l'ai modifié pour ton as essaie voir ce que ça donne
proc majf { fichier texte } {
set file [open $fichier r+]
set ftemp [open t.txt w]
set contenu [lrange [ split [read $file] "\n"] 0 end ]
foreach liste $contenu {
if {[lindex $liste 0] == [lindex $texte 0]} {
if {[lindex $liste 1] == [lindex $texte 1]} {
puts $ftemp $texte
continue
}
}
if {$liste != ""} { puts $ftemp $liste }
}
close $file
close $ftemp
}
hindhinf
Messages postés50Date d'inscriptiondimanche 9 mai 2004StatutMembreDernière intervention27 juillet 20072 10 déc. 2004 à 16:06
le problème n'est pas dans le fait d'ecrie sur un fichier existant mais de créer un fichier non existant . pour ton code j'ai pas tres bien compris son sens
talking
Messages postés343Date d'inscriptiondimanche 30 novembre 2003StatutMembreDernière intervention19 août 20061 10 déc. 2004 à 19:29
Ben c'est de la façàon d'ouvrir ton fichier
regarde ce que dit l'aide :
r Ouvre le fichier pour la lecture seulement; le fichier doit déjà exister. C'est la valeur par défaut si access n'est pas spécifié.
r+ Ouvre le fichier pour la lecture et l'écriture; le fichier doit déjà exister.
w Ouvre le fichier pour l'écriture seulement. Le tronque s'il existe. S'il n'existe pas, crée un nouveau fichier.
w+ Ouvre le fichier pour la lecture et l'écriture. Le tronque s'il existe. S'il n'existe pas, crée un nouveau fichier.
a Ouvre le fichier pour l'écriture seulement. Si le fichier n'existe pas, crée un nouveau fichier vide. Positionne le curseur à la fin du fichier.
a+ Ouvre le fichier pour la lecture et l'écriture. Si le fichier n'existe pas, crée un nouveau fichier vide. Positionne le curseur à la fin du fichier.