Lire une ligne au hasard dans un txt

Question

J'aimerais savoir comment faire pour lire un ligne au hasard dans un txt pour ensuite la transférer dans une étiquette. Je c'est le random mais pour aller chercher le txt, pour lire la ligne et pour la mettre dans l'étiquette, comment fait-on? SVP?!?!?!

cs_DragonHeart · Answer

Voila la commande pour récupéré une ligne dans un fichier text
Tu ouvre ton fichier text

Open "Chemind'accés + nom fichier" for Input as #1 
Line Input #1,texte 'Place le comptenue de la ligne du fichier texte(#1) lue dans la variable texte
close #1

cs_oliver68 · Answer

salut,

dragon a raison, mais il en manque un bout par rapport à ta question :

sub truc()
close
open "monfichier.txt" For input as #1
i = 0
hasard = int(rnd * 100)
do until eof(1)
 line input #1, texte
 i = i + 1
 if i = hasard then tonlabel.text=texte: close:exit sub
loop
close
end sub

tu peux changer mon rnd*100 par rnd*1000 ou rnd*10, c'est fonction du nb de ligne de ton fichier.

good luck, @+

cs_LeRoux · Answer

Quelque questions, en passant, je ne veut pas que sa ce fasse plus d'une fois de suite.

sub truc() 'le nom de l'objet, c ok
close 'fermer un fichier déja ouvert
open "monfichier.txt" For input as #1 'pourait-je avoir plus qu'un input?
i = 0 'a quoi sa sert
hasard = int(rnd * 100) 'le rnd
do until eof(1) 'a quoi sa sert d'avoir le loop
line input #1, texte '#1= le txt1, mais ", texte" sert a quoi
i = i + 1 '?
if i = hasard then 'mais si je met sa, sa va lire la ligne 1, ensuite 2 et .....
   tonlabel.text=texte
   close
   exit sub
End If
loop
close
end sub

pourrait-je mettre:

sub truc()
close
open "monfichier.txt" For input as #1
var_ligne = int(rnd * 100)
line input #1, texte 'sa, shu vraiment pos sur?, je veut que sa lise la ligne var_ligne
tonlabel.caption = texte
close
end sub

cs_LeRoux · Answer

Quelque questions, en passant, je ne veut pas que sa ce fasse plus d'une fois de suite.

sub truc() 'le nom de l'objet, c ok
close 'fermer un fichier déja ouvert
open "monfichier.txt" For input as #1 'pourait-je avoir plus qu'un input?
i = 0 'a quoi sa sert
hasard = int(rnd * 100) 'le rnd
do until eof(1) 'a quoi sa sert d'avoir le loop
line input #1, texte '#1= le txt1, mais ", texte" sert a quoi
i = i + 1 '?
if i = hasard then 'mais si je met sa, sa va lire la ligne 1, ensuite 2 et .....
   tonlabel.text=texte
   close
   exit sub
End If
loop
close
end sub

pourrait-je mettre:

sub truc()
close
open "monfichier.txt" For input as #1
var_ligne = int(rnd * 100)
line input #1, texte 'sa, shu vraiment pos sur?, je veut que sa lise la ligne var_ligne
tonlabel.caption = texte
close
end sub

cs_LeRoux · Answer

Quelque questions, en passant, je ne veut pas que sa ce fasse plus d'une fois de suite.

sub truc() 'le nom de l'objet, c ok
close 'fermer un fichier déja ouvert
open "monfichier.txt" For input as #1 'pourait-je avoir plus qu'un input?
i = 0 'a quoi sa sert
hasard = int(rnd * 100) 'le rnd
do until eof(1) 'a quoi sa sert d'avoir le loop
line input #1, texte '#1= le txt1, mais ", texte" sert a quoi
i = i + 1 '?
if i = hasard then 'mais si je met sa, sa va lire la ligne 1, ensuite 2 et .....
   tonlabel.text=texte
   close
   exit sub
End If
loop
close
end sub

pourrait-je mettre:

sub truc()
close
open "monfichier.txt" For input as #1
var_ligne = int(rnd * 100)
line input #1, texte 'sa, shu vraiment pos sur?, je veut que sa lise la ligne var_ligne
tonlabel.caption = texte
close
end sub

cs_oliver68 · Answer

tu peux pas mettre ton code car il ne te lira que la 1ere ligne et que la 1ere ligne de ton fichier.

ce que fais mon code :

line input #1  = veut dire que ça lit une ligne du fichier et pour faire lire de la1ere à la dernière tu dois faire un do-loop jusqu'à la fin du fichier (eof). on lit le fichier séquentiellement.
le i=0 et i=i+1 permet de savoir quelle ligne du fichier est lue pour la comparer à la valeur du rnd. et si i=le rnd ton label est modifié, c'est l'instruction if i=hasard then. si i égale pas le rnd rien n'est fait.

mon code est bon.

@+

cs_oliver68 · Answer

tu peux pas mettre ton code car il ne te lira que la 1ere ligne et que la 1ere ligne de ton fichier.

ce que fais mon code :

line input #1  = veut dire que ça lit une ligne du fichier et pour faire lire de la1ere à la dernière tu dois faire un do-loop jusqu'à la fin du fichier (eof). on lit le fichier séquentiellement.
le i=0 et i=i+1 permet de savoir quelle ligne du fichier est lue pour la comparer à la valeur du rnd. et si i=le rnd ton label est modifié, c'est l'instruction if i=hasard then. si i égale pas le rnd rien n'est fait.

mon code est bon.

@+

ephores · Answer

Bonjour,

je narrive pas à faire marcher ce code, pourtant j'aimerai faire exactement ça.

Quelqu'un a une idée ?

deck_bsd · Answer

Encore plus simple, ce code est plus compacte et mieu programmer, enfin je pense lol



sub truc()

    open "monfichier.txt" For input as #1

    hasard = int(rnd * 100)

    for i=0 to hasard

     line input #1, texte

     next i

end sub



et texte contient la derni&#232;re ligne lui donc celle choisie par hasard :D cqfd





Bonne progra ++

Lire une ligne au hasard dans un txt

9 réponses

Discussions similaires