Bonjour,, je suis debutant,, et je n'arrive pas du tt à faire cela,,,j'ai tt essayé :(

donc,,

dans un fichier texte
j'ai par exemple
manger
boire
dormir

je voudrai pouvoir louvrir dans un textbox en prenant au hazard un des mots !!

Merci
@++

Lu ....
Voici de quoi t'aider .... J'explique... Sur ton form tu mets un Richtextbox ( c mieux qu'un simple textbox), t mets deux boutons et un textbox ....
Le premier bouton va servir a ouvrir le fichier ... Et le deuxieme va servir a choisir au hasard un mot dans le fichier texte.

Ensuite tu mets se code :


Private Sub Command1_Click()
rtb.LoadFile ("c:\inspect.txt") 'ici tu mets le chemin de ton fichier

End Sub

Private Sub Command2_Click()
rtb.Text = Replace(rtb.Text, " ", "<")
Dim MyTab() As String
MyTab() = Split(rtb.Text, "<")
a = UBound(MyTab)
b = 0
While b < 1
Randomize
i = Int(Rnd * a) - 2
If i <= a And MyTab(i) <> vbNullString Then
Text1.Text = MyTab(i)
b = 3
End If
Wend
End Sub

Voili voilou ... c pas plus compliqué que ca... au fait rtb c le nom de mon richtextbox...
Bonne continuation...
Si t'as d'autres pb ou si t veux des explications sur le code n'hesite pas ;)
A++

DeAtH_-_CrASH

-------------------------------
Réponse au message :
-------------------------------

Bonjour,, je suis debutant,, et je n'arrive pas du tt à faire cela,,,j'ai tt essayé :(

donc,,

dans un fichier texte
j'ai par exemple
manger
boire
dormir

je voudrai pouvoir louvrir dans un textbox en prenant au hazard un des mots !!

Merci
@++



Salut :

Pour charger le texte :

'Placez un contrôle List1 dans votre projet
Placez un contrôle Text1 '' '''' ''''

Dans Votre Form_Load : ' Par exemple

Private Sub Form_Load
dim A$
open "nomdifichier" for input as #1
do while not eof(1)
line input#1,A$
list1.additem A$
loop
close#1
End Sub

'Créez une Sub : Ex Private Sub Tirage

Private Sub Tirage()
dim T as integer
'initialiser un tirage alléatoire grâce au timer
randomize timer
'tirer un nombre au hazard
t=int(list1.listcount*rnd)
text1=list1.list(T)
End Sub

'Pour effectuer un tirage :
Call Tirage


Bonne programmation !

En reponse a ta question, j'ai fait une ptite source qui je penses va t'eclaircir un peu les idées ... Elle n'est pas commenté .... Si tu comprend pas des truc t'as qu'a le demander ...
Voici l'url :
http://www.vbfrance.com/article.asp?Val=4176
Allé bon courage...
A++

DeAtH_-_CrAsH



-------------------------------
Réponse au message :
-------------------------------

Bonjour,, je suis debutant,, et je n'arrive pas du tt à faire cela,,,j'ai tt essayé :(

donc,,

dans un fichier texte
j'ai par exemple
manger
boire
dormir

je voudrai pouvoir louvrir dans un textbox en prenant au hazard un des mots !!

Merci
@++