PureBasic

j'ai une chaine de caractère, avec des chiffres séparés par des virgules, donc j'aimerais savoir combien il y a de virgules dans la chaine de caractère
exemples:

10,9,6,23 il y a 3 virgules
1,20,39,4,8,3,7 il y a 6 virgules
10,20,3 il y a 2 virgules
...
...

donc est-ce-qu'il y a une commande pour ça???
si je suis pas clair vous me le dites!

Salut

Code : Tout sélectionner

Temp$ = "1,2,3,4,5,6,7,8,9"

Start = 1 : a = 0
Repeat
  Pos = FindString(Temp$,",",Start)
  If Pos > 0
    Start = Pos +1 : a + 1
  EndIf
Until Pos = 0

Debug a

a te renvoit le nombre de virgules.

Chris

merci a vous!

oubien

Code : Tout sélectionner

for t = 0 to len(chaine)
  k.s = mid(chaine, t, 1)
  if k = ","
    nombre + 1
  endif
next

debug nombre

il y a aussi :(plus court)

phrase.s="il,ia,une,ere,r,eur,-,."

For i= 1 To Len(phrase.s)
mot.s=StringField(phrase.s,i,","):;ceci recupere les mot entre les virgules !! (voir doc !!)
next i

quant tu connais les mots entre les virgules , leur nombres
les virgules c'est le nombre de mot -1

ou alors tu met des virgule a la place des mots !!

mais je suis pas sur que ça marche ; a essayer !!

une autre solution qui marche quelque soit le mot recherché dans la phrase.

je remplace le mot cherché par "" et je regarde la différence de longueur.

exemple :

Code : Tout sélectionner

Mot1.s = "truc,machin,chouette"
Mot2.s = ReplaceString(Mot1, ",", "")
NbVirgule = Len(Mot1) - Len(Mot2)

Debug Mot1 + " contient " + Str(NbVirgule) + " '',''"


Mot1.s = "truc-espace-machin-espace-chouette"
Mot2.s = ReplaceString(Mot1, "-espace-", "")
NbSeparateur = Int((Len(Mot1) - Len(Mot2))/Len("-espace-"))

Debug Mot1 + " contient " + Str(NbSeparateur) + " ''-espace-''"

Et maintenant tu as la commande CountString(chaine,chaine a compter)

PureBasic

caratère

caratère