TXT文本导入超级列表框

woyao2991314

  

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

变量名	类 型	静态	数组	备 注
行数据	文本型		0
下标	整数型
行分割	文本型		0
索引	整数型

' 现在是通用对话框引导的
' 改成固定根目录下的固定文件名
连续赋值 ({  }, 超级列表框1.表项, 超级列表框3.表项)
如果真 (通用对话框.打开 ())
行数据 ＝ 分割文本 (到文本 (读入文件 (通用对话框.文件名)), #换行符, )
计次循环首 (取数组成员数 (行数据), 下标)
如果真 (行数据 [下标] ≠ “”)
行分割 ＝ 分割文本 (行数据 [下标], “ ”, )
如果真 (取数组成员数 (行分割) ≥ 7)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
索引 ＝ 超级列表框3.插入表项 (, , , , , )
判断 (取数组成员数 (行分割) ＝ 8)
超级列表框1.置标题 (索引, 0, 行分割 [1])
超级列表框3.置标题 (索引, 0, 行分割 [1])
超级列表框1.置标题 (索引, 1, 行分割 [2])
超级列表框1.置标题 (索引, 2, 行分割 [3])
超级列表框1.置标题 (索引, 3, 行分割 [4])
超级列表框1.置标题 (索引, 4, 行分割 [5])
超级列表框1.置标题 (索引, 5, 行分割 [6])
超级列表框1.置标题 (索引, 6, 行分割 [7])
超级列表框1.置标题 (索引, 7, 行分割 [8])
超级列表框3.置标题 (索引, 1, 行分割 [2])
超级列表框3.置标题 (索引, 2, 行分割 [3])
超级列表框3.置标题 (索引, 3, 行分割 [4])
超级列表框3.置标题 (索引, 4, 行分割 [5])
超级列表框3.置标题 (索引, 5, 行分割 [6])
超级列表框3.置标题 (索引, 6, 行分割 [7])
超级列表框3.置标题 (索引, 7, 行分割 [8])
超级列表框1.置标题 (索引, 1, 行分割 [1])
超级列表框1.置标题 (索引, 2, 行分割 [2])
超级列表框1.置标题 (索引, 3, 行分割 [3])
超级列表框1.置标题 (索引, 4, 行分割 [4])
超级列表框1.置标题 (索引, 5, 行分割 [5])
超级列表框1.置标题 (索引, 6, 行分割 [6])
超级列表框1.置标题 (索引, 7, 行分割 [7])
超级列表框3.置标题 (索引, 1, 行分割 [1])
超级列表框3.置标题 (索引, 2, 行分割 [2])
超级列表框3.置标题 (索引, 3, 行分割 [3])
超级列表框3.置标题 (索引, 4, 行分割 [4])
超级列表框3.置标题 (索引, 5, 行分割 [5])
超级列表框3.置标题 (索引, 6, 行分割 [6])
超级列表框3.置标题 (索引, 7, 行分割 [7])



计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮_导入_被单击<br /> .局部变量 行数据, 文本型, , "0"<br /> .局部变量 下标, 整数型<br /> .局部变量 行分割, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> <br /> ' 现在是通用对话框引导的<br /> ' 改成固定根目录下的固定文件名<br /> <br /> 连续赋值 ({  }, 超级列表框1.表项, 超级列表框3.表项)<br /> .如果真 (通用对话框.打开 ())<br />     行数据 ＝ 分割文本 (到文本 (读入文件 (通用对话框.文件名)), #换行符, )<br />     .计次循环首 (取数组成员数 (行数据), 下标)<br />         .如果真 (行数据 [下标] ≠ “”)<br />             行分割 ＝ 分割文本 (行数据 [下标], “ ”, )<br />             .如果真 (取数组成员数 (行分割) ≥ 7)<br />                 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />                 索引 ＝ 超级列表框3.插入表项 (, , , , , )<br />                 .判断开始 (取数组成员数 (行分割) ＝ 8)<br />                     超级列表框1.置标题 (索引, 0, 行分割 [1])<br />                     超级列表框3.置标题 (索引, 0, 行分割 [1])<br />                     超级列表框1.置标题 (索引, 1, 行分割 [2])<br />                     超级列表框1.置标题 (索引, 2, 行分割 [3])<br />                     超级列表框1.置标题 (索引, 3, 行分割 [4])<br />                     超级列表框1.置标题 (索引, 4, 行分割 [5])<br />                     超级列表框1.置标题 (索引, 5, 行分割 [6])<br />                     超级列表框1.置标题 (索引, 6, 行分割 [7])<br />                     超级列表框1.置标题 (索引, 7, 行分割 [8])<br />                     超级列表框3.置标题 (索引, 1, 行分割 [2])<br />                     超级列表框3.置标题 (索引, 2, 行分割 [3])<br />                     超级列表框3.置标题 (索引, 3, 行分割 [4])<br />                     超级列表框3.置标题 (索引, 4, 行分割 [5])<br />                     超级列表框3.置标题 (索引, 5, 行分割 [6])<br />                     超级列表框3.置标题 (索引, 6, 行分割 [7])<br />                     超级列表框3.置标题 (索引, 7, 行分割 [8])<br />                 .默认<br />                     超级列表框1.置标题 (索引, 1, 行分割 [1])<br />                     超级列表框1.置标题 (索引, 2, 行分割 [2])<br />                     超级列表框1.置标题 (索引, 3, 行分割 [3])<br />                     超级列表框1.置标题 (索引, 4, 行分割 [4])<br />                     超级列表框1.置标题 (索引, 5, 行分割 [5])<br />                     超级列表框1.置标题 (索引, 6, 行分割 [6])<br />                     超级列表框1.置标题 (索引, 7, 行分割 [7])<br />                     超级列表框3.置标题 (索引, 1, 行分割 [1])<br />                     超级列表框3.置标题 (索引, 2, 行分割 [2])<br />                     超级列表框3.置标题 (索引, 3, 行分割 [3])<br />                     超级列表框3.置标题 (索引, 4, 行分割 [4])<br />                     超级列表框3.置标题 (索引, 5, 行分割 [5])<br />                     超级列表框3.置标题 (索引, 6, 行分割 [6])<br />                     超级列表框3.置标题 (索引, 7, 行分割 [7])<br />                 .判断结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()

补充内容 (2024-9-3 23:14):
完完全全对一个个小白，只是想整点东西玩玩，充币频繁发帖求助，也算为论坛贡献一点点

LEOONL

  

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

变量名	类 型	静态	数组	备 注
行数据	文本型		0
下标	整数型
行分割	文本型		0
索引	整数型
q	整数型

行数据 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\1.txt”)), #换行符, )
计次循环首 (取数组成员数 (行数据), 下标)
如果真 (行数据 [下标] ≠ “”)
行分割 ＝ 分割文本 (行数据 [下标], “ ”, )
如果真 (取数组成员数 (行分割) ≥ 7)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
索引 ＝ 超级列表框3.插入表项 (, , , , , )
计次循环首 (取数组成员数 (行分割), q)
超级列表框1.置标题 (索引, q-1, 行分割 [q])
超级列表框3.置标题 (索引, q-1, 行分割 [q])
计次循环尾 ()


计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮_导入_被单击<br /> .局部变量 行数据, 文本型, , "0"<br /> .局部变量 下标, 整数型<br /> .局部变量 行分割, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> .局部变量 q, 整数型<br /> <br /> 行数据 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\1.txt”)), #换行符, )<br /> .计次循环首 (取数组成员数 (行数据), 下标)<br />     .如果真 (行数据 [下标] ≠ “”)<br />         行分割 ＝ 分割文本 (行数据 [下标], “ ”, )<br />         .如果真 (取数组成员数 (行分割) ≥ 7)<br />             索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />             索引 ＝ 超级列表框3.插入表项 (, , , , , )<br />             .计次循环首 (取数组成员数 (行分割), q)<br />                 超级列表框1.置标题 (索引, q-1, 行分割 [q])<br />                 超级列表框3.置标题 (索引, q-1, 行分割 [q])<br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

企鹅号525150138

行数据 ＝ 分割文本 (到文本 (读入文件 ("固定文件路径”)), #换行符, )

企鹅号525150138

  

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

变量名	类 型	静态	数组	备 注
行数据	文本型		0
下标	整数型
行分割	文本型		0
索引	整数型

' 现在是通用对话框引导的
' 改成固定根目录下的固定文件名
连续赋值 ({  }, 超级列表框1.表项, 超级列表框3.表项)
行数据 ＝ 分割文本 (到文本 (读入文件 ("C:\1.txt")), #换行符, )
计次循环首 (取数组成员数 (行数据), 下标)
如果真 (行数据 [下标] ≠ “”)
行分割 ＝ 分割文本 (行数据 [下标], “ ”, )
如果真 (取数组成员数 (行分割) ≥ 7)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
索引 ＝ 超级列表框3.插入表项 (, , , , , )
判断 (取数组成员数 (行分割) ＝ 8)
超级列表框1.置标题 (索引, 0, 行分割 [1])
超级列表框3.置标题 (索引, 0, 行分割 [1])
超级列表框1.置标题 (索引, 1, 行分割 [2])
超级列表框1.置标题 (索引, 2, 行分割 [3])
超级列表框1.置标题 (索引, 3, 行分割 [4])
超级列表框1.置标题 (索引, 4, 行分割 [5])
超级列表框1.置标题 (索引, 5, 行分割 [6])
超级列表框1.置标题 (索引, 6, 行分割 [7])
超级列表框1.置标题 (索引, 7, 行分割 [8])
超级列表框3.置标题 (索引, 1, 行分割 [2])
超级列表框3.置标题 (索引, 2, 行分割 [3])
超级列表框3.置标题 (索引, 3, 行分割 [4])
超级列表框3.置标题 (索引, 4, 行分割 [5])
超级列表框3.置标题 (索引, 5, 行分割 [6])
超级列表框3.置标题 (索引, 6, 行分割 [7])
超级列表框3.置标题 (索引, 7, 行分割 [8])
超级列表框1.置标题 (索引, 1, 行分割 [1])
超级列表框1.置标题 (索引, 2, 行分割 [2])
超级列表框1.置标题 (索引, 3, 行分割 [3])
超级列表框1.置标题 (索引, 4, 行分割 [4])
超级列表框1.置标题 (索引, 5, 行分割 [5])
超级列表框1.置标题 (索引, 6, 行分割 [6])
超级列表框1.置标题 (索引, 7, 行分割 [7])
超级列表框3.置标题 (索引, 1, 行分割 [1])
超级列表框3.置标题 (索引, 2, 行分割 [2])
超级列表框3.置标题 (索引, 3, 行分割 [3])
超级列表框3.置标题 (索引, 4, 行分割 [4])
超级列表框3.置标题 (索引, 5, 行分割 [5])
超级列表框3.置标题 (索引, 6, 行分割 [6])
超级列表框3.置标题 (索引, 7, 行分割 [7])



计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮_导入_被单击<br /> .局部变量 行数据, 文本型, , "0"<br /> .局部变量 下标, 整数型<br /> .局部变量 行分割, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> <br /> ' 现在是通用对话框引导的<br /> ' 改成固定根目录下的固定文件名<br /> <br /> 连续赋值 ({  }, 超级列表框1.表项, 超级列表框3.表项)<br /> <br />     行数据 ＝ 分割文本 (到文本 (读入文件 ("C:\1.txt")), #换行符, )<br />     .计次循环首 (取数组成员数 (行数据), 下标)<br />         .如果真 (行数据 [下标] ≠ “”)<br />             行分割 ＝ 分割文本 (行数据 [下标], “ ”, )<br />             .如果真 (取数组成员数 (行分割) ≥ 7)<br />                 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />                 索引 ＝ 超级列表框3.插入表项 (, , , , , )<br />                 .判断开始 (取数组成员数 (行分割) ＝ 8)<br />                     超级列表框1.置标题 (索引, 0, 行分割 [1])<br />                     超级列表框3.置标题 (索引, 0, 行分割 [1])<br />                     超级列表框1.置标题 (索引, 1, 行分割 [2])<br />                     超级列表框1.置标题 (索引, 2, 行分割 [3])<br />                     超级列表框1.置标题 (索引, 3, 行分割 [4])<br />                     超级列表框1.置标题 (索引, 4, 行分割 [5])<br />                     超级列表框1.置标题 (索引, 5, 行分割 [6])<br />                     超级列表框1.置标题 (索引, 6, 行分割 [7])<br />                     超级列表框1.置标题 (索引, 7, 行分割 [8])<br />                     超级列表框3.置标题 (索引, 1, 行分割 [2])<br />                     超级列表框3.置标题 (索引, 2, 行分割 [3])<br />                     超级列表框3.置标题 (索引, 3, 行分割 [4])<br />                     超级列表框3.置标题 (索引, 4, 行分割 [5])<br />                     超级列表框3.置标题 (索引, 5, 行分割 [6])<br />                     超级列表框3.置标题 (索引, 6, 行分割 [7])<br />                     超级列表框3.置标题 (索引, 7, 行分割 [8])<br />                 .默认<br />                     超级列表框1.置标题 (索引, 1, 行分割 [1])<br />                     超级列表框1.置标题 (索引, 2, 行分割 [2])<br />                     超级列表框1.置标题 (索引, 3, 行分割 [3])<br />                     超级列表框1.置标题 (索引, 4, 行分割 [4])<br />                     超级列表框1.置标题 (索引, 5, 行分割 [5])<br />                     超级列表框1.置标题 (索引, 6, 行分割 [6])<br />                     超级列表框1.置标题 (索引, 7, 行分割 [7])<br />                     超级列表框3.置标题 (索引, 1, 行分割 [1])<br />                     超级列表框3.置标题 (索引, 2, 行分割 [2])<br />                     超级列表框3.置标题 (索引, 3, 行分割 [3])<br />                     超级列表框3.置标题 (索引, 4, 行分割 [4])<br />                     超级列表框3.置标题 (索引, 5, 行分割 [5])<br />                     超级列表框3.置标题 (索引, 6, 行分割 [6])<br />                     超级列表框3.置标题 (索引, 7, 行分割 [7])<br />                 .判断结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()