Discussion :

[mehdi.cheddani]

Bonjour;
je voudrai utiliser la fonction replace pour remplacer plusieurs caractère et non pas un:

Code :

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

Replace(TextBox5.Text, "'", """", " ", 0, vbTextCompare)

,
la chaine de caractère est comme suit:IM 'C' "ILOT" ......
Merci.

[tomlev]

Tu veux remplacer tous les ' par des " ? La méthode Replace convient parfaitement, mais à mon avis tu ne l'utilises pas comme il faut... les 3 derniers paramètres sont optionnels, et avec les valeurs que tu as mises ça remplace un seul caractère à la fois.

Comme ça, ça remplace tout :

Code :

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

Replace(TextBox5.Text, "'", """")

[mehdi.cheddani]

le truc c'est que ma chaîne contient plusieurs caractères tels que des ',",)... que je voudrais tous remplacer par un espace je sais pas si vous voyez ce que je veux dire

[tomlev]

Dans ce cas tu peux utiliser une expression régulière :

Code VB.NET :

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

Regex.Replace(TextBox5.Text, "[""']", " ")

S'il y a d'autres caractères à remplacer, ajoute les entre les crochets. Attention, certains caractères ont un sens particulier dans une expression régulière : ?!()[]*+ (entre autres). Dans ce cas il faut les préfixer par un backslash. Par exemple, si tu voulais remplacer aussi les "+" et les "?" :

Code VB.NET :

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

Regex.Replace(TextBox5.Text, "[""'\+\?]", " ")

[mehdi.cheddani]

Code :

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

1
2
3
4
5
6
7
8
Try
                    'insertion dans le table compteur
                    com = New SqlCommand("insert into ANOMR(N_ORD_ECO,SOUS_QUART,CIL,QUART,NOM_CLT,AV_ACC,PORTE,RUE,N_CPT_DEPO,N_SERIE,DER_IND_LU,TP_CAL,MAR_DEPO,DATE_DEPO,ANOM,AG)values('" & ComboBox1.SelectedItem & "','" & Replace(TextBox1.Text, "'", " ", 1, vbTextCompare) & "','" & Val(TextBox2.Text) & "','" & Replace(TextBox3.Text, "'", " ", 1, vbTextCompare) & "','" & Replace(TextBox4.Text, "'", " ", 1, vbTextCompare) & "','" & Replace(TextBox5.Text, "'", " ") & "','" & Val(TextBox6.Text) & "','" & Replace(TextBox7.Text, "'", " ", 1, vbTextCompare) & "','" & Val(TextBox8.Text) & "','" & Val(TextBox9.Text) & "','" & Val(TextBox10.Text) & "','" & Val(TextBox11.Text) & "','" & TextBox12.Text & "','" & d & "','" & ComboBox2.SelectedItem & "','" & ComboBox3.SelectedItem & "');", con)
                    com.ExecuteNonQuery()
                    MsgBox("Anomalie enregistrée", MsgBoxStyle.OkOnly)
                Catch ex As Exception
                    MsgBox("Erreur d'insertion des données:" & ex.ToString)
                End Try

le message d'erreur que j ai et le suivant:
syntaxe incorrecte vers 'A', ce A se trouve dans la chaine de caractére suivante:"ILOT" HAJJAR IM 'A' APT RES.
merci

[tomlev]

C'est quoi ce code illisible ?
Tu sais que tu peux mettre des variables intermédiaires, tu n'es pas obligé de tout écrire sur une seule ligne de 15km...

Donc si je comprends bien, tu voulais remplacer les caractères pour les mettre dans une requête SQL ? Ce n'est pas comme ça qu'il faut faire... Il faut utiliser des requêtes paramétrées. Regarde ce tutoriel pour des explications :

http://webman.developpez.com/article...rameter/vbnet/

Ou encore cette FAQ:

http://dotnet.developpez.com/faq/asp...onet_reqparams