Concaténation de fichiers .txt

Version imprimable

Bonjour à tous,

J'ai besoin de concaténer un certain nombres de fichiers .txt, possédant tous exactement la même structure, dans un nouveau fichier .txt. Tous les fichiers sont sauvegardés dans le même répertoire, et je voudrais que mon fichier final soit également dans ce même répertoire.

J'ai par exemple :

1 fichier .txt contenant "AAAAA"
1 fichier .txt contenant "BBBBB"

Mon objectif est d'obtenir, dans un nouveau fichier texte :
AAAAA
BBBBB

Je souhaite aussi éventuellement compter le nombre de lignes contenues dans le nouveau fichier.

Après quelques essais et recherches sur le net, j'ai bricolé le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 Option Explicit Sub Compilation_Fichier_Texte() Dim k As Integer Dim Temp As String, T As String Dim Chemin As String, Fichier As String Dim X As Long, FichierCompilation As String Dim Lignes As Long 'Endroit où sont regroupés les fichiers texte à compiler Chemin = "R:\Data\" 'Le nom du fichier où doivent être compilés les fichiers FichierCompilation = "Compilation.txt" On Error Resume Next 'Suppprime le fichier de compilation s'il existe Kill Chemin & FichierCompilation X = FreeFile T = "" Fichier = Dir(Chemin & "*.txt") Do While Fichier <> "" If Fichier <> FichierCompilation Then Open Fichier For Binary Access Read As #X Temp = String(LOF(X), Chr(0)) Get #X, , Temp T = T & Temp k = k + 1 Close #X End If Fichier = Dir() Loop Lignes = Len(T) - _ Len(Application.WorksheetFunction.Substitute(T, Chr(10), "")) T = Left(T, Len(T) - 2) Open Chemin & FichierCompilation For Output As #X Print #X, T Close #X MsgBox k & " fichiers ont été concaténés dans " & FichierCompilation & """ pour un total de " & Lignes & " lignes." End Sub
Le code s'exécute bien, et parcourt le bon nombre de fichiers, mais le fichier généré est...Vide ! Après plusieurs tentatives et modifications, le fichier final reste vierge.
Je pense qu'il ne manque pas grand chose, est-ce-que quelqu'un aurait la bonté d'âme de m'apporter la petite correction qu'il manque :o) ?

Je précise que j'ai un niveau moyen en vba, mais c'est la première fois que je m'en sers pour manipuler des fichiers texte... Je ne suis pas trop à l'aise avec les méthodes appropriées dans ce cas.

Merci beaucoup d'avance pour votre aide.

15/10/2015, 11h17
illight

Salut !

Etrange, je viens de faire un test avec ta macro : la compilation des fichiers textes s'est faite correctement.
par contre, la variable "Lignes" n'a par contre pas la bonne valeur chez moi, car elle me dit que j'ai qu'une ligne alors que j'en ai 2...
15/10/2015, 11h28
Eco419

Hello,

Merci beaucoup pour ta réponse. Le fait que cela fonctionne bien sur ton poste est assez étrange ! Pourrais-tu stp me dire sur quelle version tu es ?
Sinon, le problème pourrait également venir de mes fichiers .txt, ils sont relativement volumineux : environ 20Mo en moyenne... Est-ce-que cela peut influencer la bonne lecture / écriture des fichiers txt ?

Merci pour ton aide
15/10/2015, 11h36
kiki29

Salut, je commencerai par supprimer le On Error Resume Next qui peut masquer certaines choses.
15/10/2015, 11h40
illight

Ah oui, ça peut venir de là, car la variable T est une variable String, je sais pas si ce n'est pas limité en un certain nombre de caractères quand même.

En te lisant, j'ai l'impression que tu as plus que 2 fichiers textes. As-tu essayer d'en compiler déjà 2 pour voir si ça fonctionne ?

Et j'ai Excel 2010 :)
15/10/2015, 12h11
Eco419

1 pièce(s) jointe(s)

Merci pour vos réponses !

@kiki29 j'ai essayé également en supprimant le On Error Resume Next qui est parfois un peu traître, mais cela n'a rien changé. La macro plante uniquement s'il n'y a pas de fichier de compilation présent initialement, mais si c'est le cas j'obtiens le même résultat : un fichier vierge

@illight : j'ai essayé de faire fonctionner le module dans un contexte simplifié : juste 2 fichiers texte cible, ne contenant chacun qu'une dizaine de caractères : même résultat...

J'ai pensé à quelque chose : peut-être y a-t-il quelque chose de mal configuré / manquant dans les références de ma version ? J'ai jeté un œil à Outil\Références dans le menu de la page de l'éditeur, ça donne :Pièce jointe 190244

Si vous avez une autre piste, je suis preneur !

Merci d'avance :o)
15/10/2015, 12h20
SfJ5Rpw8

Bonjour,

attention DIR ne renvoi que le nom de fichier et pas son chemin ...

ici :

Code:

Fichier = Dir(Chemin & "IRIS*.log")

du coup il faut remettre le chemin lorsque tu as besoin du nom complet ..:

Code:

Open Chemin & Fichier For Binary Access Read As #X
15/10/2015, 15h08
Eco419

Merci !

@bbil : j'ignorais ça, merci beaucoup pour l'information.
En reprenant bien l'ensemble adresse + nom de fichier dans mon code, ça marche dans 100% des cas pour des "petits" fichiers texte.

Cependant, avec mes volumes (entre 5 et 20Mo par fichier, pour un total de 15 fichiers) j'ai un message d'erreur, me signalant un problème de mémoire.
Je pense que cela doit venir d'une limitation sur la variable T, déclaré comme String.

Je pensais du coup déclarer mon fichier temporaire Temp et T différemment, mais de cas-là je perds les méthodes type String()et Len(), dont j'ai besoin... Une idée svp ?
15/10/2015, 15h31
illight

Une idée comme ça, mais en passant par une variable tableau ?
15/10/2015, 15h37
SfJ5Rpw8

Tu peu essayer de modifier ton code pour écrire les fichier un après l'autre en mode "Append" ...
15/10/2015, 16h06
Eco419

Je vais tenter de modifier mon code en utilisant Append, merci !
15/10/2015, 16h07
patricktoulon

re

Bonjour
si le nombre de ligne n'est pas correct
c'est peut etre du a ca

Code:

Len(Application.WorksheetFunction.Substitute(T, Chr(10), ""))

si tu substitue un saut de ligne par un espace forcement tout est sur la meme ligne
15/10/2015, 16h12
SfJ5Rpw8

Citation:

Envoyé par patricktoulon

Bonjour
si le nombre de ligne n'est pas correct
...

:nono: regarde la formule complète ... il calcule la longeur_Avec_Saut_Deligne - Longueur_SANS_Saut_de_ligne et cela donne bien le nombre de Saut de ligne ...
15/10/2015, 16h47
Jerome Briot

Je me permet de proposer une solution alternative…

Avec DOS, pour concaténer tous les fichiers txt d'un dossier dans un autre fichier txt, on écrit simplement :

Code:

copy /b *.txt all.txt

Il faut bien entendu que chaque fichier txt se termine par une ligne "vide".

En VBA ça devrait donc donner approximativement ceci (je n'ai pas testé) :

Code:

Shell Environ("comspec") & " /c copy /b *.txt all.txt"

Merci à tous pour votre aide !

J'ai finalement trouvé une solution pour les fichiers texte volumineux : tout passe mieux avec Append, le fichier final est ainsi construit au fur et à mesure, merci bbil !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Sub Compilation_Fichier_Texte_V2()
 
Dim k As Integer
Dim Temp As String, T As String
Dim Chemin As String, Fichier As String, FichierCompilation As String
Dim x As Long, Y As Long, Lignes As Long
 
 
'Endroit où sont regroupés les fichiers texte à compiler
Chemin = "R:\Data\"
 
'Le nom du fichier où doivent être compilés les fichiers
FichierCompilation = "Compilation.txt"
 
'On Error Resume Next
'Suppprime le fichier de compilation s'il existe
Kill Chemin & FichierCompilation
 
x = FreeFile
Y = FreeFile(10)
 
Open Chemin & FichierCompilation For Append As #Y
Fichier = Dir(Chemin & "*.txt")
 
Do While Fichier <> ""
 
    If Fichier <> FichierCompilation Then
 
        Open Chemin & Fichier For Binary Access Read As #x
        Temp = String(LOF(x), Chr(0))
        Get #x, , Temp
        Close #x
 
        Print #Y, Temp
        k = k + 1
 
    End If
 
    Fichier = Dir()
 
Loop
 
Close #Y
 
Open Chemin & FichierCompilation For Binary Access Read As #x
T = String(LOF(x), Chr(0))
 
Lignes = Len(T) - Len(Application.WorksheetFunction.Substitute(T, Chr(10), ""))
Close #x
 
MsgBox k & " fichiers ont été concaténés dans " & FichierCompilation & """ pour un total de " & Lignes & " lignes.", , "Job done"
 
End Sub

Par contre, j'ai dû forcer la valeur d'un des Freefile, sinon Excel utilisait la même valeur deux fois... Il doit y avoir une méthode plus propre, mais en tout cas là, cela fonctionne, et le compteur pour les lignes est également opérationnel !

Merci encore pour votre aide et bonne soirée

15/10/2015, 17h50
SfJ5Rpw8

Entre chaque utilisation de freeFile il faut agir sur le fichier sinon le même numéro t'est renvoyé .... donc tu fais freefile tu ouvre un fichier et la tu peu utiliser à nouveau freefile...
15/10/2015, 17h57
Eco419

OK, pour résoudre le problème j'ai placé le second freefile après ouverture du fichier principal pour écriture, et ça marche :)

Super, merci !