标题: [求助]请教一个vbs问题
[打印本页]
作者: mooncarp
时间: 2009-2-26 21:49
标题: [求助]请教一个vbs问题
请教一个vbs问题
我想编一个vbs脚本,功能是在 C:\Documents and Settings\user\ 下建立一个xml的配置文件。现在存在2个问题
1. 因为user不确定,所以需要用 %homepath% 定位目录,在vbs中如何用
2. 另外就是如何创建一个 xml文件,同时写入内容。内容中包括有 " <>,.!? 空格 " 等符号
请高手指点,谢谢
作者: newxso
时间: 2009-2-27 00:57
获取系统特殊目录方法:
Set WshShell=Wscript.CreateObject("Wscript.Shell")
Set WshSysEnv=WshShell.Environment("Process")
strFolder=WshSysEnv.Item("USERPROFILE")
Wsh.Echo strFolder
创建文本方法:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set f = objFSO.CreateTextFile("......", True)
f.WriteLine "........"
作者: mooncarp
时间: 2009-2-27 01:57
谢谢,系统目录可以取了
写文本文件这个好像不行,
因为 xml 文件格式是这样的,包含各种字符。 writeline 只能写普通文本
<?xml version="1.0" encoding="UTF-8" ?>
<records>
<address filename="h01.xml" name="h01">
<ip address="192.168.1.1"/>
<email address=""/>
</address>
</records>
作者: slore
时间: 2009-2-27 03:06
MsgBox "<?xml version=""1.0"" encoding=""UTF-8"" ?>" & vbCrLf & "<records>" & vbCrLf & "<address filename=""h01.xml"" name=""h01"">" & vbCrLf & "<ip address=""192.168.1.1""/>" & vbCrLf & "<email address=""""/>" & vbCrLf & "</address>" & vbCrLf & "</records>"
作者: newxso
时间: 2009-2-27 03:22
楼上已提示:双引号是VBS特殊符号,附加的要加多一个双引号转义。
Set WshShell=Wscript.CreateObject("Wscript.Shell")
Set WshSysEnv=WshShell.Environment("Process")
strFolder=WshSysEnv.Item("USERPROFILE")
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(strFolder&"\h01.xml",ture)
f.WriteLine("<?xml version=""1.0"" encoding=""UTF-8"" ?>")
f.WriteLine("<records>")
f.WriteLine(" <address fname=""h01.xml"" name=""h01"">")
f.WriteLine(" <ip address=""192.168.1.1""/>")
f.WriteLine(" <email address=""""/>")
f.WriteLine(" </address>")
f.WriteLine("</records>")
f.Close
作者: mooncarp
时间: 2009-3-2 02:31
多谢指点