中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-12 06:26 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » vbs 中 如何把一个字符串设为变量？
可打印版本 　875 / 5
第1楼　wuhanbin 发表于 2009-08-14 07:01
初级用户　发帖 86　积分 191
vbs 中 如何把一个字符串设为变量？
一个vbs脚本，function后输出一个字符串，现在我只能MSGBOX这个function，那如何把这个function输出的字符串设为变量呢？谢谢啦！
第2楼　qinchun36 发表于 2009-08-14 07:17
高级用户　发帖 400　积分 609
什么意思 ？

说具体点，给出你的例子也行
第3楼　wuhanbin 发表于 2009-08-14 07:53
初级用户　发帖 86　积分 191
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"))一样的功能？谢谢！
第4楼　slore 发表于 2009-08-14 10:55
铂金会员　发帖 2,478　积分 5,212
a=(BytesToBstr(Http.responseBody,"UTF-8"))
msgbox a
第5楼　qinchun36 发表于 2009-08-14 12:15
高级用户　发帖 400　积分 609
我无法实现你说的这种功能！
msgbox 后面如果跟一个字符串的话肯定每次输出就不会变的了， "msgbox 字符串变量“ 显示的肯定就是 "字符串变量" 的值，就算它代表一个函数或者命令也不会执行，你可以尝试换种方式，利用 execute 函数来执行显示：



顺便说以下，获源代码为什么不用 responseText 属性呢 ？
第6楼　everest79 发表于 2009-08-16 09:31
金牌会员　发帖 1,127　积分 2,564
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023