[VBS] Je cherche a mettre des guillemets...

Marsh Posté le 01-09-2005 à 12:11:46

SAlut !
Voilà le problème : je cherche comment insérer des guillemets entre d'autres guillemets...
Je suis pas assez clair ??? ALors voilà un exemple qui devrait vous faire comprendre :

Code :

Dim fs, TextObjet, donnes, guillemet
guillemet = Chr(34)
Set fs = CreateObject("Scripting.FileSystemObject" )
Set TextObjet = fs.CreateTextFile("C:\fichier.vbs", True)
TextObjet.WriteLine("Blabla "salut" " )
TextObjet.WriteLine("Set WSHShell =Wscript.CreateObject("&guillemet&"Wscript.Shell"&guillemet&" )" )
TextObjet.Close

Bon alors j'explique vite fais :

Code :

TextObjet.WriteLine("Blabla "salut" " )

-> Ce morceau de code va être mal interprété (ce qui est normal), moi je cherche à mettre blabla "salut" en argument de la fonction WriteLine.

LA seule solution que j'ai trouvé réside en l'utilisation du cote Asci des guillemets mais c'est pas pratique :

Code :

TextObjet.WriteLine("Set WSHShell =Wscript.CreateObject("&guillemet&"Wscript.Shell"&guillemet&" )" )

Donc je cherche un peu à la manière du Php quelque chose de plus pratique. Il n'y a pas un caractère spécial à mettre devant un guillemet pour qu'il se transforme en caractère banal ???

Bon j'ai essayé d'être le plus clair possible mais je suis pas sûr d'avoir réussi...
++

Marsh Posté le 01-09-2005 à 12:11:46

Marsh Posté le 01-09-2005 à 13:30:39

Bonjour,

Il faut que tu utilises chr(34) à la place des guillemets que tu veux insérer.

Marsh Posté le 01-09-2005 à 13:33:01

Il existe la solution de mettre deux guillemets de suite.
Par exemple :

Dim txt
txt = "J'ai dit ""bonjour"" "
wscript.echo txt

Marsh Posté le 01-09-2005 à 14:05:46

pc75 : regarde mieux le message c'est la solution de rechange que j'ai trouvé !

olivthill : ok merci

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *