Retour d'un mot précis a l'intérieur d'une chaine

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_SpOrTiF)