duff88
Messages postés6Date d'inscriptionlundi 8 mai 2006StatutMembreDernière intervention10 juin 2006
-
8 juin 2006 à 20:03
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024
-
12 juin 2006 à 08:12
Quelqu'un pourrait-il me donner un exemple de code qui pourrait ouvrir un fichier texte et prendre aléatoirement le texte d'une ligne et l'insérer dans une textbox? Le fichier texte serait disposé, par exemple, comme ceci et il insèrerais aléatoirement l'un des noms dans la textbox:
zelze
Messages postés234Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention30 juillet 2008 8 juin 2006 à 21:33
Private Function LoadFichier() as String
Dim a As Long
Dim NomText as string
NomText= ".txt "
'il faut bien sûr lui spécifier le chemin du fichier en plus...
a = FreeFile()
Open NomText For Input As # a
' Pour le rendre aléatoire il faut mettre une petite condition ici :D
LoadFichier = Input(LOF(a), a )
Close # a
End Function
duff88
Messages postés6Date d'inscriptionlundi 8 mai 2006StatutMembreDernière intervention10 juin 2006 8 juin 2006 à 23:45
Merci, j'ai toutefois encore un problème:
Je n'ai pas trouvé comment mettre une condition pour le faire lire le fichier ligne par ligne. Présentement, il prend tout le fichier dans le textbox, mais je veux qu'il ne prenne qu'une seule ligne aléatoire. Je ne sais pas comment y arriver avec VB6.
duff88
Messages postés6Date d'inscriptionlundi 8 mai 2006StatutMembreDernière intervention10 juin 2006 9 juin 2006 à 18:51
J'ai oublié de dire que je suis débutant. Donc, je ne comprend vos code. Peut-être me suis-je mal fait comprendre. Ce que j'aimerais faire, c'est prendre ce fichier texte:
Jean
Nicolas
Henry
Pascal
Sebastien
Et que mon programme choississe, en cliquant sur un bouton, un nom au hazard dans le fichier texte et me l'affiche dans une textbox. Comme par exemple il pourrait choisir Pascal au premier coup et Henry au deuxieme.
Merci d'avance pour votre patience.
Duff88
Vous n’avez pas trouvé la réponse que vous recherchez ?
duff88
Messages postés6Date d'inscriptionlundi 8 mai 2006StatutMembreDernière intervention10 juin 2006 10 juin 2006 à 19:49
J'aurais cru que c'était quelque chose de simple qu'on pouvait faire sur VB6. J'apprécie les réponses obtenues jusqu'à présent mais je ne suis pas capable de faire fonctionné mon application avec ces codes bien que j'aie tenté de les modifier pour que ça marche...
Quelqu'un peut-il me donner un autre exemple de code qui fonctionnerait?