Le code ci-joint est très simple, il permet de retourner un mot a l'intérieur d'une chaine.. et retourne 0 si il ne l'a pas trouvé... il permet de retourner un mot parmit une chaine qui contient plus de 200 mots. Si le nombre de mots excède, il retournera le numero du mot que vous voulez ainsi, vous aurez que a modifier la la valeur du tableau et du compteur.
Principe: valeur = getMot(chaine,nombre)
Exemple: chaine = "code tres simple et facile"
temp = getmot(chaine,2) va retourner tres.
Si il y a un bug, écrivez moi, merci
PaT
Source / Exemple :
Function getMot(chaine As String, mot As Integer)
'Declation des variables
Dim mots(200) As String
Dim ok As Boolean
Dim compteur As Integer
'initialisation des variables
ok = False
compteur = 0
'debut de la programmation
If InStr(chaine, " ") > 0 Then
While (ok = False)
compteur = compteur + 1
If InStr(chaine, " ") > 0 Then
If compteur < 200 Then 'Si compteur de mots inférieur a 200..
mots(compteur) = Left(chaine, InStr(chaine, " ") - 1)
chaine = Right(chaine, Len(chaine) - InStr(chaine, " "))
While (Left(chaine, 1) = " ")
chaine = Right(chaine, Len(chaine) - 1)
Wend
Else 'Sinon + de 200, fermeture de la boucle..
ok = True
End If
Else
While (Right(chaine, 1) = " ")
chaine = Left(chaine, Len(chaine) - 1)
Wend
mots(compteur) = chaine
ok = True
End If
Wend
End If
If mot <= compteur Then
getMot = mots(mot)
Else
getMot = 0
End If
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.