Rassembler 3 fichiers texte en un seul.

[mathieumathieu1]

Bonjour,

voila je suis étudiant et je débute la programmation en VB6. Je voudrais réaliser une petite application qui regroupe 3 fichiers txt dans un 4eme.
Je ne sais pas trop par ou commencer.
Mon idée est d'avoir un DriveListBox avec un DirListBox où l'on pourra sélectionner le dossier contenant mes 3 fichiers texte.
Suite à l'appui sur un bouton "rassembler", un fichier 4eme fichier serait créé contenant le texte des 3 autres.
Pb je ne sais pas du tout comment mis prendre niveau code..

est ce que quelqu'un a une idée?

Merci d'avance.

[iclic]

Bonjour,

Déjà va voir dans la MSDN pour te renseigner

Utilisation de l'accès séquentiel aux fichiers

c'est une façon mais il y en a d'autres...

[rv26t]

Bonjour,

Pour la lecture des fichiers, tu peux utiliser une fonction qui te renverra le contenu du fichier texte, et les concaténer.
Vu que tu ne fais pas de traitement sur les fichiers tu peux les lire en bloc. (attention à la taille tout de même)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function LitFichier(sNomFic As String) As String
Dim Contenu As String
Dim FileNum As Integer
 
Contenu = ""
FileNum = FreeFile          'Numéro pour ouverture du fichier
If Dir(sNomFic) <> "" Then             'Ne traite que si le fichier existe
    Contenu = Space(FileLen(sNomFic))  'dimmensionne la variable à la taille du fichier
    Open sNomFic For Binary As FileNum 'ouvre le fichier
    Get FileNum, , Contenu             'réccupère tout le contenu du fichier
    Close FileNum                      'ferme le fichier
End If
LitFichier = Contenu
End Function

utilisation

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim NewFic As String
NewFic = ""
 
NewFic = NewFic & LitFichier("D:\Projets\vb\apprend\fichiers\fic1.txt")
NewFic = NewFic & vbCrLf
NewFic = NewFic & "---------------------" & vbCrLf
NewFic = NewFic & LitFichier("D:\Projets\vb\apprend\fichiers\fic2.txt")
NewFic = NewFic & vbCrLf
NewFic = NewFic & "---------------------" & vbCrLf
NewFic = NewFic & LitFichier("D:\Projets\vb\apprend\fichiers\fic3.txt")
 
MsgBox NewFic

Il suffit ensuite d'enregistrer le résultat (NewFic) dans un nouveau fichier.

A+, Hervé.

[mathieumathieu1]

Merci Hervé pour ta réponse mais enfaite je me suis dirigé sur une nouvelle approche du problème ^^
j'ai créé une fenêtre avec une "DrivelistBox" associée à une "DirListBox" et une "Filelistbox".
Suite à l'appuisur un bouton "lire" cela viendrait ajouter le texte de mes fichiers contenu dans la "FileListbox" dans une "Richtextbox" (beaucoup de box ^^ )

J'utilise donc une boucle for pour lire un par un les fichiers. Mais je ne sais pas mémoriser le contenu de la "Richtextbox" afin d'afficher le texte du fichier suivant à la suite de l'ancien.

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_click()
     Dim tableau(5000) As String
     Nb= File.ListCount
For i=0 to nb-1
    Text = File1.Path & "\" & File1.List(i)
     RichTextBox1.LoadFile (Text)
     Data = RichTextBox.Text
     tableau(i)=data
    ' Comment faire pour ajouter DATA a mon nouveau texte ? est t'il possible de le faire ligne => RichTextBox1.loadFile (text)???
du genre  RichTextBox1.Text = Data + RichTextBox1.LoadFile(Text)
 Next i

Cette solution est-elle réalisable?

[mathieumathieu1]

ahah petite avancée dans mon code [Je suis débutant]!!

j'arrive à rassembler mes fichiers texte en un seul! Mais est-il possible de ranger mes fichier dans un ordre précis dans le FileListBox pour que lors de la reconstitution tous sois dans un ordre correct?

[DAUDET78]

Tu peux utiliser un truc de ce genre

Code :

1
2
3
4
5
6
 
fich1$="fich1.txt"
fich2$="fich2.txt"
fich3$="fich3.txt"
 
Schell "Copy " & fich1$ & "+" & fich2$ &  "+" & fich3$ & " somme.txt"