cs_jojac
Messages postés17Date d'inscriptionlundi 29 octobre 2007StatutMembreDernière intervention 4 décembre 2009
-
31 oct. 2007 à 08:57
cs_jojac
Messages postés17Date d'inscriptionlundi 29 octobre 2007StatutMembreDernière intervention 4 décembre 2009
-
31 oct. 2007 à 11:25
bonjour a tous,
voila j'utilise les ligne de code suivante:
Dim Buffer As String
Dim fn As Long
fn = Freefile
' Ouverture du fichier source
Open "TonFichier.txt" For Input As #fn
' Lecture du contenu du fichier et rangement dans le buffer
Buffer = Input(LOF(fn), #fn)
Close #fn
' Remplacement des occurences du mot cherché
Buffer = Replace(Buffer, "_XXXXXX", "111_XXXXXX")
' Ouverture du nouveau fichier
Open "NouveauFichier.txt" For Output As #fn
' Ecriture du buffer modifié dans ce fichier
Print #fn, Buffer
Close #fn
' Si besoin, suppression du fichier source
Kill "TonFichier.txt"
ces lignes de codes fonctionne tres bien pour l'utilisation que je fais mis a part un petit hic, le fameux "nouveaufichier" créé, se créé aleatoirement dans mes document ou dans le dossier ouse trouve mon programme.Ainsi une fois sur deux ma fonction copyfile echou car il ne trouve pas le fichier.Je voulais donc savoir si il y avait une solution pour directement specifier le chemin ou sera créé le fichhier "NouveauFichier.txt"
A voir également:
Choisir le chemin d'acces pour enregistrer un fichier cree avec vb
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 31 oct. 2007 à 11:03
Re,
Je pense que dans ton cas faire le test de présence du fichier n'est pas nécessaire, puisque tu écrases à chaque fois le fichier que tu viens de créer avec l'instruction Output.