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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 847 fois - Téléchargée 26 fois

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

Ajouter un commentaire Commentaires
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
1
Tabmot n'est pas un string mais un variant. c'est à dire ici, un tableau dont les indices varient de 0 à ubound(Tabmot)-1

si tu veux remplacer des étoiles par du texte, utilise replace()
Messages postés
13
Date d'inscription
mercredi 26 janvier 2005
Statut
Membre
Dernière intervention
16 février 2007

Salut à tous je suis moi aussi un débutant en programmation et j'ai réalisé par l'intermédiaire de mes cours un Pendu en php et j'essaye de faire de mm en vb donc je travaille avec les chaines et voila que je galere pour remplacer les etoiles par les lettres trouvées...utilisé Right , Left , Middle , enfin je bricole on va dire et je suis tombé sur ce post tres interessant.
Apres j'ai un question a poser aux personnes qui ont écris les fonction pour que je comprenne bien l'idée:
Pkoi utiliser Split qui selon Msdn Renvoie un tableau de base zéro à une dimension contenant le nombre spécifié de sous-chaînes.
Alors que lors de la déclaration vous identifiez le tableau comme un tableau de caracteres : Dim TabMot() As String
Donc ya quelque chose que je n'ai pas pigé avec Split si vous pouvez m'éclairer ce serai sympa
Merci
Messages postés
62
Date d'inscription
mardi 9 octobre 2001
Statut
Membre
Dernière intervention
2 septembre 2008

Disons que j'suis étudiant pour devenir programmeur analyste, j'étudie a un cegep a québec pis j'ai appris java,cobol,c,vb..

Malgré que VB c'est quand meme bien, je me débrouille, mais quand je connais pas la fonction pour me simplifier la vie, j'code moi meme. j'avoue que ek un split() cela peut aider grandement.

Comme présentement là, je finalise un super bot fonctionne en VB ek des modules et des classes.. y'é vraiment nice, sauf que je dois le perfectionner pour mieux contrer le flood.

PaT
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
4
Le mm code commentée :

Public Function GetMot(Chaine As String, mot As Integer)
Dim TabMot() As String 'Declaration du tableau
TabMot = Split(Chaine, " ") 'remplie le tableau : délimiteur " "

For i = 0 To UBound(TabMot) 'parcourt du tableau
'Si l'entrée du tableau est " " alors on ajoute 1 a mot
If TabMot(i) vbNullString Then mot mot + 1
Next i

'Gestion d'erreur
If mot - 1 > UBound(TabMot) Or mot 0 Then GetMot "Erreur": Exit Function

'Renvoie le mot-1 car le premier enregistrement du tableau est 0
GetMot = TabMot(mot - 1)
End Function

++
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
4
Oui c'est simplement histoire de te montrer!!! matte le code pour comprendre!!!

Pour gérer plusieurs espace :

Public Function GetMot(Chaine As String, mot As Integer)
Dim TabMot() As String
TabMot = Split(Chaine, " ")
For i = 0 To UBound(TabMot)
If Trim(TabMot(i)) vbNullString Then mot mot + 1
Next i
If mot - 1 > UBound(TabMot) Or mot 0 Then GetMot "Erreur": Exit Function
GetMot = TabMot(mot - 1)
End Function
Afficher les 11 commentaires

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.