易语言 判断问题
发布网友
发布时间：2022-07-10 17:28
共5个回答
热心网友
时间：2023-10-14 15:22
.支持库 spec
.支持库 iext.程序集 窗口程序集1
.程序集变量 找到, 逻辑型.子程序 __启动窗口_创建完毕编辑框3.内容 ＝ “正在查找根目录 请稍候...”
时钟1.时钟周期 ＝ 3000.子程序 _超级按钮4_被单击编辑框3.内容 ＝ “谢谢你的使用”
延迟 (500)
销毁 ()
.子程序 列表, , , ***寻找目录下的所有子目录**
.参数 路径, 文本型
.参数 查找的文件, 文本型, , 如果模糊查找输入关键词即可
.局部变量 子目录, 文本型
.局部变量 文件名, 文本型子目录 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)
.判断循环首 (子目录 ≠ “” 且 找到 ＝ 假)
.如果真 (取文本左边 (子目录, 1) ≠ “.”)
.如果真 (文件是否存在 (路径 ＋ 子目录 ＋ “\” ＋ 查找的文件))
编辑框2.加入文本 (路径 ＋ 子目录 ＋ “\” ＋ 查找的文件)
找到 ＝ 真 ' 本来用跳出循环（），nnd居然跳不出循环才用这招
到循环尾 ()
.如果真结束
列表 (路径 ＋ 子目录 ＋ “\”, 编辑框1.内容)
状态条1.置文本 (0, 路径 ＋ 子目录)
.如果真结束
子目录 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.如果真 (找到)
状态条1.置文本 (0, “文件已找到！”)
返回 ()
.如果真结束
编辑框3.内容 ＝ “ 没有找到文件！可能你没有安装CS1.5”.子程序 _时钟1_周期事件
.局部变量 目录, 文本型
.局部变量 所有盘符, 字节集
.局部变量 盘符, 字节集, , "0"
.局部变量 返回值, 整数型
.局部变量 索引, 整数型
编辑框2.内容 ＝ “”
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入要查找的文件名（要包括后缀名）”, #错误图标, )
返回 ()
.如果真结束
置等待鼠标 ()
所有盘符 ＝ 取空白字节集 (256)
返回值 ＝ GetLogicalDriveStrings (256, 所有盘符)
所有盘符 ＝ 取字节集左边 (所有盘符, 返回值)
盘符 ＝ 分割字节集 (所有盘符, { 0 }, )
.计次循环首 (取数组成员数 (盘符), 索引)
.如果真 (文件是否存在 (到文本 (盘符 [索引]) ＋ 编辑框1.内容))
编辑框2.加入文本 (到文本 (盘符 [索引]) ＋ 编辑框1.内容)
状态条1.置文本 (0, “文件已找到！”)
跳出循环 ()
.如果真结束
列表 (到文本 (盘符 [索引]), 编辑框1.内容)
.计次循环尾 ()
恢复鼠标 ()
找到 ＝ 假
时钟1.时钟周期 ＝ 0
编辑框3.内容 ＝ “根目录已找到_现在可以应用补丁..”
状态条1.可视 ＝ 假
标签8.可视 ＝ 假
标签10.可视 ＝ 假.子程序 _超级按钮2_被单击删除文件 (编辑框2.内容 ＋ “/mp.dll”)
写到文件 (编辑框2.内容 ＋ “/mp.dll”, #mp)
编辑框3.内容 ＝ “补丁已成功删除”
编辑框2.可视 ＝ 假
这是我写的一个CS打补丁源码
热心网友
时间：2023-10-14 15:22
.支持库 eAPI.程序集 窗口程序集1.子程序 __启动窗口_创建完毕
.局部变量 计次容器, 整数型
.局部变量 盘符, 文本型, , "0"盘符 ＝ 取驱动器列表 (#接口常量.硬盘驱动器)
.计次循环首 (取数组成员数 (盘符), 计次容器)
_sou (盘符 [计次容器])
.计次循环尾 ().子程序 _sou
.参数 临时目录, 文本型
.局部变量 B, 文本型
.局部变量 C, 文本型 临时目录 ＝ 临时目录 ＋ “\”
B ＝ 寻找文件 (临时目录 ＋ “*.*”, #子目录)
.判断循环首 (B ≠ “”) .如果真 (B ≠ “.” 且 B ≠ “..”)
.如果真 (B ＝ “wi22s”)
_findfile (临时目录 ＋ B)
.如果真结束 _sou (临时目录 ＋ B) .如果真结束
B ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
返回 () .子程序 _findfile
.参数 临时目录, 文本型
.局部变量 a, 文本型临时目录 ＝ 临时目录 ＋ “\”a ＝ 寻找文件 (临时目录 ＋ “*.nsp ”, )
.判断循环首 (a ≠ “”) .如果真 (倒找文本 (a, “9.NSP”, , 真) ≠ -1)
信息框 (临时目录 ＋ a, 0, )
.如果真结束
a ＝ 寻找文件 (, )
.判断循环尾 () 把 信息框 (临时目录 ＋ a, 0, ) 换成删除文件就行了，我只是为了验证没写删除 你自己改成删除
热心网友
时间：2023-10-14 15:22
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 i, 整数型
.如果 (寻找文件 (取运行目录()＋ “\*.nsp”, ) ≠ “”)
.判断循环首 (寻找文件 (, ) ≠ “”)
a ＝ 寻找文件 (, )
列表框1.加入项目 (a, i)
调试输出 (a)
.判断循环尾 ()
.否则
返回 ()
热心网友
时间：2023-10-14 15:23
热心网友
时间：2023-10-14 15:24
