iT邦幫忙

1

使用vbs將語法寫入txt

想請教各位大大,我在撰寫vbs時,要如何才能把下列紅字部分,透過vbs寫入到txt內文中?

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
AppDataPath = objShell.ExpandEnvironmentStrings("%AppData%")
AppVMClientPath = AppDataPath & "\test\test Client"
    Set testSet = objFSO.CreateTextFile(AppVMClientPath & "\test.txt", True)
    <span style="color: #FF0000;">VMSet.Write("<strong><?xml version="1.0"?> <Root><RecentServer serverName="vSer.lab.com.tw" lastLogInAsCurrentUser="false"/><SecurityMode certCheckMode="2"/><LastLoginAsCurrentUser loginAsCurrentUser="false"/><GlobalDefaultServer serverName="vSer.lab.com.tw"/><HIDECLIENTAFTERLAUNCHSESSION hideClientAfterLaunchSession="false"/></Root></strong>")</span>
    VMSet.Close
zp145 iT邦新手 5 級 ‧ 2016-02-27 20:54:35 檢舉
感謝fillano大大

將此段語法加上雙引號就可以執行了。

testSet.Write("<?xml version=""1.0""?> <Root><RecentServer serverName=""vSer.lab.com.tw""lastLogInAsCurrentUser=""false""/><SecurityMode certCheckMode=""2""/><LastLoginAsCurrentUser loginAsCurrentUser=""false""/><GlobalDefaultServer serverName=""vSer.lab.com.tw""/><HIDECLIENTAFTERLAUNCHSESSION hideClientAfterLaunchSession=""false""/></Root>")

1 個回答

0
fillano
iT邦超人 1 級 ‧ 2016-02-27 13:16:55
最佳解答

字串中的雙引號要跳脫啦,把xml中使用的雙引號用兩個連續的雙引號取代試試看。

vb我太久沒用已經忘光,只是看得出問題而已,怎麼跳脫是google來的XD

我要發表回答

立即登入回答