玩转超级列表框第三课的自编代码

.版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

 

.子程序 _按钮1_被单击
.局部变量 表项索引, 整数型
.局部变量 循环变量2, 整数型
.局部变量 文件句柄, 整数型
.局部变量 转换后文本, 文本型
.局部变量 文本, 文本型
.局部变量 句子, 文本型, , "0"
.局部变量 句子分割, 文本型, , "0"
.局部变量 循环变量, 整数型
.局部变量 zwb

文件句柄 ＝ 打开文件 (取运行目录 () ＋ “\520礼物.txt”, , )
' 调试输出 (文件句柄)
' /*
' * 520礼物.txt必须和导入数据.e文件放在同一个文件夹里，也就是说路径必须相同。
' * 520礼物.txt后的txt扩展名不能少，否则打开不了文件
' */
文本 ＝ 读入文本 (文件句柄, )
' /*
' * 520礼物.txt文件作者加了UFT8编码，不是通用的GB2312编码，所以会是一堆乱码，如果事先不知道文件编码方式，可以用精易模块中的文件_取文本编码()这个命令获得*文件的编码形式。
' */

转换后文本 ＝ 编码_utf8到gb2312 (文本)
' /*
' * 重新定义一个文本型变量接受转换后的文本。
' */

' 调试输出 (转换后文本)
句子 ＝ 分割文本 (转换后文本, #换行符, )
' 调试输出 (取数组成员数 (句子))
.计次循环首 (取数组成员数 (句子), 循环变量)
表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
' /*
' * 使用插入表项命令，会自动在超级列表框的最下面插入表项，如果一开始没有表项，就从第一个表项开始插入，表项索引为0，然后依次增加
' */

句子分割 ＝ 分割文本 (句子 [循环变量], “|”, )
' /*
' * 句子分割变量在外部计次循环中是不断变化的，插入一个表项后，会被循环重新赋值为下一个表项代插入的内容
' */

超级列表框1.置标题 (表项索引, 0, 到文本 (循环变量))
' /*
' * 因为表项的第一个序号，不在句子分割数组中，所以要先给它赋值。
' */

' 调试输出 (句子 [循环变量])
' 调试输出 (取数组成员数 (句子分割))
.计次循环首 (取数组成员数 (句子分割), 循环变量2)

.如果真 (循环变量2 ＝ 4)
超级列表框1.置标题 (表项索引, 循环变量2, 子文本替换 (句子分割 [循环变量2], “人付款”, “”, , , 真))
到循环尾 ()
' /*
' * 如果循环变量2=4，也就是到付款人数列，需要把文本中的“人付款”去除后赋值给列，就要用子文本替换命令，返回替换好的文本后再赋值给相应的列。这个判断和赋值完成后，就不要再执行判断后的置标题语句，不然就重复置同一个列的标题，标题还被换回去了，所以要直接跳到循环尾，跳过后面的置标题语句。重新进入下一个循环。
' */

.如果真结束
超级列表框1.置标题 (表项索引, 循环变量2, 句子分割 [循环变量2])
' /*
' * 如果循环变量2不等于4，则跳过如果真，执行这句置标题命令。
' */

.计次循环尾 ()
' /*
' * 用一个内计次循环，循环插入表项的除序号外的所有列的标题。
' */

.计次循环尾 ()

.子程序 _按钮2_被单击

调试输出 (文件_取文本编码 (取运行目录 () ＋ “\520礼物.txt”))