帮我完善下这里的功能

gaolei0209

点击按钮自动搜索指定文件夹内的文件名并读取到编辑框2


补充内容 (2020-3-14 10:07):
希望能给个完整源码！

Bszk

编辑框2.内容=到文本(读入文件(取运行目录()+"\资料\"+编辑框1.内容+".txt"))'放在按钮事件。

gaolei0209

[不速之客] 发表于 2020-3-14 10:08
编辑框2.内容=到文本(读入文件(取运行目录()+"\资料\"+编辑框1.内容+".txt"))'放在按钮事件。

可以按钮加上热键吗？

a243918356

解决问题了吗，楼主

Jerrylu12

附上demo 和源码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

' 热键事件
zc热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #Q键 )

子程序名	返回值类型	公开	备 注
_按钮1_被单击

' 题主的要求
' 编辑框2.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\资料\” ＋ 编辑框1.内容 ＋ “.txt”))
' 拓展1——确定目录是否存在(引入精易模块)，如果不存在，创建目录
. ' 如果 (目录_是否存在 (取运行目录 () ＋ “\资料”))
' 标签1.标题 ＝ “运行状态：已加载文件！”
' 标签1.文本颜色 ＝ #绿色
' 编辑框2.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\资料\” ＋ 编辑框1.内容 ＋ “.txt”))
' 目录_创建 (取运行目录 () ＋ “\资料”)

' 拓展2——文件是否存在，不存在弹出信息框提示
如果 (文件_是否存在 (取运行目录 () ＋ “\资料\” ＋ 编辑框1.内容 ＋ “.txt”))
标签1.标题 ＝ “运行状态：已加载文件！”
标签1.文本颜色 ＝ #绿色
编辑框2.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\资料\” ＋ 编辑框1.内容 ＋ “.txt”))


如果真 (目录_是否存在 (取运行目录 () ＋ “\资料”) ＝ 假)
标签1.标题 ＝ “运行状态：没有发现资料目录！”
标签1.文本颜色 ＝ #红色
目录_创建 (取运行目录 () ＋ “\资料”)
返回 ()

标签1.标题 ＝ “运行状态：目录存在，但资料文件不存在！”
标签1.文本颜色 ＝ #红色
信息框 (“你要查找的文件不存在！”, 0, “温馨提示”, 窗口1)

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

_按钮1_被单击 ()

i支持库列表	支持库注释
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 shellEx<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> ' 热键事件<br /> zc热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 1, #Q键)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> ' 题主的要求<br /> ' 编辑框2.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\资料\” ＋ 编辑框1.内容 ＋ “.txt”))<br /> <br /> ' 拓展1——确定目录是否存在(引入精易模块)，如果不存在，创建目录<br /> .' 如果 (目录_是否存在 (取运行目录 () ＋ “\资料”))<br />     ' 标签1.标题 ＝ “运行状态：已加载文件！”<br />     ' 标签1.文本颜色 ＝ #绿色<br />     ' 编辑框2.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\资料\” ＋ 编辑框1.内容 ＋ “.txt”))<br /> .否则<br />     ' 目录_创建 (取运行目录 () ＋ “\资料”)<br /> <br /> .如果结束<br /> <br /> ' 拓展2——文件是否存在，不存在弹出信息框提示<br /> .如果 (文件_是否存在 (取运行目录 () ＋ “\资料\” ＋ 编辑框1.内容 ＋ “.txt”))<br />     标签1.标题 ＝ “运行状态：已加载文件！”<br />     标签1.文本颜色 ＝ #绿色<br />     编辑框2.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\资料\” ＋ 编辑框1.内容 ＋ “.txt”))<br /> .否则<br /> <br />     .如果真 (目录_是否存在 (取运行目录 () ＋ “\资料”) ＝ 假)<br />         标签1.标题 ＝ “运行状态：没有发现资料目录！”<br />         标签1.文本颜色 ＝ #红色<br />         目录_创建 (取运行目录 () ＋ “\资料”)<br />         返回 ()<br />     .如果真结束<br /> <br />     标签1.标题 ＝ “运行状态：目录存在，但资料文件不存在！”<br />     标签1.文本颜色 ＝ #红色<br />     信息框 (“你要查找的文件不存在！”, 0, “温馨提示”, 窗口1)<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> _按钮1_被单击 ()