Discussion :

[Touny]

Bonjour à tous,

J'aimerais calculer le nombre de "lettre" (guillemets) et "d'espace" dans une chaine de caractère du type "Nombre d'articles 24". Le résultat me renverrais donc "18".

Pour calculer la longueur du chaine je fais :

Code :

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

1
2
3
4
Dim chaine
chaine = "Nombre d'articles 24"
long = Len(chaine)
msgbox long

et là le résultat me renvoi "20"

Merci pour votre aide

[ProgElecT]

Salut

Il te faut faire une détection du code ascii de chaque constituant de ta phrase

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim chaine
Dim T, LtrMA, LtrMi, Esp, Gui, Chfr, CodAscii
chaine = "Nombre d'articles 24"
For t = 1 to Len(chaine)
        CodAscii = asc(mid(chaine,t,1))
        if CodAscii = 32 then Esp = Esp + 1
        if CodAscii = 39 then Gui = Gui + 1
        if CodAscii >= 48 and CodAscii <= 57 then Chfr = Chfr + 1
        if CodAscii >= 65 and CodAscii <= 90 then LtrMA = LtrMA + 1
        if CodAscii >= 97 and CodAscii <= 122 then LtrMi = LtrMi + 1
Next
 
MsgBox "Dans la chaine: " & chaine & " il y a" & vbcrlf _
        & Esp & " espace(s)" & vbcrlf _
        & Gui & " guillemet(s)" & vbcrlf _
        & Chfr & " chiffre(s)" & vbcrlf _
        & LtrMA & " lettre(s) MAJ" & vbcrlf _
        & LtrMi & " lettre(s) min"

[Touny]

Merci

[omen999]

bonjour,
ou les expressions régulières :

Code :

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

1
2
3
4
5
6
7
8
9
Set regEx = New RegExp
regEx.Pattern = "\D+"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute("Nombre d'articles 24")
For Each Match in Matches   'Itère la collection Matches.
   RetStr = RetStr & Len(Match.Value) & vbCRLF
Next
MsgBox RetStr