qianran 易语言超级列表框导入导出
2025/10/14：用易语言的次数越来越少，我这个编程启蒙老师，以后相见的机会也许越来越少了吧。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
.版本 2 .支持库 iext .子程序 超级列表框_导出 .参数 超级列表框, 超级列表框 .参数 保存文件名, 文本型 .局部变量 分隔符1, 文本型 .局部变量 分隔符2, 文本型 .局部变量 行shuj, 文本型 .局部变量 总shuj, 文本型 .局部变量 i, 整数型 .局部变量 j, 整数型 分隔符1 ＝ “@!FCSDFC#$%R” 分隔符2 ＝ “$#%V$#HG” .计次循环首 (超级列表框.取表项数 (), i) 行shuj ＝ “” .计次循环首 (超级列表框.取列数 (), j) 行shuj ＝ 行shuj ＋ 超级列表框.取标题 (i － 1, j － 1) ＋ 分隔符1 .计次循环尾 () 总shuj ＝ 总shuj ＋ 行shuj ＋ 分隔符2 .计次循环尾 () 写到文件 (保存文件名, 到字节集 (总shuj)) .子程序 超级列表框_读入 .参数 超级列表框, 超级列表框 .参数 读入文件名, 文本型 .局部变量 分隔符1, 文本型 .局部变量 分隔符2, 文本型 .局部变量 总shuj, 文本型 .局部变量 行shuj, 文本型, , "0" .局部变量 块shuj, 文本型, , "0" .局部变量 i .局部变量 o, 整数型 .局部变量 j, 整数型 分隔符1 ＝ “@!FCSDFC#$%R” 分隔符2 ＝ “$#%V$#HG” 总shuj ＝ 到文本 (读入文件 (读入文件名)) 行shuj ＝ 分割文本 (总shuj, 分隔符2, ) 超级列表框.全部删除 () .计次循环首 (取数组成员数 (行shuj), i) o ＝ 超级列表框.插入表项 (, , , , , ) 块shuj ＝ 分割文本 (行shuj <i>, 分隔符1, ) .计次循环首 (取数组成员数 (块shuj), j) 超级列表框.置标题 (o, j － 1, 块shuj [j]) .计次循环尾 () .计次循环尾 () |
