Discussion :

[patricktoulon]

Bonjour a tous
a ton la possibilité de récupérer le contenu entier d'un fichier text avec open sans passer par une boucle ??

comme on le fait avec Scriptingfilesystemobject("readall")

[SfJ5Rpw8]

salut,

regarde l'une des dernière question ou tu as répondu ... ( le problème du LEN ... nombre de ligne ...) c'est ce ainsi que l'auteur lit les fichiers textes ..

[Invité]

Bonjour Patrick,
Lachaine = Input(LOF(n), #n)

[patricktoulon]

re
Bonjour Bill et Rdurupt

heu non moi pas compris
j'ai bien essayé de reprendre l'exemple dans l'autre discution mais ca ne fonctionne pas

j'ai toujours eu se soucis avec le mode lecture de "Open" autant le mode ecriture ou ajouter ca passe mais la lecture non

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub testlecture()
Fichier = "C:\Users\polux\Desktop\test.txt"
X = FreeFile
 Open Fichier For Binary Access Read As #X
        lachaine = String(LOF(X), Chr(0))
        Get #X, , lachaine
 
  MsgBox lachaine
 
End Sub

d'ailleur je ne comprends pas tres bien ces deux lignes

Code :

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

1
2
lachaine = String(LOF(X), Chr(0))
        Get #X, , lachaine

si ce n'est que get par définition (prendre)

mais la premiere j'pige pas si ce n'est que par suposition "LOF(X)" represente la fin ou l'entier ???

[SfJ5Rpw8]

Quand tu dis cela marche pas .. il se passe quoi ...?

il faut absolument que tu déclare ta variable chaine :

Code :

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

Dim laChaine As String

LOF(X) renvoi le nombre d'octet contenu dans le fichier ..

lachaine = String(LOF(X), Chr(0))Permet "remplir" de 0 (habituellement on utilise un espace mais l'auteur du post à préféré un Chr(0)) la variable Lachaine de façon as ce qu'elle soit préformaté au nombre de caractères à lire ...


ensuite Get utilisé avec une variable String permet de lire le nombre de caractère correspondant à la longueur de cette String...

[patricktoulon]

re
1° j'ai donc declaré ma variable "lachaine"
2 quand je dis que ca ne fonctionne pas cela veut dire que le msgbox est vide
3° j'avais remarquer dans d'autre exemple l'utilisation de l'espace

enfin bref j'ai toujour rien

comme tu peut le voir dans la capture je créé le fichier text avec "Open"

le fichier text existe bien il est a droite et le msgbox est vide