Discussion :

[wayat91]

Bonjour à tous,

A partir d'un script principal, je génère un fichier script secondaire (envoi de mail), jusque là, pas de pb. Dans le script principal, j'ai une variable, dont je dois écrire le contenu dans le fichier secondaire, ce contenu devant être quoté au final, et c'est là que je bloque:

script principal:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
MAIL_CMD.WriteLine "objMail.From = ""user@domaine.fr""" ' <=pas de pb
MAIL_CMD.WriteLine "objMail.To = ""user1@domaine.fr"""   '<=pas de pb
'et dans le corps du mail, je veux donc ajouter le contenu d'une variable TOTO,
'égale par ex à 5
MAIL_CMD.WriteLine "objMail.TextBody = ""TOTO"""    '<=je bloque là
 
une fois le script secondaire généré:
objMail.From = "user@domaine.fr"
objMail.To = "user1@domaine.fr"
objMail.TextBody = "TOTO"  <= je ne récupère pas 5, mais toujours le nom de
'la variable TOTO

Merci d'avance pour vos idées.
PW

[SfJ5Rpw8]

Bonjour, pour utiliser le contenu de la variable et pas son nom il suffit de sortir la variable des " .

Code :

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

MAIL_CMD.WriteLine "objMail.TextBody = """ & TOTO & """"    '<=je bloque là

[wayat91]

Bonjour bbil

et merci, tellement évident maintenant!!

PW

[hackoofr]

Astuce : En VBScript, il y a plusieurs activités qui peuvent conduire à la nécessité de produire des chaînes qui ont des guillemets (") . Souvent cela se produit en raison de la nécessité de lancer une commande externe où les espaces sont présents dans un chemin.
Voila une petite fonction très simple qu'on peut l'utiliser sans douleur

Code :

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

1
2
3
Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function

Exemple d'utilisation de cette fonction:
Par exemple vous voulez que les utilisateurs soient en mesure d'entrer dans le chemin et le nom d'un fichier zip et vous affichera une liste des fichiers de l'archive. Pour cela, en utilisant par exemple 7-Zip l'utilitaire de compression avec sa ligne de commande.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Dim strArchivePath
Dim strCMD
 
strArchivePath = InputBox("Entrez le chemin de l'archive")
strCMD = qq("C:\Program Files\7-zip\7z.exe") & " l " & qq(strArchivePath)
WScript.Echo strCMD
 
Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function