Trouver le x eme mot
cs_kalif
Messages postés
362
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
24 août 2012
-
21 juin 2002 à 14:02
cs_kalif Messages postés 362 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 24 août 2012 - 22 juin 2002 à 20:01
cs_kalif Messages postés 362 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 24 août 2012 - 22 juin 2002 à 20:01
A voir également:
- Trouver le x eme mot
- Modele de mot mele - Forum Java
- Melangeur de mot - Forum C
- Scriptchat x - Forum PHP
- Coordonnes x,y - Forum Visual Basic 6
- Melangeur de mot ✓ - Forum Visual Basic
3 réponses
wargames8
Messages postés
3
Date d'inscription
samedi 15 juin 2002
Statut
Membre
Dernière intervention
24 juillet 2002
21 juin 2002 à 14:37
21 juin 2002 à 14:37
Voilà une méthode simple pour trouver le x ème mot. (Il faut finir le débogage, notamment en ce qui concerne le dernier mot de la phrase).
Private Sub Form_Load()
On Error GoTo Err
Dim Nb_Mot
Dim A, B
Dim ChTester
Nb_Mot = 0
Test = "Ceci est une phrase"
ChTester = ""
A = 1
While Nb_Mot < 2
ChTester = ""
While ChTester <> " "
ChTester = Mid(Test, A, 1)
A = A + 1
Wend
A = A + 1
Nb_Mot = Nb_Mot + 1
Wend
'MsgBox Mid(Test, (A - 1), 1)
Test2 = Right(Test, Len(Test) - A + 2)
'MsgBox Test2
ChTester = ""
A = 1
While ChTester <> " "
ChTester = Mid(Test2, A, 1)
A = A + 1
Wend
MsgBox "Mot " & Nb_Mot & ": " & Left(Test2, A - 2)
End
Exit Sub
Err:
MsgBox "Erreur"
End Sub
Private Sub Form_Load()
On Error GoTo Err
Dim Nb_Mot
Dim A, B
Dim ChTester
Nb_Mot = 0
Test = "Ceci est une phrase"
ChTester = ""
A = 1
While Nb_Mot < 2
ChTester = ""
While ChTester <> " "
ChTester = Mid(Test, A, 1)
A = A + 1
Wend
A = A + 1
Nb_Mot = Nb_Mot + 1
Wend
'MsgBox Mid(Test, (A - 1), 1)
Test2 = Right(Test, Len(Test) - A + 2)
'MsgBox Test2
ChTester = ""
A = 1
While ChTester <> " "
ChTester = Mid(Test2, A, 1)
A = A + 1
Wend
MsgBox "Mot " & Nb_Mot & ": " & Left(Test2, A - 2)
End
Exit Sub
Err:
MsgBox "Erreur"
End Sub
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
21 juin 2002 à 17:39
21 juin 2002 à 17:39
Ya beaucoup plus simple et beaucoup plus fiable :
Si tu as VB6, tu peux le faire avec la focntion Split comme tel :
Dim MyTab() as string
MyTab() = Split(Text1.text, " ")
a = InputBox("Quelle est le numero du mot a saisir:")
MsgBox MyTab(i-1)
Sinon si tu asz VB4 ou VB5, j'ai fait une onction equivalente a Split que tu trouvera sur ce site...
Voili voilou ...
A++
DeAtH_-_CrAsH
P.S : Tu peux aussi faire ca avec la commande Instr
Si tu as VB6, tu peux le faire avec la focntion Split comme tel :
Dim MyTab() as string
MyTab() = Split(Text1.text, " ")
a = InputBox("Quelle est le numero du mot a saisir:")
MsgBox MyTab(i-1)
Sinon si tu asz VB4 ou VB5, j'ai fait une onction equivalente a Split que tu trouvera sur ce site...
Voili voilou ...
A++
DeAtH_-_CrAsH
P.S : Tu peux aussi faire ca avec la commande Instr
cs_kalif
Messages postés
362
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
24 août 2012
22 juin 2002 à 20:01
22 juin 2002 à 20:01
hum un peu d'explication avec ta source serait la bienvenue ...
++
ps: la source de deathcrash ne va pas ==> erreur: "indice en dehors de la plage"
++
ps: la source de deathcrash ne va pas ==> erreur: "indice en dehors de la plage"