Lire Ligne Par Ligne un txt

cs_AnAcOnDa Messages postés 30 Date d'inscription mardi 13 novembre 2001 Statut Membre Dernière intervention 17 novembre 2003 - 22 mars 2002 à 13:50
cs_oliver68 Messages postés 117 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 10 mars 2003 - 25 mars 2002 à 11:10
Bonjour toi,

serais tu m'aider ? voila mon probleme :

Je voudrais lire ligne par ligne un fichier.txt
Le fichier.txt contient du texte sous forme de mot comme ça
Voiture
Chaussure
Clacier

ect...

J'ai un txtbox et un command sur ma feuille, et je voudrais que quand je clique sur la command ça me lise une ligne, et quand je reclique ça me lise la suivante

Si tu sais faire ça, tu sais ce qu'il te reste à faire :-p

++
:kisses) AnAcOnDa :kisses)

4 réponses

cs_mandrin Messages postés 18 Date d'inscription jeudi 7 mars 2002 Statut Membre Dernière intervention 18 octobre 2002
22 mars 2002 à 14:58
cherche dans la MSDN des infos sur FSO (File System Object).
A partir de là, la methode readline de l'objet TextStream devrait pouvoir faire l'affaire
0
cs_oliver68 Messages postés 117 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 10 mars 2003
22 mars 2002 à 15:09
salut,

tout simple :

1) code à ajouter à l'ouverture de ta feuille :

open "fichier.txt" for input as #1

2) code sur le command-click :

line input #1, vartexte
textbox1.text = vartexte

et voilà !

@+
0
cs_AnAcOnDa Messages postés 30 Date d'inscription mardi 13 novembre 2001 Statut Membre Dernière intervention 17 novembre 2003
22 mars 2002 à 17:50
oliver68 tu as essayer la source?
parce que j'ai moi ça marche pas j'ai le droit
à un jolie 'l'entré depasse la fin du fichier" j(ai pas commend il fait mais bon

bref
marche pas
:sad) :sad) :sad) :sad)
0
cs_oliver68 Messages postés 117 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 10 mars 2003
25 mars 2002 à 11:10
ah ouais, c'est fort possible que quand t'as passé la dernière ligne ça plante, tente voir :

if not eof(1) then line input #1, vartexte

@+
0
Rejoignez-nous