METTRE UNE DOUBLE QUOTE QUAND IL Y A QU'UNE QUOTE!!!
Nix
Messages postés
831
Date d'inscription
samedi 15 mai 1999
Statut
Membre
Dernière intervention
18 juillet 2009
-
9 juin 2004 à 16:22
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 10 juin 2004 à 18:45
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 10 juin 2004 à 18:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23546-mettre-une-double-quote-quand-il-y-a-qu-une-quote
https://codes-sources.commentcamarche.net/source/23546-mettre-une-double-quote-quand-il-y-a-qu-une-quote
10 juin 2004 à 18:45
10 juin 2004 à 11:20
pour VB5, avec test en byval, voila plus rapide :
i = InStr(1, test, "'")
While i
Mid(test, i, 1) = """"
i = InStr(i, test, "'")
Wend
replquot=test
@+
9 juin 2004 à 19:17
pas tout a fait avec ta boucle...
1 - pourquoi declarer i en Static ?
2 - que fait b ?
3 - pourquoi ne pas restituer toute la chaine ?
en clais, tu fais une boucle jusqu'à len ( Trim ( test ))
donc, tu n'analyse pas les n derniers espaces, qui disparaissent !
autre chose, cote optimisation (et sans utilise Replace)
tu pourrais declarer ton parametre test en ByRef...
tu devrais eviter de recalculer Mid(test, i, 1) (utilises donc b !! )
et utilise Mid$ a la place de Mid
voila voila...
9 juin 2004 à 18:30
En traduction textuelle ça donne
Guillement Apostrophe Apostrophe Guillement
9 juin 2004 à 17:47
je pencherai plutot sur un truc du genre
test=replace(test,"'",chr$(34))
9 juin 2004 à 16:22
test = Replace(test ,"'","''")
La boucle ce n'est pas une bonne idée, c'est long.
Toutefois, cette fonction Replace n'éxiste pas sous VB5 ! Donc ta fonction est bonne pour VB5 il faut le préciser mais pour VB6 il faut utiliser le Replace()