vbscript syntax problem

Flatline

Golden Member
Jun 28, 2001
1,248
0
0
Hello all, I'm attempting to invent a workaround (or as I like to call them, reacharounds) for a problem my compadres in my company created. I've written a vbscript that does everthing I need it to do except for one thing: write a specific bunch of text to a file the script has created. The syntax is kind of tricky, and I'm hoping that someone here will have dealt with something like it before (I just started messing with vbscript and I'm not ashamed to admit when I need help)

Here is the text I want written to the file:

<?xml version="1.0" encoding="UTF-8" ?>
<records>
<address filename="Aristotles Video Conf Room.xml" name="Aristotles Video Conf Room">
<ip address="960927" speed="384"/>
<isdn country_code="" area_code="" number="" speed="" network=""/>
<phone country_code="" area_code="" number=""/>
<mobile country_code="" area_code="" number=""/>
<email address=""/>
<e164 alias="960927"/>
<comment text=""/>
</address>

The ip address and e164 alias have, of course, been changed to protect the (not so) innocent.
 

MonkeyK

Golden Member
May 27, 2001
1,396
8
81
The filesystemobject is pretty handy. Check it out at DevGuru

to answer your question, first assign what you want to output to a string
then do something like the following:


Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists("<targetdir>") Then
Dim fileOut: Set fileOut= FS.OpenTextFile("<targetdir>\<filename>", ForWriting, True)
fileOut.WriteLine(theString)
fileOut.Close
End If

 

Flatline

Golden Member
Jun 28, 2001
1,248
0
0
Thanks for the reply...I just figured it out:

Set objFile = CreateObject("Scripting.FileSystemObject")
Set strGuyFile = objFile.CreateTextFile(strFilePath, True)

dim qm
qm = chr(34)


strGuyFile.WriteLine "<?xml version=" &amp; qm &amp; "1.0" &amp; qm &amp; _
" encoding=" &amp; qm &amp; "UTF-8" &amp; qm &amp; " ?>"

and so forth

Thanks again
 

MonkeyK

Golden Member
May 27, 2001
1,396
8
81
If your problem is the double quotes, you can escape the double quote with two of them so

when I say "this", I mean "that"

would be

"when I say ""this"", I mean ""that"""
 
sale-70-410-exam    | Exam-200-125-pdf    | we-sale-70-410-exam    | hot-sale-70-410-exam    | Latest-exam-700-603-Dumps    | Dumps-98-363-exams-date    | Certs-200-125-date    | Dumps-300-075-exams-date    | hot-sale-book-C8010-726-book    | Hot-Sale-200-310-Exam    | Exam-Description-200-310-dumps?    | hot-sale-book-200-125-book    | Latest-Updated-300-209-Exam    | Dumps-210-260-exams-date    | Download-200-125-Exam-PDF    | Exam-Description-300-101-dumps    | Certs-300-101-date    | Hot-Sale-300-075-Exam    | Latest-exam-200-125-Dumps    | Exam-Description-200-125-dumps    | Latest-Updated-300-075-Exam    | hot-sale-book-210-260-book    | Dumps-200-901-exams-date    | Certs-200-901-date    | Latest-exam-1Z0-062-Dumps    | Hot-Sale-1Z0-062-Exam    | Certs-CSSLP-date    | 100%-Pass-70-383-Exams    | Latest-JN0-360-real-exam-questions    | 100%-Pass-4A0-100-Real-Exam-Questions    | Dumps-300-135-exams-date    | Passed-200-105-Tech-Exams    | Latest-Updated-200-310-Exam    | Download-300-070-Exam-PDF    | Hot-Sale-JN0-360-Exam    | 100%-Pass-JN0-360-Exams    | 100%-Pass-JN0-360-Real-Exam-Questions    | Dumps-JN0-360-exams-date    | Exam-Description-1Z0-876-dumps    | Latest-exam-1Z0-876-Dumps    | Dumps-HPE0-Y53-exams-date    | 2017-Latest-HPE0-Y53-Exam    | 100%-Pass-HPE0-Y53-Real-Exam-Questions    | Pass-4A0-100-Exam    | Latest-4A0-100-Questions    | Dumps-98-365-exams-date    | 2017-Latest-98-365-Exam    | 100%-Pass-VCS-254-Exams    | 2017-Latest-VCS-273-Exam    | Dumps-200-355-exams-date    | 2017-Latest-300-320-Exam    | Pass-300-101-Exam    | 100%-Pass-300-115-Exams    |
http://www.portvapes.co.uk/    | http://www.portvapes.co.uk/    |