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 : Sélectionner tout - Visualiser dans une fenêtre à part
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