Probleme de suppression dans une chaine de caractere

cs_Link49 Messages postés 9 Date d'inscription jeudi 30 mars 2006 Statut Membre Dernière intervention 28 juin 2006 - 28 juin 2006 à 11:44
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 28 juin 2006 à 12:53
Bonjour à tout le monde! Voila j'ai un probleme, je recherche dans une chaine de caractere le caractere " (double quote) afin de le supprimer! Mais j'arrive a faire la recherche de cette double quote jai essayé plusieurs syntaxe mais sans succes :(
voila le bout de code bidon lors de la reche du caractere
if caractere= " then.... <==========(naturellement la syntaxe est fausse)
voila si vous connaissez le truck faites le moi savoir
je vs remercie d'avance :)

4 réponses

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
28 juin 2006 à 11:46
Salut,

IL faut doubler les " pour pouvoir l'utiliser dans une chaine de caratere et comme c'est déja " qui entoure une chaine de caractère, la syntaxe exacte est avec 4 " soit

if caractere= """" then

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Mais Surtout: Règlement/FONT>
0
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
28 juin 2006 à 11:55
Salut
ou bien
if caractere= ch(34) then

 Drikce 06
0
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
28 juin 2006 à 11:56
oups pardon chr(34)

 Drikce 06
0
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 27
28 juin 2006 à 12:53
 Bonjour,

Option Explicit
Call Form_Load()
Private Sub Form_Load()
    Dim sChaine 
    sChaine = "Vache :"" 140.000000"
    Dim iPos
    iPos = InStr(1, sChaine, """")
    If iPos = 0 Then
        MsgBox """ non trouvé !!"
    Else
        MsgBox "Text1: " & Left(sChaine, iPos - 1) &vbCrLf&_
               "Text2:  " & Right(sChaine, Len(sChaine) - iPos)
    sChaine = Replace(sChaine, """", "!")
    MsgBox sChaine
    End If
End Sub

jean-marc
0
Rejoignez-nous