Discussion :

[Quentin.vdv]

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

[ProgElecT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)