Compter le nombre de caractère sur une chaine de caractères

Bonjour,

J'aimerais créer un petit script qui puisse me dire combien de lettres identiques il y a dans une chaine de caractères.

J'ai déjà essayer mais je n'y arrive pas :s

Donc si quelqu'un aurait une idée ou pourrait me réorienter après avoir lu mon script ce serait vraiment sympa ;)


voici ce que j'ai déjà essayé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'script type:vbscript Sub main ()   Set t1=Producer.Model.GetObjet("Movie")   Title = t1.GetProperty("Text")   Compt_Car_Ident = UBound(Split(Title, m, -1,vdTextCompare))   Call Producer.Model.GetObjet("Char_Ident").SetProperty("Text",Compt_Car_Ident)   End Sub

---

(EDIT)
C'est bon j'ai trouvé mon erreur :)

Le caractère m doit être entre " "
Quel imbéc*** je fais ...

Merci quand même :)

Salut

Je ne connaissais pas, on apprend tous les jours ;)
ligne 8 vdTextCompare , plutot vbTextCompare
Pour être plus passe partout je propose cette façon qui reprend ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'------ la fonction ------------- Private Function Cmpt(Letexte, LeChar) Cmpt = UBound(Split(Letexte, LeChar, -1, vbTextCompare)) End Function '-------------------------------   Dim LaPhrase, LeCaractere LaPhrase = "pour voir si cela est une bonne solution" LeCaractere = "i" 'appel à la fonction MsgBox Cmpt(LaPhrase, LeCaractere)

---