RETOUR D'UN MOT PRÉCIS A L'INTÉRIEUR D'UNE CHAINE , Source N°20704

Information sur la source

Catégorie :Tutoriaux Niveau : Initié Date de création : 23/02/2004 Vu : 2 808

Auteur : SpOrTiF

Site perso

Ecrire un message privé

Note :

5,50 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (11)

Ajouter un commentaire et/ou une note

Description

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

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

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

Sources du même auteur

Toutes les sources de SpOrTiF

Sources de la même categorie

Toutes les sources de la catégorie Tutoriaux

Commentaires

Commentaire de ld40 le 23/02/2004 20:29:39

tu veux dire ...

Dim chaine As String
Dim getMot As Variant
Dim indice As Double
chaine = "code tres simple et facile"
getMot = Split(chaine)
indice = 2
MsgBox "Mot n°" + Trim(Str(indice)) + " = " + getMot(indice - 1)
Commentaire de PROGRAMMIX le 23/02/2004 22:36:22

>> Id40
Puisque Split renvoie un tableau de chaine, tu peux déclarer getMot de la manière suivante : getMot() As String.
Personnellement, je n'aime pas trop les Variant.
Mais cela reste bien sûr une affaire de goût.
Commentaire de pcpunch le 24/02/2004 02:03:45

Comme le dit Ld40 pourquoi faire une fonction si compliquer pour si peu ?????

Public Function GetMot(Chaine As String, mot As Integer)
Dim TabMot() As String
TabMot = Split(Chaine, " ")
If mot - 1 > UBound(TabMot) Or mot = 0 Then GetMot = "Erreur": Exit Function
GetMot = TabMot(mot - 1)
End Function

GetMot("code tres simple et facile", 3)--->renvoie simple!!!
Commentaire de SpOrTiF le 24/02/2004 04:20:05

Je connais malheureusement pas tous les codes ou les fonctions de Visual Basic.. je connais pas la fonction Split.. Mais disons que ma fonction a été analysé afin de déquortiqué une chaine qui pourrait avoir plusieurs espaces entre les mots. j'essais de bien faire, bientot, ma probablement mettre le code de mon bot IRC qui est pas mal je trouve.

Merci pour les commentaires
Commentaire de SpOrTiF le 24/02/2004 04:20:15

Je connais malheureusement pas tous les codes ou les fonctions de Visual Basic.. je connais pas la fonction Split.. Mais disons que ma fonction a été analysé afin de déquortiqué une chaine qui pourrait avoir plusieurs espaces entre les mots. j'essais de bien faire, bientot, ma probablement mettre le code de mon bot IRC qui est pas mal je trouve.

Merci pour les commentaires
Commentaire de ld40 le 24/02/2004 08:16:30

nous avons vu au premier coup d'oeil que c'est un code de débutant
;-)

je t'ai donné une solution plus simple pour t'aider à progresser.

Ne te laisse pas abattre, on est tous passé par là. ;-)
Commentaire de pcpunch le 24/02/2004 10:53:42

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
Commentaire de pcpunch le 24/02/2004 11:01:04

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

++
Commentaire de SpOrTiF le 24/02/2004 13:56:22

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
Commentaire de larsen44 le 21/02/2005 00:28:47

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
Commentaire de ld40 le 21/02/2005 19:02:18

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()