Fusion de deux fichier texte [Résolu]

cs_jojac 17 Messages postés lundi 29 octobre 2007Date d'inscription 4 décembre 2009 Dernière intervention - 8 nov. 2007 à 16:49 - Dernière réponse : pneau 258 Messages postés mercredi 21 avril 2004Date d'inscription 27 octobre 2010 Dernière intervention
- 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.
Afficher la suite 

7 réponses

Répondre au sujet
pneau 258 Messages postés mercredi 21 avril 2004Date d'inscription 27 octobre 2010 Dernière intervention - 8 nov. 2007 à 17:04
+3
Utile
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(Myfile1), #Myfile1)
'ecriture
   Print #Myfile3, FileContents

'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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de pneau
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 8 nov. 2007 à 17:58
0
Utile
Et Append (le copain Append), il sert à quoi, lui ?
Commenter la réponse de jmfmarques
jmfmarques 7668 Messages postés samedi 5 novembre 2005Date d'inscription 22 août 2014 Dernière intervention - 8 nov. 2007 à 18:24
0
Utile
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
Commenter la réponse de jmfmarques
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 8 nov. 2007 à 18:27
0
Utile
Jmfmarques >> tu n'as pas un snippet(à modifier) déjà fait sous la main ?? Lol..

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Commenter la réponse de cs_Exploreur
PCPT 13368 Messages postés lundi 13 décembre 2004Date d'inscription 3 février 2018 Dernière intervention - 9 nov. 2007 à 01:09
0
Utile
salut à tous.

un snippet? mais si, il y en a déjà un juste ^^
++
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Commenter la réponse de PCPT
cs_jojac 17 Messages postés lundi 29 octobre 2007Date d'inscription 4 décembre 2009 Dernière intervention - 9 nov. 2007 à 08:07
0
Utile
merci a vous tous!!
Commenter la réponse de cs_jojac
pneau 258 Messages postés mercredi 21 avril 2004Date d'inscription 27 octobre 2010 Dernière intervention - 9 nov. 2007 à 09:30
0
Utile
oups... j'ai zappé l'ouverture en APPEND...*

a+ tous
Pat
Commenter la réponse de pneau

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.