Discussion :

[Gamuelf]

Bonsoir,

j'ai une liste de noms entrés par l'utilisateur. Pour une des fonctions de mon programme, je dois vérifier le nombre de mots contenus dans chacune de ces chaînes de caractères. Je sais que le moyen le plus rapide est de trouver les séparateurs (les espaces dans mon cas) entre ces mots mais je ne sais pas comment l'écrire.

Merci d'avance!

[pc75]

Bonjour,

La fonction Split() est ton amie !

[petit rabot]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
 
Dim Phrase As String
Dim NbMots As Integer
Dim tmp
Dim message
 
    Phrase = "La nuit tous les chats sont gris"
    tmp = Split(Phrase, " ")
    NbMots = UBound(tmp) + 1
    message = MsgBox("Il y à " & NbMots  & " mots dans la phrase", vbInformation)
 
End Sub

Mais il y a surement meilleur.

[DarkVader]

Bonjour,
Il y a des précautions à prendre, Split seule pourrait retourner des résultats erronés :
- Encadrer par Trim afin de supprimer les espaces de début et de fin,
- remplacer les enchainements d'espaces par des espaces uniques
- faire de même pour les éventuelles ponctuations, etc.

Une bonne formule serait de parcourir la chaine splittée et y appliquer une expression régulière.