A voir également:
- Compter le nombre d'un caractère dans une string
- Nombre premier ✓ - Forum C / C++ / C++.NET
- Parcourir une chaine de caractère en python - Forum Python
- Chaine de caractère ✓ - Forum Python
- Trouver toutes les positions d'une lettre dans une chaine - Forum Python
- Compter le nombre d'occurence excel ✓ - Forum VB.NET
3 réponses
Bien pour savoir combien de "a"(ou autres) il y à dans une chaine de caractère tu peut faire comme ca:
Private Sub Command1_Click()
Dim lStart As Long
Dim StrTexte As String
Dim StrCar As String
Dim NumCar As Long
On Error Resume Next
StrTexte = "Allo ca va bien"
StrCar = "a"
NumCar = 0
lStart = InStr(1, LCase$(StrTexte), LCase$(StrCar))
If lStart > 0 Then
NumCar = 1
Do While lStart > 0
lStart = InStr(lStart + 1, LCase$(StrTexte), LCase$(StrCar))
If lStart > 0 Then NumCar = NumCar + 1
Loop
End If
MsgBox "Il y à " & NumCar & " " & StrCar & " dans : Allo ca va bien", vbInformation
End Sub
Je l'ai essayer et ca fonctionne bien.
NitRic28@Hotmail.com
VB_MAN
Private Sub Command1_Click()
Dim lStart As Long
Dim StrTexte As String
Dim StrCar As String
Dim NumCar As Long
On Error Resume Next
StrTexte = "Allo ca va bien"
StrCar = "a"
NumCar = 0
lStart = InStr(1, LCase$(StrTexte), LCase$(StrCar))
If lStart > 0 Then
NumCar = 1
Do While lStart > 0
lStart = InStr(lStart + 1, LCase$(StrTexte), LCase$(StrCar))
If lStart > 0 Then NumCar = NumCar + 1
Loop
End If
MsgBox "Il y à " & NumCar & " " & StrCar & " dans : Allo ca va bien", vbInformation
End Sub
Je l'ai essayer et ca fonctionne bien.
NitRic28@Hotmail.com
VB_MAN
Bien pour savoir combien de "a"(ou autres) il y à dans une chaine de caractère tu peut faire comme ca:
Private Sub Command1_Click()
Dim lStart As Long
Dim StrTexte As String
Dim StrCar As String
Dim NumCar As Long
On Error Resume Next
StrTexte = "Allo ca va bien"
StrCar = "a"
NumCar = 0
lStart = InStr(1, LCase$(StrTexte), LCase$(StrCar))
If lStart > 0 Then
NumCar = 1
Do While lStart > 0
lStart = InStr(lStart + 1, LCase$(StrTexte), LCase$(StrCar))
If lStart > 0 Then NumCar = NumCar + 1
Loop
End If
MsgBox "Il y à " & NumCar & " " & StrCar & " dans : Allo ca va bien", vbInformation
End Sub
Je l'ai essayer et ca fonctionne bien.
NitRic28@Hotmail.com
VB_MAN
Private Sub Command1_Click()
Dim lStart As Long
Dim StrTexte As String
Dim StrCar As String
Dim NumCar As Long
On Error Resume Next
StrTexte = "Allo ca va bien"
StrCar = "a"
NumCar = 0
lStart = InStr(1, LCase$(StrTexte), LCase$(StrCar))
If lStart > 0 Then
NumCar = 1
Do While lStart > 0
lStart = InStr(lStart + 1, LCase$(StrTexte), LCase$(StrCar))
If lStart > 0 Then NumCar = NumCar + 1
Loop
End If
MsgBox "Il y à " & NumCar & " " & StrCar & " dans : Allo ca va bien", vbInformation
End Sub
Je l'ai essayer et ca fonctionne bien.
NitRic28@Hotmail.com
VB_MAN
