VBA - Excel / Lecture fichier texte

Bonjour,

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

Code:

---

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 ?

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

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

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

Code:

---

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.