caratère
caratère
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!
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
a te renvoit le nombre de virgules.
Chris
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
Chris
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 !!
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 !!
-
- Messages : 4312
- Inscription : mer. 28/janv./2004 20:58
- Localisation : Clermont ferrand OU Olsztyn
- Contact :
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 :
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-''"
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]