Discussion :

[illight]

Bonjour,

je sais qu'il y a déja plusieurs posts sur les fichiers textes, mais je n'ai pas trouvé mon bonheur, sauf une fonction que j'ai utilisé

Mon but de la manière est de concaténer 2 fichiers textes à partir d'Excel, puis d'enregistrer le résultat dans un autre nom.
J'ai donc cette fonction qui lit, et qui écrit dans l'autre fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ConcatText()
'ouverture du premier fichier en lecture
Open "Z:\temp\fichS" & NoSem(Date) - 1 & ".txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "Z:\temp\fichS" & NoSem(Date) - 1 & ".txt" For Append As #2
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Input #1, texte     'on récupère le ligne en entier
Print #2, texte     'on la copie dans le 2e fichier texte
Wend
'sauvegarde du fichier texte obtenu ?
End Sub

(NoSem est une fonction qui me permet de trouver le numéro de la semaine actuelle)

Le problème c'est que dans la ligne ou je lis, je dois déja commencer à la deuxième ligne, et je ne sais pas comment faire quelqu'un aurait une idée ?
Après tout ça, je voudrais sauvegarder le fichier texte obtenu, sous un autre nom que celui qui y est mais je ne sais pas la commende à utiliser parce q'un saveas je pense pas que ça marche

Merci beaucoup pour votre aide

[Vesta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Private Sub ConcatText()
'ouverture du premier fichier en lecture
Open "Z:\temp\fichS" & NoSem(Date) - 1 & ".txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "Z:\temp\fichS" & NoSem(Date) - 1 & ".txt" For Append As #2
Input #1, texte 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Input #1, texte     'on récupère le ligne en entier
Print #2, texte     'on la copie dans le 2e fichier texte
Wend
'sauvegarde du fichier texte obtenu ?
'Le fichier est sauvegardé lors l'ajout...
'Vois plus loins il faut le fermer...
End Sub

Ce que tu fais la ca va ajouter au fichier #2
Si tu ne veux pas de ca...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub ConcatText()
'ouverture du premier fichier en lecture
Open "Z:\temp\fichS" & NoSem(Date) - 1 & ".txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "Z:\temp\fichS" & NoSem(Date) - 1 & ".txt" For Append As #2
Open NOMFICHIERSAUVEGARDE For Append As #3 
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Input #1, texte     'on récupère le ligne en entier
Print #3, texte     'on la copie dans le fichier sauvegarde
Wend

Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close

Input #2, texte 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde

While Not EOF(2)    'tant qu'on n'est pas en fin de fichier
Input #2, texte     'on récupère le ligne en entier
Print #3, texte     'on la copie dans le fichier sauvegarde
Wend

Close #2
Close #3
End Sub

[illight]

Merci bien ça marche nickel

[illight]

hum..parlé trop vite

voila donc la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ConcatText()
Dim texte As String
'ouverture du premier fichier en lecture
Open "Z:\temp\fich1S" & NoSem(Date) - 1 & ".txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "Z:\temp\fich2S" & NoSem(Date) - 1 & ".txt" For Input As #2
Open "Z:\temp\fich3S" & NoSem(Date) - 1 & ".txt" For Append As #3
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Line Input #1, texte     'on récupère le ligne en entier
Print #3, texte     'on la copie dans le fichier sauvegarde
Wend
Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close
Line Input #2, texte 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde
While Not EOF(2)    'tant qu'on n'est pas en fin de fichier
Line Input #2, texte     'on récupère le ligne en entier
Print #3, texte     'on la copie dans le fichier sauvegarde
Wend
Close #2
Close #3
End Sub

(j'ai modifié en fonction de ce que j'avais )

Le problème c'est que le fichier obtenu est un fichier binaire
J'ai donc essayé, au lieu de l'input, de mettre un "write" mais si je met write il me met des guillemets partout et ça fausse tout

Quelqu'un a une solution ?

merci

[Vesta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ConcatText()
'ouverture du premier fichier en lecture
Open "Z:\temp\fich1S" & NoSem(Date) - 1 & ".txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "Z:\temp\fich2S" & NoSem(Date) - 1 & ".txt" For Input As #2
Open "Z:\temp\fich3S" & NoSem(Date) - 1 & ".txt" For Append As #3
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Line Input #1, texte$     'on récupère le ligne en entier
Print #3, texte$     'on la copie dans le fichier sauvegarde
Wend
Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close
Line Input #2, texte$ 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde
While Not EOF(2)    'tant qu'on n'est pas en fin de fichier
Line Input #2, texte$     'on récupère le ligne en entier
Print #3, texte$     'on la copie dans le fichier sauvegarde
Wend
Close #2
Close #3
End Sub

[illight]

Heuu tu as rajouté les dollars c'est ça ?
Parce que ça marche toujours pas c'est toujours du binaire que j'ai dans mon fichier résultat
Ça aurait servi à quoi au juste ton '$' mis à la fin ? mettre le caractère c'est ça ?
Juste pour information (au cas ou), mes 2 fichiers textes qu eje concatène, en fait au départ ils ont comme séparateur des '|' je sais pas si ça pose des problèmes mais je préfère le dire...

[Vesta]

Je vais tester...

[Vesta]

Voila... Ma proc est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub ConcatText()
'ouverture du premier fichier en lecture
Open "C:\temp1.txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "C:\temp2.txt" For Input As #2
Open "C:\temp3.txt" For Append As #3
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Line Input #1, texte$     'on récupère le ligne en entier
Print #3, texte$     'on la copie dans le fichier sauvegarde
Wend
Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close
Line Input #2, texte$ 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde
While Not EOF(2)    'tant qu'on n'est pas en fin de fichier
Line Input #2, texte$     'on récupère le ligne en entier
Print #3, texte$     'on la copie dans le fichier sauvegarde
Wend
Close #2
Close #3
End Sub

temp1.txt

Je suis ligne 1
dazdpzadpokz
dâzkdzkdpzakdz
adkza
kd
akzd
azod
azodaz
dpazdk
zadk
zpak
dapza
fini

temp2.txt
Je suis ligne 1 fichier 2
fichier1
zdaz
da
zd
azd
a
dz
ad


temp3.txt

Je suis ligne 1
dazdpzadpokz
dâzkdzkdpzakdz
adkza
kd
akzd
azod
azodaz
dpazdk
zadk
zpak
dapza
fini
fichier1
zdaz
da
zd
azd
a
dz
ad



Je comprend pas... Joint tes fichier je vais essayer avec

[illight]

Heuu je peut pas te joindre les fichiers ce sont des fichiers confidentiels
Je vais essayer de t'en faire des bidons

[Vesta]

Lol sorry bidonne les alors !!


Au fait le dollar c'etait parce que je me rapelle qu'il fallait le mettre si je me rapelle bien jutement pour spécifier variable texte

[Vesta]

Open, instruction


Permet d'exécuter une opération d'Entrée/Sortie (E/S) sur un fichier.
Syntaxe
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
La syntaxe de l'instruction Open comprend les éléments suivants :
Élément Description pathname Expression de chaîne indiquant un nom de fichier — peut comprendre un nom de répertoire ou de dossier et un nom de lecteur. mode Mot clé indiquant le mode d'ouverture du fichier : Append, Binary, Input, Output ou Random. S'il n'est pas indiqué, le fichier est ouvert en mode Random. access Facultatif. Mot clé indiquant les opérations autorisées sur le fichier ouvert : Read, Write ou Read Write. lock Facultatif. Mot clé indiquant les opérations restreintes sur le fichier ouvert par d'autres processus : Shared, Lock Read, Lock Write et Lock Read Write. filenumber Numéro de fichier valide compris entre 1 et 511, inclus. Utilisez la fonction FreeFile pour obtenir le prochain numéro de fichier disponible. reclength Facultatif. Nombre inférieur ou égal à 32 767 (octets). Pour les fichiers ouverts en mode Random, cette valeur représente la longueur de l'enregistrement. Pour les fichiers séquentiels, elle représente le nombre de caractères contenus dans la zone tampon.
Remarques
Avant de pouvoir exécuter une opération d'Entrée/Sortie sur un fichier, vous devez l'ouvrir. L'instruction Open permet d'associer une zone tampon d'Entrée/Sortie au fichier et de déterminer le mode d'accès à ce fichier dans cette zone.
Si le fichier indiqué par l'argument pathname n'existe pas, il est créé au moment où un fichier est ouvert en mode Append, Binary, Output ou Random.
Si le fichier a déjà été ouvert par un autre processus et si le type d'accès indiqué n'est pas autorisé, l'instruction Open échoue et une erreur se produit.
La clause Len n'est pas prise en compte si l'argument mode a la valeur Binary.
Important En mode Binary, Input et Random, vous n'êtes pas obligé de fermer un fichier avant de l'ouvrir sous un autre numéro de fichier. En mode Append et Output, vous devez fermer un fichier avant de l'ouvrir sous un autre numéro de fichier.




Je sais pas si ca t'aide... Essaie peu etre aussi de l'ouvrir avec un no de fichier ''libre'' pour chancun

FreeFile, fonction


Renvoie une valeur de type Integerreprésentant le prochain numéro de fichier pouvant être utilisé par l'instruction Open.
Syntaxe
FreeFile[(rangenumber)]
L'argument facultatif rangenumber est une valeur de type Variantqui indique la plage dans laquelle doit se trouver le prochain numéro de fichier disponible renvoyé par la fonction. Indiquez 0 (valeur par défaut) pour renvoyer un numéro de fichier compris entre 1 et 255 inclus. Indiquez 1 pour renvoyer un numéro de fichier compris entre 256 et 511.
Remarques
Utilisez la fonction FreeFile pour fournir un numéro de fichier encore non utilisé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' La boucle est effectuée cinq fois.
    FileNumber = FreeFile    ' Lit le numéro de fichier inutilisé.
' Crée le nom du fichier.
    Open "TEST" & MyIndex For Output As #FileNumber
    Write #FileNumber, "Ceci est un exemple"    ' Écrit le texte.
    Close #FileNumber    ' Ferme le fichier.
Next MyIndex

[illight]

Bon j'ai réussi

Bon en fait je vais te joindre 2 fichiers textes avec une seule ligne (c'est la ligne de titre mais on s'en fout)
Tu verra qu'avec cette macro ça fait quand meme l'erreur (si ça la fait pas chez toi je comprend pas )
Donc j'ai testé plusieurs choses : la si tu concatène avec la macro donnée précédemment, tu verra t'aura que du binaire
par contre si tu écrit ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
<div style="text-align: left;">Sub ConcatText()
'ouverture du premier fichier en lecture
Open "C:\temp1.txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "C:\temp2.txt" For Input As #2
Open "C:\temp3.txt" For Append As #3
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Line Input #1, texte$     'on récupère le ligne en entier
Print #3, "toto"     'on la copie dans le fichier sauvegarde
Wend
Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close
'Line Input #2, texte$ 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde
While Not EOF(2)    'tant qu'on n'est pas en fin de fichier
Line Input #2, texte$     'on récupère le ligne en entier
Print #3, texte$     'on la copie dans le fichier sauvegarde
Wend
Close #2
Close #3
End Sub
</div>

le deuxième texte sera bien recopié et il n'y aura pas de binaire

Ensuite, en fait on a remarqué un truc: avec un éditeur hexadécimal, un caractère au début du fichier texte est mis en hexa c'est le caractère de code "FF" cad rien
A priori ça serait l'unicode qui merde..
Si jamais le fichier tu le réenregistre derrière en ANSI, la concaténation se passera nickel
Le problème c'est que quand je sors ce fichier texte je peux pas l'enregistrer directement en ANSI, donc perte de temps, or moi ce que je veux c'est directement de ces fichiers les concaténer

J'espère avoir été assez clair s'il y a un soucis de compréhension faites le moi savoir

[Vesta]

Il y a clairement un probleme lol

Si tu vois la premiere variable text ca commence par
ÿrRS...
alors que ta ligne c'est RS...
Donc déja la ca déconne...
Je vais trouver...

[Vesta]

Bon alors... J'ai de mauvaises nouvelles...

Le prorbleme est lié a tes fichiers... j'ai recopié intégralement la premiere ligne dans un nouveau fichier texte et je l'ai resauvée sous le nom Temp1.txt

et la surprise ca marche...

[Vesta]

J'ai encore dis des conneries... Oui ca vient de tes fichiers, ces deux premiers caracteres apparaissent dans la variable text...

Si c'est le seul endroit de probleme alors je te conseille de faire ca???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub ConcatText()
 
'ouverture du premier fichier en lecture
Open "C:\temp1.txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "C:\temp2.txt" For Input As #2
Open "C:\temp3.txt" For Output As #3
'Print #3, ""
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Line Input #1, texte$     'on récupère le ligne en entier
Print #3, Replace(texte$, "ÿþSR", "SR") 'on la copie dans le fichier sauvegarde
Wend
Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close
'Line Input #2, texte$ 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde
While Not EOF(2)    'tant qu'on n'est pas en fin de fichier
Line Input #2, texte$     'on récupère le ligne en entier
Print #3, Replace(texte$, "ÿþSR", "SR")      'on la copie dans le fichier sauvegarde
Wend
Close #2
Close #3
End Sub

Le plus marrant c'est que la ca marche...

[illight]

oui je sais si tu l'enregistre en ANSI plutot qu'en unicode ça marche

Oui en fait c'est ce y¨que je sais pas d'ou qui vient
Si tu utilise comme j'ai dit plus haut un logiciel hexa, tu verra qu'au début du fichier tu as 2 caractères qui sont "FF" et "EF" (ou "FE" je sais plus je suis plus au boulot la )

Mais je veux une solution

[Vesta]

La dernière Fonctionne normalement... Si tu intègre un replace dans ta fonction, pour enlever les deux premiers caracteres bizares...

[illight]

Bon a priori ça marche

Juste une précision :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Print #3, Replace(texte$, "ÿþSR", "SR")

On peut meme la faire comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Print #3, Replace(texte$, "ÿþ", "")

A priori ça marche aussi bien en le mettant avec cette forme

Et meme pour être plus précis et en utilisant les numéros des caractères on peut peut etre meme faire :
On peut meme la faire comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Print #3, Replace(texte$, chr(254) & chr(255), "")

Mais j'ai pas testé encore

Merci beaucoup en tout cas pour tes réponses

[Vesta]

Si j'ai mis ca c'est parce que le probleme se passe au début du fichier, moi je n'aivais que le début donc...

Je ne savais pas si ce probleme allait se répéter dans la suite du fichier, de ce fait, j'ai remplacé les quatres premiers caractères pour voir ce qui pouvais chez toi arriver dans la suite du fichier... J'avais d'abord écris ta première méthode m'ai j'ai préféré ca pour la raison au dessus...
Print #3, Replace(texte$, "ÿþSR", "SR")

Lol si tu n'ais rien compris c'est qua je suis trop crevé pour te raconter plus clairement...

Voila si c réglé c réglé tant mieu !

[illight]

Si j'ai mis ca c'est parce que le probleme se passe au début du fichier, moi je n'aivais que le début donc...

Je ne savais pas si ce probleme allait se répéter dans la suite du fichier, de ce fait, j'ai remplacé les quatres premiers caractères pour voir ce qui pouvais chez toi arriver dans la suite du fichier... J'avais d'abord écris ta première méthode m'ai j'ai préféré ca pour la raison au dessus...
Print #3, Replace(texte$, "ÿþSR", "SR")

Lol si tu n'ais rien compris c'est qua je suis trop crevé pour te raconter plus clairement...

Voila si c réglé c réglé tant mieu !

Et moi j'ai mis ça au cas ou on le renconrerai ailleurs qu'en début de fichier comme ça j'aurai aucun soucis