Guillemets qui coupent une chaine !Résolu

Question

Après avoir lu de nombreux posts, pas moyen de trouver une solution à mon problème de guillemet(dits doublequote). Le visiteur doit remplir un champ texte et le valider pour l'inscrire dans une table access. Si ce champ contient " il coupe la chaine saisie juste après le ". Voici mon code : le formulaire : On récupère la chaine : intro = Request.Form("intro") la requete d'insertion : Dim sql,news sql = "SELECT * FROM nouvelle" Set news = Server.CreateObject("ADODB.Recordset") news.Open sql, conn, 3, 3 news.AddNew news.fields("intro")=intro news.Update news.close set news=nothing J'ai essayé ça pour remplacer le caractère doublequote : intro = Replace(intro, """, "''") afin de remplacer le doublequote(ou " ou "") par deux apostrophes... en vain ! Merci pour votre aide, Matthieu.

attarte · Accepted Answer

Pour pas qu'il me quadruple les simple quote le code est le suivant :

intro = Replace(intro, " " " ", " ' ' ") (toujours avec les espaces)
Sans les espaces
intro = Replace(intro, """", "''") 

Merci à toi Bud !
Matthieu

attarte · Answer

en fait dans le replace, il faut lire dans le premier guillemet le code ascii du doublequote (automatiquement converti ici !!!!)
@+
matthieu

cs_Bud · Answer

Ca (pour plus de lisibilités, j'ai mis des espaces qu'il faut supprimer)
intro = Replace(intro, " ' ", " ' ' ") 

En gros, sans les espaces, ça donne ça:
intro = Replace(intro, "'", "''")

attarte · Answer

Merci pour la réponse, mais je veux en fait changer le " en ' ' et non pas les ' en ' '. 
Merci d'avance !
@+
matthieu

cs_Bud · Answer

Alors intro = Replace(intro, " " " ", " ' ' ' ' ")  (toujours avec les espaces)
Sans les espaces
intro = Replace(intro, """", "''''")

Guillemets qui coupent une chaine !

5 réponses

Votre réponse

Discussions similaires