中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-11 08:56 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » [已结]VB将变量字符串显示在弹出的选择框上
可打印版本 　664 / 2
第1楼　ka56 发表于 2009-02-15 10:55
中级用户　发帖 129　积分 234
[已结]VB将变量字符串显示在弹出的选择框上
Set objIE = CreateObject("InternetExplorer.Application"
objIE.Navigate("about:blank"
strURL = objIE.document.parentwindow.clipboardData.GetData("text"
objIE.Quit
set ws=createobject("wscript.shell"
a=msgbox("请注意:是否将*****添加入你的文档?",Byesno+32,"提示"
if a=vbyes then ws.run "添加联系方式.bat"



假如现在剪贴板里是"张翔 1352031284",如何将剪贴板的变量显示在弹出的选择框上.就是想找代码替换星号部分,,,得到的结果是:

请注意:是否将"张翔 1352031284"添加入你的文档?

选确定后,接着执行添加联系方式.bat



没学过VBS,又来麻烦论坛的虾虾了,先致礼下!

[ Last edited by ka56 on 2009-2-15 at 12:42 ]
第2楼　ka56 发表于 2009-02-15 11:00
中级用户　发帖 129　积分 234
汗~表情都出来了,部分就一个右括号""
第3楼　ka56 发表于 2009-02-15 12:41
中级用户　发帖 129　积分 234
a=msgbox("请注意:是否将"+strURL+"添加入你的文档?",Byesno+32,"提示" )

这样就行了,谢谢大家!~~
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023