下你所需,载你所想!
汇集开发技术源码资料

超级列表框读入/保存数据库对接

:8.964KB :1 :2019-12-19 17:08:30

部分简介

建议调试时调用该子程序,如保存文件不存在或出现其它错误,该程序会崩溃,文件不存在或被更改等原因使数组成员引用下标超出自定义范围后程序崩溃,遇到上述情况时会返回逻辑值假,并复原原超级列表框;成功返回逻辑值真。

随机密码 = 到文本 (求余弦 (取随机数 (1, 180)))
超级列表框_保存 (超级列表框, 取特定目录 (10) + “\备份数据.txt”, 随机密码)
' 备份超级列表框数据,用以崩溃时复原
.如果 (是否为空 (密码))
分割文本 = 分割文本 (到文本 (读入文件 (保存位置)), #分隔符_版块, )
.否则
分割文本 = 分割文本 (到文本 (解密数据 (读入文件 (保存位置), 密码, 2)), #分隔符_版块, )
.如果结束
.如果真 (取数组成员数 (分割文本) ≠ 19) ' 【防止崩溃】
超级列表框_读入 (超级列表框, 取特定目录 (10) + “\备份数据.txt”, 随机密码)
删除文件 (取特定目录 (10) + “\备份数据.txt”)
输出调试文本 (“出错,原因可能是:1.错误 2.保存文件不存在 3 保存文件被更改 [出错位置:1]”)

超级列表框读入/保存数据库对接

热门推荐

相关文章