Discussion :

[Blencastreur]

Bonjour,

J'ai besoin de lire un fichier txt ayant des données sous la forme :
TITRE_FICHIER
"FIELD_1,""FIELD_2"",""FIELD_3"",""FIELD_4"",""FIELD_5"",""FIELD_6"",""FIELD_7"",

J'ai besoin de supprimer la première ligne (TITRE_FICHIER) pour effectuer par la suite une requête sur le fichier, j'execute donc le code suivant après avoir determiné la longueur de TITRE_FICHIER :

Code :

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

1
2
3
4
5
6
7
8
Open TxtFile For Binary Access Read As #1
TxtContent = Input(FileLen(TxtFile), 1)
Close 1
TxtContent = Mid(TxtContent, StgLength)
Kill TxtFile
Open TxtFile For Append As #1 
Print #1, TxtContent
Close 1

TITRE_FICHIER est bien supprimé mais des caractères spéciaux ont été rajoutés un peu partout. Le fichier est maintenant illisible (voir fichier joint).
Je ne sais pas du tout comment corriger ce problème. Auriez-vous une idée?
D'avance merci.

[Jean-Philippe André]

Hello

tu utilises un accès en binary et un autre sans binary.

Tant qu'à faire autant utiliser le meme type

http://access.developpez.com/faq/?page=Fichier#FicTxt

[Blencastreur]

Merci Jpcheck pour ta réponse.

J'ai utilisé la méthode décrite par le lien que tu m'as fourni. Pour tester j'ai enlevé la partie qui me permettait de supprimer TITRE_FICHIER. Les données sont effectivement correctement formatées. Par contre j'en perds une grande partie (environ 4000 lignes contre environ 8000 initialement) et la première ligne du fichier est maintenant : T suivi d'une centaine de caractères spéciaux (voir premier post).

[Jean-Philippe André]

A noter que ta variable StgLength, on ne voit nulle part sa valeur d'initialisation :/

[Blencastreur]

Exact, désolé pour l'oubli, je l'initialise simplement par :

Code :

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

StgLength = Len(RacineFichier) + Len(Sufx)

Tant que j'y suis le code modifié avec la méthode du lien :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set FToRead = objFSO.GetFile(TxtFile)
Set Ts = FToRead.OpenAsTextStream(ForReading)
 
TxtContent = Ts.ReadAll
Ts.Close
 
 
    Set FToWrite = objFSO.GetFile(TxtFolder & "out.txt")
    Set Ts = FToWrite.OpenAsTextStream(ForAppending)
    Ts.Write TxtContent