判断循环问题

alrino

.如何在s ＝ s － 1的代码后里面加上一个代码“当运行到这里的时候暂停，等待按下F4”

版本 2

.程序集 窗口程序集1
.程序集变量 h, 文本型, , "0"
.程序集变量 s, 整数型

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击

h ＝ 分割文本 (编辑框1.内容, #换行符, )
s ＝ 取数组成员数 (h)
.计次循环首 (s, )
    运行 (“explorer ” ＋ h , 假, )
    s ＝ s － 1
.计次循环尾 ()

.子程序 _按钮2_被单击

通用对话框1.文件名 ＝ 取运行目录 ()
通用对话框1.打开 ()
编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))


批量打开网站.rar (1.1 KB, 下载次数: 1)

2013-12-9 00:00 上传

点击文件名下载附件

superuserlrj

楼主你的代码根本就运行不了，  h 变量是一个 文本数组变量 但是你调用的时候没有注明调用哪个成员！
给你修改了一下，自己看代码吧！
[e]
.版本 2
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 h, 文本型, , "0"
.程序集变量 s, 整数型
.程序集变量 热键F4, 整数型

.子程序 __启动窗口_创建完毕

编辑框1.是否允许多行 ＝ 真
热键F4 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键)

.子程序 _按钮1_被单击

通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “文本文档|*.txt”
.如果真 (通用对话框1.打开 ())
    编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))
    h ＝ 分割文本 (编辑框1.内容, #换行符, )
.如果真结束


.子程序 __启动窗口_将被销毁

撤销热键 (取窗口句柄 (), 热键F4)

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 热键F4)
    s ＝ s ＋ 1
    运行 (“explorer ” ＋ h , 假, )
    .如果真 (s ≥ 取数组成员数 (h))
        s ＝ 0
    .如果真结束

.如果真结束
[/e]

流氓丶R

有个API是监控按键的，你找找，只要监控到按键代码是F4，就跳出循环
[e]
.版本 2

.局部变量 无限循环, 逻辑型

无限循环 ＝ 真
.判断循环首 (无限循环 ＝ 真)
    .如果真 (键代码 ＝ #F4键)
        跳出循环 ()  ' 如果按到F4按键就会跳出循环
    .如果真结束

.判断循环尾 ()[/e]

superuserlrj

如果你不想注册热键可以改为监视热键   监视热键 论坛模块有这个命令！