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.