[vba] protection du caractère guillemet
Résolu
0seb0
Messages postés
37
Statut
Membre
-
0seb0 Messages postés 37 Statut Membre -
0seb0 Messages postés 37 Statut Membre -
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 ?! ;-)
A voir également:
- [vba] protection du caractère guillemet
- Caractère ascii - Guide
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
- Caractere vide - Guide
- K9 web protection - Télécharger - Contrôle parental
3 réponses
Bonjour,
essaye ceci :
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
Salut,
Pour rajouter des guillemets dans ton mot, fait:
TmpStr=chr$(34)+"gloup"+chr$(34)
Bonne chance !
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.