Compter le nbr d'espace vide ds une phrase en VB

Signaler
-
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
-
Dim phrase, Caractere as String
Dim compteur, longueur as Integer
phrase = Input Box("Taper vos phrase")
longueur = Len(phrase)
for i=1 to longueur
Caractere = Mid(phrase,i,1)
if Caractere = " " then
compteur = compteur+1
next;
MsgBox("cette phrase contient "&compteur&" espace ")

25 réponses


J'imagine le prochain administrateur qui va passer par là et qui va devoir se demander ce qu'il va faire avec tout cela...
Messages postés
693
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
17 avril 2017
2
Bonjour acive,

- Tu parles des tubes creux? ceux qu'on a du mal à coller les codes à barres?
Nous revoilà parti avec les tubes dont le vide est vendu séparément !
Je te signale que les codes-barres pour les tubes vides n'ont pas de barres. Elles sont sur les tubes pleins, mais sans l'étiquette. Pour l'achat d'un tube plein le principe est le même, on achète le tube dans un rayon et le plein dans l'autre !

Bon allez, je sors...

Bien cordialement,

Cheyenne

cmarcotte:
oui j'imagine qu'il vont nous jeter comme une chaussette...
ceci-dit; combien d'espaces vides il y a dans ma phrase?
Dim str() As String = Split("oui j'imagine qu'il vont nous jeter comme une chaussette...")
MsgBox(UBound(str))


cheyenne:
Pour l'achat d'un tube plein le principe est le même, on achète le tube dans un rayon et le plein dans l'autre

=> non! On achète le tube dans un rayon, le vide est offert avec, mais le plein tu l'achètes (à la station d'essence et c'est pas donné!!!).


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
Messages postés
693
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
17 avril 2017
2
Bonjour acive,

Pour les tubes d'essence, oui !
Mais pour les tubes du hit-parade, compte tenu que le vide est offert, pas besoin d'aller chez le disquaire acheter l'air.

Effectivement, d'ici à ce que l'on se fasse réprimander (à juste titre) par les administrateurs...

Bonne journée,

Cheyenne
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Salut

je n'ai trouvé que les les tubes fluorescents