Afficher une phrase d'un fichier aléatoirement

cs_Antony Messages postés 83 Date d'inscription mardi 30 juillet 2002 Statut Membre Dernière intervention 13 février 2008 - 14 janv. 2004 à 20:45
cs_Antony Messages postés 83 Date d'inscription mardi 30 juillet 2002 Statut Membre Dernière intervention 13 février 2008 - 17 janv. 2004 à 13:03
bonjour à tous !
J'aimerais savoir comme je peux afficher une phrase d'un fichier txt mais au hasard !! merci d'avance !
antony un ami qui vous veut du bien

2 réponses

pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
14 janv. 2004 à 23:11
voila un petit exemple!! pour plus de détails ou d'explications fait le savoir dans ce post...

Dim Ligne()
Dim x As Integer
'lecture et stockage dans le tableau Ligne
Open "c:\\fichier.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve Ligne(x)
Line Input #1, t$
Ligne(x) = t$
x = x + 1
Loop
Close #1

Randomize
x = (Rnd * UBound(Ligne)) 'Nb aléatoire
Text1 = Ligne(x)
0
cs_Antony Messages postés 83 Date d'inscription mardi 30 juillet 2002 Statut Membre Dernière intervention 13 février 2008
17 janv. 2004 à 13:03
Super c'est exactement ce que je voulais !!! Merci à toi :)
antony un ami qui vous veut du bien
0
Rejoignez-nous