Compter le nombre d'occurence d'un caractere
metalcoder
- Messages postés
- 193
- Date d'inscription
- jeudi 14 février 2002
- Statut
- Membre
- Dernière intervention
- 25 mars 2011
- Messages postés
- 1
- Date d'inscription
- vendredi 28 septembre 2007
- Statut
- Membre
- Dernière intervention
- 3 octobre 2008
A voir également:
- Vba compter le nombre de caractère dans une chaine
- Sql compter le nombre d'occurence dans une chaine - Meilleures réponses
- Nombre d'occurence d'un caractère dans une chaine pascal - Meilleures réponses
- Compter le nombre d'occurence dans une chaine de caractères - Forum - VB.NET
- Compter les caractères d'une text box - Forum - Visual Basic
- Compter le nombre de caractères en c - Guide
- Java compter le nombre de caractère dans un string ✓ - Forum - Java
- Compter le nombre de fois d'une chaine de caractère dans une chaine ✓ - Forum - Java
9 réponses
Meilleure réponse
- Messages postés
- 21
- Date d'inscription
- dimanche 25 juillet 2004
- Statut
- Membre
- Dernière intervention
- 17 août 2007
perso,
je fais ça (et sa marche même pour rechercher le nombre d'occurrences d'une sous-chaine
je te donne la fonction
Function NbOc(Chaine As String, Ch As String, Optional RC As Boolean = False) As Long
If RC Then
NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , 0))) / Len(Ch)
Else
NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , 1))) / Len(Ch)
End If
End Function
ou:
Chaine=Ta chaine principale
Ch=Ta sous chaine (ou caractère)
RC=Pour Respecter ou non la Casse dans la fonction Replace prédéfinie en visual basic
si RC=False alors majuscule = minuscule
si RC=True alors majuscule /= minuscule
@+
Yocrita,
je fais ça (et sa marche même pour rechercher le nombre d'occurrences d'une sous-chaine
je te donne la fonction
Function NbOc(Chaine As String, Ch As String, Optional RC As Boolean = False) As Long
If RC Then
NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , 0))) / Len(Ch)
Else
NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , 1))) / Len(Ch)
End If
End Function
ou:
Chaine=Ta chaine principale
Ch=Ta sous chaine (ou caractère)
RC=Pour Respecter ou non la Casse dans la fonction Replace prédéfinie en visual basic
si RC=False alors majuscule = minuscule
si RC=True alors majuscule /= minuscule
@+
Yocrita,
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
208 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3758
- Date d'inscription
- mardi 23 septembre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 mars 2006
- Messages postés
- 261
- Date d'inscription
- jeudi 13 janvier 2005
- Statut
- Membre
- Dernière intervention
- 18 mai 2009
perso, je trouve la solution de
yocrita tres bonne, je suis jaloux de ne pas avoir pense aux
len(replace plutot mais je pense qu'elle pourait etre simplifiee :
Function NbOc(Chaine As String, Ch As String, Optional RC As integer = 1) As Long
NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , RC))) / Len(Ch)
End Function
ou:
Chaine=Ta chaine principale
Ch=Ta sous chaine (ou caractère)
RC=Pour Respecter ou non la Casse dans la fonction Replace prédéfinie en visual basic
si RC=1 alors majuscule = minuscule
si RC=0 alors majuscule /= minuscule
yocrita tres bonne, je suis jaloux de ne pas avoir pense aux
len(replace plutot mais je pense qu'elle pourait etre simplifiee :
Function NbOc(Chaine As String, Ch As String, Optional RC As integer = 1) As Long
NbOc = (Len(Chaine) - Len(Replace(Chaine, Ch, "", , , RC))) / Len(Ch)
End Function
ou:
Chaine=Ta chaine principale
Ch=Ta sous chaine (ou caractère)
RC=Pour Respecter ou non la Casse dans la fonction Replace prédéfinie en visual basic
si RC=1 alors majuscule = minuscule
si RC=0 alors majuscule /= minuscule
- Messages postés
- 193
- Date d'inscription
- jeudi 14 février 2002
- Statut
- Membre
- Dernière intervention
- 25 mars 2011
Merci de vos réponses, elles marche mais dans mon cas je me suis mal explique et ca me convenait pas
en faite je voulais empecher l'utilisateur de rentre 2 fois par idnavertance le caractere "." dans une zone de texte qui contient un prix (par ex; evite de mettre 12..50 ou 12.50.) etc...
j'ai finalement fait ca comme ca (c'est pas super joli car le curseur se remet au debut de la zone de texte mais au moins ca marche)
Dim text
Private Sub Text1_KeyPress(KeyAscii As Integer)
text = Text1.text
If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) And KeyAscii <> 46) Then
KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim essai() As String
essai() = Split(Text1.text, ".")
If UBound(essai) > 1 Then
Text1.text = text
End If
End Sub
Merci encore
Metalcoder
en faite je voulais empecher l'utilisateur de rentre 2 fois par idnavertance le caractere "." dans une zone de texte qui contient un prix (par ex; evite de mettre 12..50 ou 12.50.) etc...
j'ai finalement fait ca comme ca (c'est pas super joli car le curseur se remet au debut de la zone de texte mais au moins ca marche)
Dim text
Private Sub Text1_KeyPress(KeyAscii As Integer)
text = Text1.text
If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) And KeyAscii <> 46) Then
KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim essai() As String
essai() = Split(Text1.text, ".")
If UBound(essai) > 1 Then
Text1.text = text
End If
End Sub
Merci encore
Metalcoder
- Messages postés
- 3758
- Date d'inscription
- mardi 23 septembre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 mars 2006
- Messages postés
- 3758
- Date d'inscription
- mardi 23 septembre 2003
- Statut
- Modérateur
- Dernière intervention
- 13 mars 2006
- Messages postés
- 193
- Date d'inscription
- jeudi 14 février 2002
- Statut
- Membre
- Dernière intervention
- 25 mars 2011
- Messages postés
- 1
- Date d'inscription
- vendredi 28 septembre 2007
- Statut
- Membre
- Dernière intervention
- 3 octobre 2008
Bien que les solutions en VB ci-haut fonctionnent... je vous propose de le faire sans aucune macro...
En résumé vous compter le nombre de caractère de votre expression. Ensuite vous soustrayez le nombre de caractère de cette même expression dans laquelle au préalable vous remplacer le texte cherché par "". Facile!!!
N occurence = nbcar(concatener(cellules que vous voulez compter les occurences)) - nbcar(substitue(concatener(cellules où vous voulez compter les occurences);texte cherché;""))
Charles
En résumé vous compter le nombre de caractère de votre expression. Ensuite vous soustrayez le nombre de caractère de cette même expression dans laquelle au préalable vous remplacer le texte cherché par "". Facile!!!
N occurence = nbcar(concatener(cellules que vous voulez compter les occurences)) - nbcar(substitue(concatener(cellules où vous voulez compter les occurences);texte cherché;""))
Charles