超级列表框内容，自动导入txt 帮看看~~

zzz77f

  

子程序名	返回值类型	公开	备 注
账号到文本

变量名	类 型	静态	数组	备 注
ExportPath	文本型
ExportData	文本型
i	整数型

' 遍历超级列表框获取数据
计次循环首 (_软件窗口.超级列表框_中控显示.取表项数 (), i)
如果真 (ExportData ≠ “”)
ExportData ＝ ExportData ＋ #换行符
ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 4) ＋ “|”
ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 5) ＋ “|”
ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 6) ＋ “|”
ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 7) ＋ “|”
ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 8)

ExportPath ＝ 取运行目录 () ＋ “\” ＋ 到文本 (“中控账号” ＋ 取现行时间 ()) ＋ “.txt”
写到文件 (ExportPath, 到字节集 (ExportData))
计次循环尾 ()

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

.版本 2<br /> <br /> .支持库 iext<br /> <br /> <br /> <br /> .子程序 账号到文本<br /> <br /> .局部变量 ExportPath, 文本型<br /> <br /> .局部变量 ExportData, 文本型<br /> <br /> .局部变量 i, 整数型<br /> <br /> <br /> <br /> <br /> <br /> ' 遍历超级列表框获取数据<br /> <br /> .计次循环首 (_软件窗口.超级列表框_中控显示.取表项数 (), i)<br /> <br />     .如果真 (ExportData ≠ “”)<br /> <br />         ExportData ＝ ExportData ＋ #换行符<br /> <br />         ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 4) ＋ “|”<br /> <br />         ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 5) ＋ “|”<br /> <br />         ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 6) ＋ “|”<br /> <br />         ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 7) ＋ “|”<br /> <br />         ExportData ＝ ExportData ＋ _软件窗口.超级列表框_中控显示.取标题 (i － 1, 8)<br /> <br /> <br /> <br />     .如果真结束<br /> <br /> <br /> <br /> <br /> <br />     ExportPath ＝ 取运行目录 () ＋ “\” ＋ 到文本 (“中控账号” ＋ 取现行时间 ()) ＋ “.txt”<br /> <br />     写到文件 (ExportPath, 到字节集 (ExportData))<br /> <br /> .计次循环尾 ()

by029

ExportPath ＝ 取运行目录 () ＋ “\” ＋ 到文本 (“中控账号” ＋ 取现行时间 ()) ＋ “.txt”
写到文件 (ExportPath, 到字节集 (ExportData))
把这个挪到循环外面