Bonjour,

j'aimerais savoir s'il etait possible d'acceder directement a une ligne a l'ouverture d'un fichier, pour pouvoir la lire par la suite.

Mon but etant de recuperer une phrase au hasard dans un fichier.

Par la meme occasion est-il possible de connaitre le nombre d'enregistrement dans le fichier sans avoir le parcourir entierement en faisant des i++

Voila comment je fait actuellement, sachant que j'ai 4 ligne enregistrées je fait un Rnd(3) qui me sort toujours l'une des 2 premieres phrases d'ailleur, je pense que le rnd plante.


Open App.Path & "\phrase.txt" For Input As #1 'Ouverture du fichier
For i = 0 To Rnd(3)
Line Input #1, Contenu 'Lecture de la ligne
Next
Close #1


Merci de m'eclaircir sur la syntax.


DoR][aN

je pense que ca pourrait ressembler a ca :
cpt = 0
MyValue = Rnd(3)
Text1.Text = ""

Open App.Path & "\phrase.txt" For Input As #2
Do While Not EOF(2) ' Tant que la lecture n'est pas a la fin du fichier
Line Input #2, S ' Lit et place les lignes dans la variable S
if MyValue = Cpt Then Text1.Text = S: Close #2: exit do

cpt = cpt + 1 ' Incremente de 1
Loop
if text1.text =<> "" exit sub
Close #2 ' Ferme le fichier

bonne prog
liquide

dsl ------------> if text1.text =<> "" THEN exit sub
liquide

Bonjour

1. Rnd ou Rnd(x) avec x > 0 renvoie un nombre supérieur ou égal à 0 et inférieur à 1.
Si tu veux un nombre entier compris entre 0 et 3 (4 valeurs possibles) :
Int(Rnd * 4)
2. Si tu veux que ce nombre soit vraiment aléatoire, il faut faire précéder cette fonction par l'instruction Randomize.

Open App.Path & "\phrase.txt" For Input As #1 Randomize For i = 0 To Int(Rnd * 4))    Line Input #1, Contenu Next i Close 1

3. "est-il possible de connaitre le nombre d'enregistrement dans le fichier sans avoir le parcourir entierement"
Pour un fichier texte séquentiel, je ne connais pas d'autre méthode.

Un grand merci à vous 2.

DoR][aN