A voir également:
- Vba compter le nombre de caractère dans une chaine
- Vba compter le nombre de caractère - Meilleures réponses
- Nombre d'occurence d'un caractère dans une chaine en c - Meilleures réponses
- Compter le nombre d'occurence d'un caractere - Forum - Visual Basic
- Compter le nombre de caractères d'un TextBox - Forum - Visual Basic
- 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
- C# compter le nombre de caractère d'une chaine ✓ - Forum - C# / .NET
14 réponses
Bonjour à tous et désolé de m'immiscer dans la discussion,
à propos du $ pour les fonctions de chaînes, non seulement VB renvoi une chaîne comme le dit Cheyenne, mais en plus il ne perd pas de temps à déterminer le type en entrée, il attend une chaîne et si ce n'en est pas une, il râle.
TOUJOURS, le mettre MEME si c'est facultatif.
Calade
à propos du $ pour les fonctions de chaînes, non seulement VB renvoi une chaîne comme le dit Cheyenne, mais en plus il ne perd pas de temps à déterminer le type en entrée, il attend une chaîne et si ce n'en est pas une, il râle.
TOUJOURS, le mettre MEME si c'est facultatif.
Calade
Bonsoir,
Je cherche à créer une fonction qui me permettra de compter le nombre d'occurrence d'un caractère particulier ("a" par exemple) dans une chaîne quelconque.
J'ai essayé avec cette "fonction" mais aucune valeur ne remonte (si toujours 0 !!!).
Merci de votre aide.
Function renvoie(s As String)
Dim i As Integer
Dim resultat As Integer
resultat = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = a Then
resultat = resultat + 1
End If
Next
End Function
Sub test_renvoie()
Dim s As String ' chaîne de test, donnée par l'utilisateur
Dim nb_de_a As Integer ' nb de a dans s
Dim test As Integer
s = InputBox("Texte ?")
test = renvoie(s)
MsgBox ("nb_de_a = " & test)
End Sub
Je suis désolé mais
If Mid(s, i, 1) = "a"
ne fonctionne toujours pas.
Je cherche à créer une fonction qui me permettra de compter le nombre d'occurrence d'un caractère particulier ("a" par exemple) dans une chaîne quelconque.
J'ai essayé avec cette "fonction" mais aucune valeur ne remonte (si toujours 0 !!!).
Merci de votre aide.
Function renvoie(s As String)
Dim i As Integer
Dim resultat As Integer
resultat = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = a Then
resultat = resultat + 1
End If
Next
End Function
Sub test_renvoie()
Dim s As String ' chaîne de test, donnée par l'utilisateur
Dim nb_de_a As Integer ' nb de a dans s
Dim test As Integer
s = InputBox("Texte ?")
test = renvoie(s)
MsgBox ("nb_de_a = " & test)
End Sub
Je suis désolé mais
If Mid(s, i, 1) = "a"
ne fonctionne toujours pas.
Salut
Inutile de répéter ta question, on avait compris.
Est-ce que tu as réflechis à ce que t'as dit ShayW ?
D'autre part, tu seulement tu ouvrais l'aide de VB, tu saurais que la syntaxe de déclaration ta fonction est incomplète, même si elle peut fonctionner comme ça.
Function renvoie(s As String) As Integer
D'autre part, où, dans ta fonction, renvoies-tu le résultat ?
Nulle part.
Ajoute ceci dans ta fonction :
renvoie = resultat
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
[img]http://allproj
Inutile de répéter ta question, on avait compris.
Est-ce que tu as réflechis à ce que t'as dit ShayW ?
D'autre part, tu seulement tu ouvrais l'aide de VB, tu saurais que la syntaxe de déclaration ta fonction est incomplète, même si elle peut fonctionner comme ça.
Function renvoie(s As String) As Integer
D'autre part, où, dans ta fonction, renvoies-tu le résultat ?
Nulle part.
Ajoute ceci dans ta fonction :
renvoie = resultat
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
[img]http://allproj
cs_cheyenne
- Messages postés
- 693
- Date d'inscription
- samedi 18 mai 2002
- Statut
- Membre
- Dernière intervention
- 17 avril 2017
Bonjour ShayW,
Je dirais même plus :
If Mid$
(s, i, 1) = "a"
Bonne continuation,
Cheyenne
Je dirais même plus :
If Mid$
(s, i, 1) = "a"
Bonne continuation,
Cheyenne
Oui, le $ est facultatif, ce n'est qu'une histoire de compilation/bibliothèque, mais ça ne coûte rien de le mettre et permet de se rappeler que la fonction renvoie une String.
Tiens, encore plus simple :
maChaine = "Super ce forum de Codes-Sources" sTemp = Replace(maChaine, "e", "", vbTextCompare) MsgBox "Nombre de 'e' dans '" & maChaine & "' = " & CStr(Len(maChaine) - Len(sTemp))
Les gars je crois avoir encore plus for
i = split("abcde abcde abcdeeeeee aaa","a")
MsgBox "Nombre de 'a' ubound(i,1)
i = split("abcde abcde abcdeeeeee aaa","a")
MsgBox "Nombre de 'a' ubound(i,1)
cs_cheyenne
- Messages postés
- 693
- Date d'inscription
- samedi 18 mai 2002
- Statut
- Membre
- Dernière intervention
- 17 avril 2017
Bonjour Jack,
Oui, certes, c'est facultatif, mais il n'empêche que le traitement est plus rapide avec $, car sans le symbole la fonction renvoie un type Variant. Puis c'est une bonne habitude de "typer", ce n'est pas à toi que je vais apprendre cela.
Très astucieux ta solution
Bonne journée,
Cheyenne
Oui, certes, c'est facultatif, mais il n'empêche que le traitement est plus rapide avec $, car sans le symbole la fonction renvoie un type Variant. Puis c'est une bonne habitude de "typer", ce n'est pas à toi que je vais apprendre cela.
Très astucieux ta solution
Bonne journée,
Cheyenne
Bonjour tout le monde,
Merci pour votre aide. Je suis un débutant et vos conseils ont été fructueux.
Désolé pour les oublis et erreurs de ma part.
Merci pour votre aide. Je suis un débutant et vos conseils ont été fructueux.
Désolé pour les oublis et erreurs de ma part.