快捷录入信息

seed如影

可以把编辑框内容快速录入到指定文件里存储 照着教程做的 虽然不太理解 但是可以慢慢消化 呵呵

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
快捷信息	文本型
分割信息	文本型	0

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

快捷信息 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\录入信息.txt”))
分割信息 ＝ 分割文本 (快捷信息, “*”, )

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

变量名	类 型	静态	数组	备 注
n1	整数型

如果真 (编辑框1.内容 ＝ “”)
列表框1.可视 ＝ 假
返回 ()
列表框1.清空 ()
计次循环首 (取数组成员数 (分割信息), n1)
如果 (寻找文本 (分割信息 [n1], 编辑框1.内容, , 假) ≠ -1)
列表框1.插入项目 (0, 分割信息 [n1], )
列表框1.可视 ＝ 真



计次循环尾 ()
如果 (列表框1.取项目数 () ＝ 0)
列表框1.可视 ＝ 假


如果真 (列表框1.取项目数 () ≤ 10)
列表框1.高度 ＝ 14 × 列表框1.取项目数 ()

如果真 (列表框1.取项目数 () ＞ 10)
列表框1.高度 ＝ 140

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

写到文件 (取运行目录 () ＋ “\录入信息.txt”, 到字节集 (编辑框1.内容 ＋ “*” ＋ 快捷信息))
__启动窗口_创建完毕 ()

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

编辑框1.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
列表框1.清空 ()
列表框1.可视 ＝ 假

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果真 (键代码 ＝ 40)
列表框1.现行选中项 ＝ 列表框1.现行选中项 ＋ 1

如果真 (键代码 ＝ 38)
列表框1.现行选中项 ＝ 列表框1.现行选中项 － 1

如果真 (键代码 ＝ 13)
_列表框1_列表项被选择 ()

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 快捷信息, 文本型<br /> .程序集变量 分割信息, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 快捷信息 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\录入信息.txt”))<br /> 分割信息 ＝ 分割文本 (快捷信息, “*”, )<br /> <br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 n1, 整数型<br /> <br /> .如果真 (编辑框1.内容 ＝ “”)<br />     列表框1.可视 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> 列表框1.清空 ()<br /> .计次循环首 (取数组成员数 (分割信息), n1)<br />     .如果 (寻找文本 (分割信息 [n1], 编辑框1.内容, , 假) ≠ -1)<br />         列表框1.插入项目 (0, 分割信息 [n1], )<br />         列表框1.可视 ＝ 真<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .如果 (列表框1.取项目数 () ＝ 0)<br />     列表框1.可视 ＝ 假<br /> .否则<br /> <br />     .如果真 (列表框1.取项目数 () ≤ 10)<br />         列表框1.高度 ＝ 14 × 列表框1.取项目数 ()<br />     .如果真结束<br /> <br />     .如果真 (列表框1.取项目数 () ＞ 10)<br />         列表框1.高度 ＝ 140<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 写到文件 (取运行目录 () ＋ “\录入信息.txt”, 到字节集 (编辑框1.内容 ＋ “*” ＋ 快捷信息))<br /> __启动窗口_创建完毕 ()<br /> <br /> <br /> .子程序 _列表框1_列表项被选择<br /> <br /> 编辑框1.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)<br /> 列表框1.清空 ()<br /> 列表框1.可视 ＝ 假<br /> <br /> <br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (键代码 ＝ 40)<br />     列表框1.现行选中项 ＝ 列表框1.现行选中项 ＋ 1<br /> .如果真结束<br /> <br /> .如果真 (键代码 ＝ 38)<br />     列表框1.现行选中项 ＝ 列表框1.现行选中项 － 1<br /> .如果真结束<br /> <br /> .如果真 (键代码 ＝ 13)<br />     _列表框1_列表项被选择 ()

f15007937680

没有弄明白这是什么

nyinfo

感谢分享

杨明煜

好东西.................

seed如影

杨明煜 发表于 2020-2-16 11:25
谢谢，真好.................

谢谢你的支持 感谢你的评论

杨明煜

谢谢，真好.................

smy555

支持支持 多谢开源

seed如影

mood100 发表于 2020-2-14 13:04
这个看不明白是怎么录入？、

写到文件么？就是这个取运行目录没弄明白 呵呵

菜菜瓜

感谢分享，学习了

mood100

这个看不明白是怎么录入？、