Lecture/Ecriture fichier txt - Problème caractères spéciaux

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:

---

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.

Pièce jointe 96361

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

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).

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

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

Code:

---

StgLength = Len(RacineFichier) + Len(Sufx)

---

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

Code:

---

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

---