Fonction pour séparer et sélectionner les mots voulus dans une phrase

Télécharger le projet
Commenter

Description

C'est une fonction pour séparer et sélectionner les mots voulus dans une phrase. Je vais vous expliquer son fonctionnement :
Mot(str As String, lngStart As Long, lngEnd As Long)
Exemple :
Soit une variable "Phrase" = "Ceci est un test"
La fonction "Mot(Phrase, 2, 4)" vous retournera "est un test".
En fait, lngStart = "Prendre à partir du mot n°" et lngEnd = "Jusqu'au mot n°".
Si vous voulez prendre à partir du 2ème mot jusqu'à la fin de la phrase : "Mot(Phrase, 2, 0)"
Pour les scripteurs mIRC, c'est un peu genre "$1" ; "$2" ; "$1-" etc.

Source / Exemple : 


Public Function Mot(str As String, lngStart As Long, lngEnd As Long) 'Début de la fonction
Dim i, lngMots, x As Long 'Déclaration des variables
Dim strMots(1 To 1000) As String 'Déclaration des variables
While i <= Len(str) 'Boucle
i = i + 1 'Incrémentation de i
If Mid(str, i, 1) = Chr(32) Or i = Len(str) Then 'Si Mid(str, i, 1) est égale à un espace ou si i est égale au nombre de caractère de str alors...
lngMots = lngMots + 1 'Incrémentation du nombre de mot
strMots(lngMots) = Mid(str, 1, i) 'On stocke le mot dans la variable
str = Trim(Mid(str, i, Len(str) - i + 1)) 'On enlève de str le mot
i = 1
End If
Wend 'Fin de boucle
i = lngStart - 1 'Ici c'est pour sélectionner juste les mots voulus
If lngEnd <> 0 Then 'Si lngEnd est différent de 0 alors...
While i < lngEnd 'Boucle
i = i + 1 'Incrémentation de i
Mot = Mot & strMots(i) 'Mot est égale à sa valeur + le mot stocké dans la variable strMots
Wend 'Fin de boucle
Else
While i < lngMots 'Boucle
i = i + 1 'Incrémentation de i
Mot = Mot & strMots(i) 'Mot est égale à sa valeur + le mot stocké dans la variable strMots
Wend 'Fin de boucle
End If
End Function 'Fin de la fonction

Conclusion :


Je suppose qu'il existe une fonction pour ça, mais je ne la connais pas alors, je l'ai faite :) Pas de bug connus pour le moment... Si vous trouvez des erreurs, ou que vous connaissez une fonction déjà faites pour ça, ou pour donner votre avis, etc. laissez un commentaire, merci ;)
Télécharger le projet

Codes Sources

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