COMPTER LES MOTS D' UN TEXTE

Commentaire de Renfield le 06/09/2003 15:27:13 administrateur CS

on peut aussi faire ainsi :

. lier la reference 'Microsoft VbScript Regular Expression 5.5'

Private Sub Command1_Click()
    Dim REG As New RegExp
    Dim Matches As MatchCollection
    REG.Global = True
    
    REG.Pattern = "[^s""',.?!;¤$£?:%+-*/\&#§<>{}([)]]+"
    
    Set Matches = REG.Execute(Text1.Text)
    MsgBox Matches.Count & " mots."
End Sub

--------------------
attention, ce code fonctionne chez moi, mais je ne sais pas si les Slashes et BackSlashes s'afficheront correctement sur vbfrance.....

Commentaire de OphidiaN le 06/09/2003 15:53:37

hmmm c un peu barbare....

pour compter les mots ya un truc immediat et bcp plus simple ;)

NbreDeMots = (UBound(Split(Text1.Text, " ", , vbTextCompare)) +1)

c pas plus simple ça hein ?

Commentaire de adilsmi2 le 01/06/2005 21:31:10

salut c adil du royaume du Maroc;en une phrase votre vos traveaux sont exellents et magnifiques ;)