Ouvrir un fichier texte en prenant un mot au hazard a linterieur
LaMoUcHe2002
Messages postés
37
Date d'inscription
samedi 4 mai 2002
Statut
Membre
Dernière intervention
13 mars 2003
-
11 mai 2002 à 18:02
DeAtHCrAsH Messages postés 2670 Date d'inscription vendredi 25 janvier 2002 Statut Membre Dernière intervention 6 février 2013 - 12 mai 2002 à 00:41
DeAtHCrAsH Messages postés 2670 Date d'inscription vendredi 25 janvier 2002 Statut Membre Dernière intervention 6 février 2013 - 12 mai 2002 à 00:41
3 réponses
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
11 mai 2002 à 23:31
11 mai 2002 à 23:31
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 ;)
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 ;)
cs_mds
Messages postés
21
Date d'inscription
mardi 17 juillet 2001
Statut
Membre
Dernière intervention
19 août 2007
11 mai 2002 à 23:56
11 mai 2002 à 23:56
-------------------------------
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 !
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 !
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
12 mai 2002 à 00:41
12 mai 2002 à 00:41
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 ;)
Voici l'url :
http://www.vbfrance.com/article.asp?Val=4176
Allé bon courage...
A++
DeAtH_-_CrAsH ;)