Compter des lettres
H@lloWin___HiA
-
14 mars 2001 à 01:23
lucky2222 Messages postés 92 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 2 octobre 2006 - 3 nov. 2002 à 21:20
lucky2222 Messages postés 92 Date d'inscription dimanche 14 juillet 2002 Statut Membre Dernière intervention 2 octobre 2006 - 3 nov. 2002 à 21:20
3 réponses
Il va chercher toutes les lettres " e " majuscule et minuscule, exemple :
Private Sub Command1_Click()
Dim lStart As Long
Dim Num As Long
Num = 0
lStart = InStr(1 , LCase$(txta.Text), "e")
If lStart > 0 Then
Do While lStart > 0
If lStart > 0 Then
Num = Num + 1
End If
lStart = InStr(lStart + 1, LCase$(txta.Text), "e")
Loop
End If
txtb.Text = Num
End Sub
Private Sub Command1_Click()
Dim lStart As Long
Dim Num As Long
Num = 0
lStart = InStr(1 , LCase$(txta.Text), "e")
If lStart > 0 Then
Do While lStart > 0
If lStart > 0 Then
Num = Num + 1
End If
lStart = InStr(lStart + 1, LCase$(txta.Text), "e")
Loop
End If
txtb.Text = Num
End Sub
lucky2222
Messages postés
92
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
2 octobre 2006
3 nov. 2002 à 21:20
3 nov. 2002 à 21:20
salut!
une question bête, et pour connaitre le nombre de lettre que comporte le mot, on remplace le "e" par "*"? ca marcherai??
une question bête, et pour connaitre le nombre de lettre que comporte le mot, on remplace le "e" par "*"? ca marcherai??