一个vbs脚本，function后输出一个字符串，现在我只能MSGBOX这个function，那如何把这个function输出的字符串设为变量呢？谢谢啦！
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs 中 如何把一个字符串设为变量？
查看 826 回复 5
楼 主
vbs 中 如何把一个字符串设为变量？
发表于 2009-08-14 07:01 · 中国 上海 静安区 电信
第 2 楼
发表于 2009-08-14 07:17 · 中国 天津 联通
什么意思 ？
说具体点，给出你的例子也行
说具体点，给出你的例子也行
第 3 楼
发表于 2009-08-14 07:53 · 中国 上海 静安区 电信
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "POST", "http://m.renren.com/", false
http.send
msgbox (BytesToBstr(Http.responseBody,"UTF-8"))
Function BytesToBstr(body,Cset)
dim objstream
set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
这段代码能通过msgbox (BytesToBstr(Http.responseBody,"UTF-8"))来输出字符串，即（m.renren.com的网页源代码），那请问如何把(BytesToBstr(Http.responseBody,"UTF-8"))定义为变量a，让我能够通过msgbox a，来实现msgbox (BytesToBstr(Http.responseBody,"UTF-8"))一样的功能？谢谢！
http.open "POST", "http://m.renren.com/", false
http.send
msgbox (BytesToBstr(Http.responseBody,"UTF-8"))
Function BytesToBstr(body,Cset)
dim objstream
set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
这段代码能通过msgbox (BytesToBstr(Http.responseBody,"UTF-8"))来输出字符串，即（m.renren.com的网页源代码），那请问如何把(BytesToBstr(Http.responseBody,"UTF-8"))定义为变量a，让我能够通过msgbox a，来实现msgbox (BytesToBstr(Http.responseBody,"UTF-8"))一样的功能？谢谢！
第 4 楼
发表于 2009-08-14 10:55 · 中国 陕西 西安 电信
a=(BytesToBstr(Http.responseBody,"UTF-8"))
msgbox a
msgbox a
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 5 楼
发表于 2009-08-14 12:15 · 中国 天津 联通
我无法实现你说的这种功能！
msgbox 后面如果跟一个字符串的话肯定每次输出就不会变的了， "msgbox 字符串变量“ 显示的肯定就是 "字符串变量" 的值，就算它代表一个函数或者命令也不会执行，你可以尝试换种方式，利用 execute 函数来执行显示：
顺便说以下，获源代码为什么不用 responseText 属性呢 ？
msgbox 后面如果跟一个字符串的话肯定每次输出就不会变的了， "msgbox 字符串变量“ 显示的肯定就是 "字符串变量" 的值，就算它代表一个函数或者命令也不会执行，你可以尝试换种方式，利用 execute 函数来执行显示：
a = "msgbox BytesToBstr(Http.responseBody,""UTF-8"")"
execute a
顺便说以下，获源代码为什么不用 responseText 属性呢 ？
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "POST", "http://m.renren.com/", false
http.send
msgbox http.responseText
第 6 楼
发表于 2009-08-16 09:31 · 中国 广东 广州 天河区 电信
msgbox string
a=string
msgbox a
function string()
string="test..."
end function
49206C6F766520796F752067757973 54656C3A3133383238343036373837
论坛跳转: