insert quotes in txtfile

[moogeboo]

hi,

i have this script to take input from a user:

dim fso, wshshl, fil,oShell, strExec, fullname
dim txtFile
set wshshl = wscript.createobject("wscript.shell&quot
set fso = createobject("Scripting.FileSystemObject&quot
set oShell=Wscript.CreateObject("Wscript.Shell&quot
fullname = inputbox("Enter in Full Name to be assigned to Client", "Fullname&quot

Set txtFile = fspenTextFile("c:\a.xt", 2, True)
'Change 2 to 8 if you want to append to file

txtFile.WriteLine "Name = " & fullname
txtFile.Close

My problem is that when a user enters in spaces between the name, i.e, john doe
the output that is written to a.txt is: john doe
However, I need to insert quotes around the john doe, like "john doe" on the txt file because it is being read by another
program, and it needs quotes around the variable otherwise it will be truncated with just "john".
I pretty sure this is simple, but i'm just learning vb script, so i'm wondering if anyone can help.

thanks,

 

[PHV]

Try something like this:

txtFile.WriteLine "Name = """ & fullname & Chr(34)

To insert double quote into a string, either use Chr(34) or double typed double quote.


Hope This Help
PH.