将两行文本传入 InputBox [英] Pass two lines of text into InputBox

查看：23
本文介绍了将两行文本传入 InputBox的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我的代码中有以下一行要求用户输入.

strFind = InputBox("请输入要查找的文本.","替换文件中的文本")

我需要用户输入两行由 LF 或 CR 或 CRLF(换行符)分隔的文本
但是 InputBox 只排除一行文本.
有什么建议吗?

谢谢

解决方案 

dim completedmsgbox inputboxml("输入文本:", "多行输入框通过 HTA", "默认" & vbcrlf & vbtab & "multiline" & vbcrlf & "text")函数 inputboxml(prompt, title, defval)昏暗的窗户设置窗口 = 创建窗口()完成 = 0defval = replace(replace(replace(replace(defval, "&", "&amp;"), "<", "&lt;"), ">", "&gt;")带窗使用 .document.title = 标题.body.style.background = "按钮面".body.style.fontfamily = "consolas, courier new".body.style.fontsize = "8pt".body.innerhtml = "
"&提示&"</nobr><br><br></center><textarea id='hta_textarea' style='font-family: consolas, courier new; width: 100%; height: 580px;'>;"&defval &"</textarea><br><button id='hta_cancel' style='font-family: consolas, courier new; width: 85px; margin: 10px; padding: 3px; float: right;'>Cancel<;/button><button id='hta_ok' style='font-family: consolas, courier new; width: 85px; margin: 10px; padding: 3px; float: right;'>OK</button></div>"以.resizeto 700, 700.moveto 100, 100以window.hta_textarea.focus设置 window.hta_cancel.onclick = getref("hta_cancel")设置 window.hta_ok.onclick = getref("hta_ok")设置 window.document.body.onunload = getref("hta_onunload")做直到完成 >0wscript.sleep 10环形选择案例完成情况1inputboxml = ""案例2inputboxml = ""window.close案例3inputboxml = window.hta_textarea.valuewindow.close结束选择结束函数函数创建窗口()rem 源 http://forum.script-coding.com/viewtopic.php?pid=75356#p75356昏暗的签名，shellwnd，proc下一个错误恢复签名 = left(createobject("Scriptlet.TypeLib").guid, 38)做set proc = createobject("WScript.Shell").exec("mshta""about:<head><script>moveTo(-32000,-32000);</script><hta:application id=app边框=对话框最小化按钮=无最大化按钮=无滚动=无显示任务栏=是上下文菜单=无选择=是内边框=无图标=""%windir%\system32\notepad.exe"""/><object id='shellwindow'classid='clsid:8856F961-340A-11D0-A96B-00C04FD705A2'>



        

        

            
相关文章
其他开发最新文章
热门教程
热门工具
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆