虚表导入问题

Hwak

  

子程序名	返回值类型	公开	备 注
导入账号3

变量名	类 型	静态	数组	备 注
t	整数型
a	文本型
b	文本型		0
c	整数型
d	文本型		0
text	文本型
f	整数型
txt	文本型
arr	文本型		0
n	整数型

通用对话框1.打开 ()
通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “txt文件|*.txt”
如果真 (通用对话框1.文件名 ＝ “”)
信息框 (“请选择账号文件”, 0, , )
返回 ()
a ＝ 通用对话框1.文件名
' a ＝ Dialog_.OpenFile (取窗口句柄 (), 取运行目录 (), “请选择账号文件”, “txt文件|*.txt”, 真)
如果真 (a ＝ “”)
返回 ()

t ＝ 取启动时间 ()
txt ＝ 到文本 (读入文件 (a))
arr ＝ 分割文本 (a, #换行符, n)
hx.全部删除 ()
hx.置表项数 (n)
hx.事件_填充表项 (&事件_填充表项)
状态条1.置文本 (1, “读取所用时间：” ＋ 到文本 (取整 ( (取启动时间 () － t) ÷ 1000)) ＋ “秒”)
' 返回 ()

子程序名	返回值类型	公开	备 注
事件_填充表项
参数名	类 型	参考	可空	数组	备 注
项目指针	整数型
标题指针	整数型
arr	文本型

变量名	类 型	静态	数组	备 注
超级列表框项目	超级列表框项目
user	文本型
pwd	文本型

超级列表框项目 ＝ 指针到列表框项目 (项目指针)
user ＝ 文本_取左边 (arr [超级列表框项目.表项索引 ＋ 1], “----”)
pwd ＝ 文本_取左边 (arr [超级列表框项目.表项索引 ＋ 1], “----”)
如果真 (超级列表框项目.子项索引 ＝ 0)
写到内存 (到文本 (超级列表框项目.表项索引 ＋ 1), 标题指针, )
如果真 (超级列表框项目.子项索引 ＝ 1)
写到内存 (user, 标题指针, )
如果真 (超级列表框项目.子项索引 ＝ 2)
写到内存 (pwd, 标题指针, )

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 导入账号3<br /> .局部变量 t, 整数型<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 c, 整数型<br /> .局部变量 d, 文本型, , "0"<br /> .局部变量 text, 文本型<br /> .局部变量 f, 整数型<br /> .局部变量 txt, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 通用对话框1.打开 ()<br /> 通用对话框1.类型 ＝ 0<br /> 通用对话框1.过滤器 ＝ “txt文件|*.txt”<br /> <br /> .如果真 (通用对话框1.文件名 ＝ “”)<br />     信息框 (“请选择账号文件”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> a ＝ 通用对话框1.文件名<br /> <br /> ' a ＝ Dialog_.OpenFile (取窗口句柄 (), 取运行目录 (), “请选择账号文件”, “txt文件|*.txt”, 真)<br /> .如果真 (a ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> <br /> t ＝ 取启动时间 ()<br /> txt ＝ 到文本 (读入文件 (a))<br /> arr ＝ 分割文本 (a, #换行符, n)<br /> <br /> hx.全部删除 ()<br /> hx.置表项数 (n)<br /> hx.事件_填充表项 (&事件_填充表项)<br /> 状态条1.置文本 (1, “读取所用时间：” ＋ 到文本 (取整 ((取启动时间 () － t) ÷ 1000)) ＋ “秒”)<br /> ' 返回 ()<br /> <br /> .子程序 事件_填充表项<br /> .参数 项目指针, 整数型<br /> .参数 标题指针, 整数型<br /> .参数 arr, 文本型<br /> .局部变量 超级列表框项目, 超级列表框项目<br /> .局部变量 user, 文本型<br /> .局部变量 pwd, 文本型<br /> <br /> 超级列表框项目 ＝ 指针到列表框项目 (项目指针)<br /> user ＝ 文本_取左边 (arr [超级列表框项目.表项索引 ＋ 1], “----”)<br /> pwd ＝ 文本_取左边 (arr [超级列表框项目.表项索引 ＋ 1], “----”)<br /> .如果真 (超级列表框项目.子项索引 ＝ 0)<br />     写到内存 (到文本 (超级列表框项目.表项索引 ＋ 1), 标题指针, )<br /> .如果真结束<br /> .如果真 (超级列表框项目.子项索引 ＝ 1)<br />     写到内存 (user, 标题指针, )<br /> .如果真结束<br /> .如果真 (超级列表框项目.子项索引 ＝ 2)<br />     写到内存 (pwd, 标题指针, )

看了论坛很多都是随机生成 想知道用导入的 怎么写好  就是导入账号密码这样的 求大神支招！




补充内容 (2018-4-16 15:58):
已经自己搞定 请求删帖！！！！！！

补充内容 (2018-4-17 11:51):
解决方案 把arr设置成程序集变量  就可以！

2045109515

学到了，跟给力