Lire et remplacer des caractères avec un file system object

Question

Bonjour,

J'aimerias modifier le contenu d'un fichier. Mon problème c'est que je n'arrive pas à mettre le contenu de mon fichier texte dans une string.

J'ai essayé :

Din fso as new filesystem object

Dans une sub :

Dim z As TextStream, a As String
Set z = fso.OpenTextFile("C:\TXT.txt")
a = z.readAll
a = Replace(a, Chr(1), "{")
a = Replace(a, Chr(2), "}")
Text2.Text = CStr(z.ReadAll)
z.Close
Set z = Nothing

Or Ma Text2.text est toujours vide. QQun pourrait m expliquer ou je me trompe ? Merci.

crenaud76 · Answer

Sans FSO ca donnerai ca :

Dim Buffer as String, i As Long,Filename as String
Filename = "c:	oto.txt"
i = FreeFile
Open Filename for input as #i
Buffer = Input(LOF(i),i) 
Close #i
Buffer = Replace$(Buffer,Chr$(1),"{")
Buffer = Replace$(Buffer,Chr$(2),"}")
Text2.text = Buffer
' Ajouter ceci si tu veux en plus sauvegarder le fichier modifié
Kill Filename
Open Filename For Output as #i
Print #i,Buffer
Close #i


Christophe R.

nhervagault · Answer

Salut.

Je pense que read all depalce le curseur de fichier a la fin.

Une deuxieme lecture ne lis rien car le curseur est sur la fin du fichier.

http://groups.google.fr/groups?q=visual+basic+readall+replace&start=10&hl=fr&lr=&ie=UTF-8&c2coff=1&selm=8tmqdp%24sqk%241%40nnrp1.deja.com&rnum=13

Je pense que la reponse est la?

cs_CanisLupus · Answer

Avec Text2.Text = a, ça devrait aller.

Cordialement

CanisLupus

cs_lionel4 · Answer

CanisLupus, j'ai essayé Text2.Text = a , ca renvoi rien.

Pour le curseur c'est une idée je ne sais pas trop.

Sinon pour ton code crénaud, il faut un EOF qqpart parce que sinon Input past end of file...

Mais je sais plus du tout comment on se sert du EOF, Pourrait m'aider plz?

cs_lionel4 · Answer

A j'ai fini pas comprendre ou été le problème.

En fait il s'avère que le fichier que j'essayé d'ouvrir contenait des Chr(1)

C'est pour ca qu'il ne renvoyait rien à chaque fois.

J'ai donc enlever tous les Chr(1) et tout fonctionne à merveille.

Désolé de cette question qui se révèle donc injustifié. Merci à CanisLupus,  nhervagault et crenaud76 pour votre aide.

Lire et remplacer des caractères avec un file system object

5 réponses

Discussions similaires