cs_jojac
Messages postés17Date d'inscriptionlundi 29 octobre 2007StatutMembreDernière intervention 4 décembre 2009
-
8 nov. 2007 à 16:49
pneau
Messages postés258Date d'inscriptionmercredi 21 avril 2004StatutMembreDernière intervention27 octobre 2010
-
9 nov. 2007 à 09:30
Bonjour a tous voila j'ai donc deux fichier .AWL qui s'ouvre avec le blocnote, je voudrais reunifierces deux fichier.
explication peut etre plus concrete:
admetons le fichier TOTO1.AWL
contenant le texte:"il etait une fois"
et le fichier TOTO2.AWL contenant le fichier "fin de l'histoire"
le but du progamme que je recherche est d'obtenir un troisieme fichier TOTO3 par exemple contenant le texte:
"il etait une fois
fin de l'histoire"
par contre ici mes fichier contienne quelque mot mais en realite ils en contiennent bien plus!!!
merci d'avance pour vos reponse.
pneau
Messages postés258Date d'inscriptionmercredi 21 avril 2004StatutMembreDernière intervention27 octobre 20105 8 nov. 2007 à 17:04
salut,
tu peux utiliser plusieurs méthodes.
la premiere
lancer via ton appli les commandes dos suivantes :
Print Monfichier1.awl >>MonFichierResultat.AWL
Print Monfichier2.awl >>MonFichierResultat.AWL
La Seconde
ouvrir les 2 fichiers en lecture
ouvrir le fichier résultat en écriture
parcourir les lignes de chaque fichier et les écrire dans le fichier résultat :
Dim myfile1 as long
Dim myfile2 as long
Dim myfile3 as long
dim sligne as string
Myfile1 = 1
Myfile2 = 2
Myfile3 = 3
Open "Fichier1.AWL" For Input As MyFile1
Open "Fichier2.AWL" For Input As MyFile2
Open "FichierResult.AWL" For Output As MyFile1
'Parcours du 1er fichier
Line Input #MyFile1, sLigne
While Not EOF(MyFile1)
'ecriture dans le fichier résultat
Print #Myfile3, sLigne
Line Input #MyFile1, sLigne
Wend
'Parcours du 2nd fichier
Line Input #MyFile2, sLigne
While Not EOF(MyFile2)
'ecriture dans le fichier résultat
Print #Myfile3, sLigne
Line Input #MyFile2, sLigne
Wend
'fermeture des fichiers
Close #Myfile1
Close #MyFile2
Close #MyFile3
Derniere méthode
Ouvrir les fichiers en binaire et lire en bloc le contenu du fichier et écrire dans le fichier destination
Dim myfile1 as long
Dim myfile2 as long
Dim myfile3 as long
dim FileContents as string
Myfile1 = 1
Myfile2 = 2
Open Fichier1 For Binary Access Read Write As #Myfile1
Open Fichier2 For Binary Access Read Write As #Myfile2
Open Fichier2 For Output As #Myfile3
'Lecture complete du fichier1
FileContents = Input(LOF(Myfile2), #Myfile2)
'ecriture
Print #Myfile3, FileContents
Close #Myfile1
Close #MyFile2
Close #MyFile3
a+
Note : 3eme méthode non retestée mais normalement fonctionne
Pat
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 8 nov. 2007 à 18:24
Alors ?
copie de file1 vers File3 (par filecopy)
ouverture de file2 en lecture et de file3 for append
lecture de file2 et Append de file3
fermeture de file2 et de file3