Discussion :

[pigeon11]

Bonjour,

dans ma page asp j'ai un textbox.

Je fais un test sur l'existence de virgules successives dans la chaine de caractères tapée dans le textbox.

si je trouve des virgules successives je dois laisser une seule.

exemple:

aaa,,,,bbb,,,cc, --> aaa,bbb,cc,

voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
   i = 1
  x=textbox1.text
   While (i < x.Length - 1)
 
  If (x.Substring(i, 1)).Equals(",") And (x.Substring((i + 1), 1)).Equals(",") Then
 
                               x.remove(i,1)
 
   End If
   i = i + 1
End While

j'ai meme tester avec if x(i)=.... au lieu x.substring mais le test dans le deux cas ne marche pas.
ce n'est pas un problème au niveau de la fonction remove mais c'est le test qui ne marche pas.

Merci

[dudule]

bonjour,
essayé ce qui suit et dit moi si ca te plait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
While TextBox1.Text.IndexOf(",,") <> -1
            TextBox1.Text = TextBox1.Text.Replace(",,", ",")
        End While

[pigeon11]

bonjour,
essayé ce qui suit et dit moi si ca te plait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
While TextBox1.Text.IndexOf(",,") <> -1
            TextBox1.Text = TextBox1.Text.Replace(",,", ",")
        End While

Merci pour votre réponse mais j'ai toujours le meme problème

[dudule]

Alors j'ai pas du comprendre ton problème. avec peu être un peu + de code, ca aiderait

[tomlev]

Merci pour votre réponse mais j'ai toujours le meme problème

Pourtant la solution de dudule semble correcte... ça donne quoi comme résultat ?

[Pol63]

moi j'aurais mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
While TextBox1.Text.Contains(",,")
    TextBox1.Text = TextBox1.Text.Replace(",,", ",")
End While

mais ca revient au même ^^

[pigeon11]

Merci beaucoup, ça marche.

je veux tester si la chaine de caractères contient des virgules au début, si je les trouve je dois les supprimer :

,,,,aaa --> aaa

voila ce que j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
While  (chaine.Substring(0, 1) = ",") 
 
        chaine.Remove(0, 1)
 
End While

Mais j'ai toujours un problème au niveau du test. Meme si ma chaine contient des virgules au début elles ne sont pas détéctées.

Merci