le compte n'est pas bon

Question

bonjour
j'ai ecris ce prg, le resultat de ce prg n'est pas bon,
au lieu d'avoir 3, j'ai trouve que 0,veuillez m'aidez s'il vous plaît

Private
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click

Dim i 
As
Integer

Dim LetterCount 
As
Integer

Dim strText 
As
String

Dim letter 
As
CharstrText = 

"Debugging"

For i = 1 
To strText.Length - 1letter = strText.Substring(1)

If letter = 
"g"
ThenLetterCount = LetterCount + 1

End
If

NextTextBox1.Text = 

"G appears" & LetterCount & 
"times"

End
Sub

jmf0 · Answer

Bonjour,

je ne connais pas VB.Net, mais :
rien d'anormal, d'après toi, avec ce 1 dans :
letter = strText.Substring(1)

???

Ce sra toujours un "D", non ?

PCPT · Answer

salut,

^^ petite erreur de relecture 
la réponse t'est donnée, je ne passe que pour indiquer que si le but ultérieur est de compter chaque caractère (pas "un seul"), tu as un exemple ici :
http://www.codyx.org/snippet_compter-chaque-occurrence-caracteres-chaine_754.aspx#2250

++ 

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Tyrell2 · Answer

bonjour,

non, avec "1" ce sera toujours un "e" 

_____________
 (débutant inside)

Tyrell2 · Answer

essaye avec ceci qui devrait fonctionner :

Dim i 
As
Integer

Dim LetterCount 
As
Integer = 0

Dim strText 
As
String = 
"Debugging"

Dim letter 
As
Char

For i = 1 
To strText.Lengthletter = Mid(strText, i, 1)

If letter = 
"g"
ThenLetterCount = LetterCount + 1

End
If

NextTextBox1.Text = 

"G appears " & LetterCount & 
" times"

_____________
 (débutant inside)

jmf0 · Answer

C'est marrant, je verrais plutôt aiinsi en VB.Net (pour ne pas utiliser la compatibilité avec VB6)





For i = 0 To


 strText.Length.ToString-1
 letter = strText.Substring(i,1)


 If


 letter = 


"g" 







Then




   LetterCount = LetterCount + 1


  End



If
next

cs_domxaline · Answer

peux tu m'expliquer cette ligne s'il te plaît
letter = strText.Substring(i,1)


merci

jmf0 · Answer

Tu as bien ton aide en ligne, non ? Elle est utile !!!

Moi, je ne l'ai pas (et n'ai pas non plus VB.Net), mais voilà de la lecture :http://plasserre.developpez.com/v1-6string.htm

Le compte n'est pas bon

7 réponses

Votre réponse

Discussions similaires