Discussion :

[House MD]

Bonjour,

Je lis et récupère des données dans des fichiers texte via la méthode :

Code :

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

1
2
3
Set File = oFSO.GetFile("C:\Boum\Bam\Text.txt")
Set oTxt = File.OpenAsTextStream(ForReading)
Str = oTxt.ReadAll

Puis je scrute via des expressions régulières.

Ce fichier texte est long (187k, plusieurs centaines de milliers de caractères)

Tout se passait bien jusqu'hier où, lors du débug, str était égale aux 10 premiers caractères du fichier puis des milliers d'espaces (notés "┐"), puis de nouveau le texte du fichier...

J'ai fini par copier-coller manuellement le contenu de ce fichier dans un autre fichier : cela fonctionne de nouveau...

Des idées ?

[LeForestier]

Bonjour,
Pas certain mais je pense qu'il serait temps que tu fasse une défragmentation de ton DD.
A+

[House MD]

Whaow.
Je ne m'attendais pas à ça.

En fait j'ai opté pour la méthode :

Code :

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

1
2
3
4
A=freefile
Open "C:\...\Text.txt" for input as#A
...
Close #A

Car en fait, j'ai pu constater en lisant mon fichier dans notepad++ que les espaces entre ";" pouvaient être considérés commes des "Vides".

La méthode input évite de travers.

Bref, peut être qu'en défragmentant mon DD, cela n'arriverait plus.

Merci pour ta réponse.