[vba] protection du caractère guillemet
Résolu
Bonjour,
Grâce à une subroutine vba, je voudrais créer le fichier texte a.txt suivant :
gloup
tu as dit "gloup"
Alors je fais ceci :
Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(a.txt, True)
TmpStr = "gloup"
a.WriteLine ("gloup")
a.WriteLine ("tu as dit" + TmpStr)
a.Close
Mais ça ne donne que le fichier :
gloup
tu as dit gloup (<------sans les guillemets)
Bref... Au s'cours ! Comment faire ?! ;-)
Grâce à une subroutine vba, je voudrais créer le fichier texte a.txt suivant :
gloup
tu as dit "gloup"
Alors je fais ceci :
Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile(a.txt, True)
TmpStr = "gloup"
a.WriteLine ("gloup")
a.WriteLine ("tu as dit" + TmpStr)
a.Close
Mais ça ne donne que le fichier :
gloup
tu as dit gloup (<------sans les guillemets)
Bref... Au s'cours ! Comment faire ?! ;-)
Configuration: Windows 2000 Internet Explorer 6.0
3 réponses
-
Bonjour,
essaye ceci :Set FS = CreateObject("Scripting.FileSystemObject") Set a = FS.CreateTextFile(a.txt, True) TmpStr = Chr(34) & "Gloup" & Chr(34) a.WriteLine ("gloup") a.WriteLine ("tu as dit" + TmpStr) a.Close -
Merci à tous, ça marche !
---> Résolu ! :-) -
Salut,
Pour rajouter des guillemets dans ton mot, fait:
TmpStr=chr$(34)+"gloup"+chr$(34)
Bonne chance !-
Set FS = CreateObject("Scripting.FileSystemObject") Set a = FS.CreateTextFile(a.txt, True) TmpStr = chr$(34)+"gloup"+chr$(34) a.WriteLine ("gloup") a.WriteLine ("tu as dit" + TmpStr) a.Close
OU
Set FS = CreateObject("Scripting.FileSystemObject") Set a = FS.CreateTextFile(a.txt, True) TmpStr = "gloup" a.WriteLine ("gloup") a.WriteLine ("tu as dit" + chr$(34)+TmpStr+chr$(34)) a.Close
Si ca ne fonctionne pas, ca veux dir que la commende Chr$() n'existe pas. -
@Utilisateur anonymeMince, il se pourait qu'il faut remplacer "+" par "&", dans mes changements.
-
