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

Question

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 ")

ucfoutu · Answer

Bonjour,
C'est quoi, un "espace vide" ? Une contradiction si pour toi = " " !
Soyons sérieux !
1) Il me semble que tu devrais t'intéresser d'urgence à ce qu'est la fonction Split 
2) quelle est ta question ? Je ne la vois nulle part !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Zermelo · Answer

Salut ucfoutu.

Dans les supermarchés, les espaces vides se vendent au même rayon que les tubes creux.


Cordialement.


Étant illettré, je signe d'une croix : ×

ucfoutu · Answer

Salut Zermelo,
Tu ne vas pas le croire, mais, sans MON magasin de bricolage, on vend séparément les tubes et leurs creux. Il est vrai qu'ils rencontrent de terribles difficultés à mettre un code-barre sur les seconds. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

cs_cheyenne · Answer

Bonjour Zermelo et ucfoutu,

> zermelo, il y a t-il beaucoup de monde dans les espaces vides ?

> ucfoutu, j'espère que dans ton magasin les tubes et leurs creux sont appairés, sinon pour l'assortiment ce ne doit pas être facile à trouver le bon creux qui va avec le bon tube !
Pour les tubes pleins, je suppose que le plein est vendu également à part, non ?

Sur ces propos creux... je vous souhaite une bonne soirée.

Cheyenne

ucfoutu · Answer

A Cheyenne : pour les tubes pleins, on en trouve à une enseigne scandinave bien connue. Ils y sont vendus en Kit, avec mode d'emploi, et tout et tout ....(y compris un boîte de tranquillisants). 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

cs_cheyenne · Answer

Les cachets sont ils dans le tube ou bien à part également ?

Bon allez, j'arrête là !

Ah, au fait le problème que j'avais avec les ocx a disparu sans que je fasse rien de particulier.
Je ne reviens donc pas sur le post en question car je suis totalement incapable d'expliquer le pourquoi du comment !
C'est comme les tubes, VB d'un côté (vide) et les ocx de l'autre, mais sans la notice, HI.

Bon week-end,

Cheyenne

acive · Answer

Bonjour à tous,
On laisse de coté les tubes vides et pleins ainsi que les vides sans code-barre...

  'En partant du principe que les "vides" soient des espaces:
        Dim TubesCreux() As String
        Dim MaPhrase As String
        Dim NombreDeVides As Long
        MaPhrase = "Que le nombre de tubes vides soient comptés"
        TubesCreux = Split(MaPhrase)
        NombreDeVides = UBound(TubesCreux)
        MsgBox(NombreDeVides)


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

amatoLahIbtissam · Answer

hello! i wanna say that my last Q it's not exactatly a Q. BUT a want to chare with you my little information about vb that's ALL.....
and thanks very much for your commentary it's goooood for the newst one in this form. But it's not a problem it's just the begining...

amatoLahIbtissam · Answer

execuse me i forget to thanks active so mutch

MINDONGO · Answer

sorry for your English,
Laisse nous calme nous qui ne comprenons pas l anglais,
as tu vu les règlements en anglais? ou encore qui t a répondu en Anglais!!!

Nothing  to run


Soyons Toujours à la disposition des autres

ucfoutu · Answer

may anyone translate for me IN ENGLISH :
- "to chare" ???
- "for the newst one in this form" ???
So that i would not be so lost ?
Ok for "wanna say" contraction (which is american and not english) , "exactatly" (just a typing mistake), but "chare" and so on ===>>> NO NO NO !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

MINDONGO · Answer

@ucfoutu
he would show us that he is the best in Our forum to write correctly in English he forgot that we code in ENGLISH but we can not show in here because here we thank anyone in FRENCH. you are RIGHT but he did leave something behind 


Soyons Toujours à la disposition des autres

acive · Answer

Bonjour, vu que nous sommes dans les langues:
"execuse me i forget to thanks active acive so mutch

En: If it was the good answer, so click on the "Solved" button.
Fr: Si c'était la bonne réponse, alors cliquez sur le bouton "Répone acceptée".
Pt: Se foi a boa resposta, então carrega no botão "Resposta aceitada".


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

MINDONGO · Answer

@acivemais may be he does not Understand Pt.



Soyons Toujours à la disposition des autres

acive · Answer

Hi MINDONGO, 
Sorry that's all I have as language 



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

amatoLahIbtissam · Answer

hhh, I understand what are you going to say, but i just write in english to explaine my idea that's all. 
ok!!!!!

MINDONGO · Answer

1.what are you going to say
2. but i just write in english
sorry for your way of writting why do you use going to?


Soyons Toujours à la disposition des autres

Utilisateur anonyme · Answer

Vous avez forgotten le vacuum tube à vide. (Je viens d'un bilingual pays)

acive · Answer

Tu parles des tubes creux? ceux qu'on a du mal à coller les codes à barres?

Peut-être avec une reconnaissance vocale... (ils ne parlent pas??)


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

Pour ucfoutu:
(châr)
n.	1.	A narrow street.
n. & v.	1.	A chore; to chore; to do. See Char.
source: http://www.thefreedictionary.com/Chare
Quand il dit:
"BUT a want to chare with you"

Il veux dire "regarde le char" (qui doit être devant les bcœufs)



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

J'imagine le prochain administrateur qui va passer par là et qui va devoir se demander ce qu'il va faire avec tout cela...

cs_cheyenne · Answer

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

acive · Answer

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

cs_cheyenne · Answer

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

cs_ShayW · Answer

Salut

je n'ai trouvé que les les tubes fluorescents

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

25 réponses

Votre réponse

Discussions similaires