txt分割超出数组引用范围

fs2000

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

拖放对象1.注册拖放控件 (窗口1.取窗口句柄 ())

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

变量名	类 型	静态	数组	备 注
文本	文本型

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

如果 (信息框 (“导入位于临时目录的账号文本 请选 [是]” ＋ #换行符 ＋ “自己选文本 请选 [否]”, #询问图标 ＋ #确认钮 ＋ #是否钮, “哪里?”, 窗口1) ＝ #是钮 )
导入生成到临时目录的文本 ()
自己选文本 ()

子程序名	返回值类型	公开	备 注
自己选文本

变量名	类 型	静态	数组	备 注
文本	文本型
第一次分割	文本型		0
第二次分割	文本型		6
N	整数型
索引	整数型

通用对话框1.初始目录 ＝ 取特定目录 (3)
通用对话框1.标题 ＝ “请选择欲导入的文本”
如果真 (通用对话框1.打开 () ＝ 真)
文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))
如果真 (文本 ＝ “”)
信息框 (“请选择txt文本!”, #错误图标 ＋ 0, “这样是不对的哦”, 窗口1)
返回 ()
如果真 (寻找文本 (文本, “|”, , 假) ＝ -1)
信息框 (“仅支持用|分割”, #错误图标 ＋ 0, “这样是不对的哦”, 窗口1)
返回 ()
第一次分割 ＝ 分割文本 (文本, #换行符, )
计次循环首 (取数组成员数 (第一次分割), N)
第二次分割 ＝ 分割文本 (第一次分割 [N], “|”, )
如果真 (取数组成员数 (第二次分割) ＝ 6)
索引 ＝ 超级列表框1.插入表项 (, 到文本 (N), , , , )
超级列表框1.置标题 (索引, 1, 第二次分割 [1])
超级列表框1.置标题 (索引, 2, 第二次分割 [2])
超级列表框1.置标题 (索引, 3, 第二次分割 [3])
超级列表框1.置标题 (索引, 4, 第二次分割 [4])
超级列表框1.置标题 (索引, 5, 第二次分割 [5])
超级列表框1.置标题 (索引, 6, 第二次分割 [6])

计次循环尾 ()
信息框 (“账号文本导入完毕!”, #信息图标 ＋ 0, , 窗口1)

子程序名	返回值类型	公开	备 注
导入生成到临时目录的文本

变量名	类 型	静态	数组	备 注
文本	文本型
第一次分割	文本型		0
第二次分割	文本型		6
N	整数型
索引	整数型

文本 ＝ 到文本 (读入文件 (取特定目录 (11)))
第一次分割 ＝ 分割文本 (文本, #换行符, )
计次循环首 (取数组成员数 (第一次分割), N)
第二次分割 ＝ 分割文本 (第一次分割 [N], “|”, )
如果真 (取数组成员数 (第二次分割) ＝ 6)
索引 ＝ 超级列表框1.插入表项 (, 到文本 (N), , , , )
超级列表框1.置标题 (索引, 1, 第二次分割 [1])
超级列表框1.置标题 (索引, 2, 第二次分割 [2])
超级列表框1.置标题 (索引, 3, 第二次分割 [3])
超级列表框1.置标题 (索引, 4, 第二次分割 [4])
超级列表框1.置标题 (索引, 5, 第二次分割 [5])
超级列表框1.置标题 (索引, 6, 第二次分割 [6])

计次循环尾 ()
信息框 (“账号文本导入完毕!”, #信息图标 ＋ 0, , 窗口1)

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

变量名	类 型	静态	数组	备 注
文本	文本型
N	整数型

如果真 (超级列表框1.取表项数 () ＝ 0)
信息框 (“超级列表框还是空的哦!”, #错误图标 ＋ 0, , )
返回 ()
计次循环首 (超级列表框1.取表项数 (), N)
文本 ＝ 文本 ＋ 超级列表框1.取标题 (N － 1, 1) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 2) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 3) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 4) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 5) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 6) ＋ #换行符
计次循环尾 ()
通用对话框1.初始目录 ＝ 取特定目录 (3)
通用对话框1.标题 ＝ “请输入欲导出的文本文件名”
通用对话框1.类型 ＝ 1
如果 (通用对话框1.打开 () ＝ 真)
如果 (写到文件 (通用对话框1.文件名, 到字节集 (文本)) ＝ 真)
信息框 (“账号导出成功!”, 0, , 窗口1)
信息框 (“账号导出失败...”, 0, , 窗口1)

信息框 (“账号导出失败”, 0, , 窗口1)

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

变量名	类 型	静态	数组	备 注
N	整数型

计次循环首 (超级列表框1.取表项数 (), N)
超级列表框1.置状态图片 (N － 1, 1)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
N	整数型

计次循环首 (超级列表框1.取表项数 (), N)
如果 (超级列表框1.取当前状态图片 (N － 1) ＝ 0)
超级列表框1.置状态图片 (N － 1, 1)
超级列表框1.置状态图片 (N － 1, 0)

计次循环尾 ()

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

超级列表框排序 (超级列表框1, 1, , 0, , 假)

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

超级列表框排序 (超级列表框1, 1, , 0, , 真)

子程序名	返回值类型	公开	备 注
_超级列表框1_表头被单击
参数名	类 型	参考	可空	数组	备 注
被单击列索引	整数型

如果真 (被单击列索引 ＝ 0)
如果 (寻找文本 (超级列表框1.取列标题 (0), “↓”, , 假) ≠ -1)
超级列表框排序 (超级列表框1, 0, , 0, , 真)
超级列表框1.置列标题 (0, “序号↑”)
超级列表框排序 (超级列表框1, 0, , 0, , 假)
超级列表框1.置列标题 (0, “序号↓”)

如果真 (被单击列索引 ＝ 1)
如果 (寻找文本 (超级列表框1.取列标题 (1), “↓”, , 假) ≠ -1)
超级列表框排序 (超级列表框1, 2, , 0, , 真)
超级列表框1.置列标题 (1, “账号↑”)
超级列表框排序 (超级列表框1, 4, , 0, , 假)
超级列表框1.置列标题 (1, “账号↓”)

如果真 (被单击列索引 ＝ 2)
如果 (寻找文本 (超级列表框1.取列标题 (2), “↓”, , 假) ≠ -1)
超级列表框排序 (超级列表框1, 2, , 1, , 真)
超级列表框1.置列标题 (2, “密码↑”)
超级列表框排序 (超级列表框1, 2, , 1, , 假)
超级列表框1.置列标题 (2, “密码↓”)

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
文本	文本型
第一次分割	文本型		0
第二次分割	文本型		6
N	整数型
索引	整数型

文本 ＝ 到文本 (读入文件 (接收到的文件路径))
如果真 (文本 ＝ “”)
信息框 (“请拖拽txt文本!”, #错误图标 ＋ 0, , 窗口1)
返回 ()
如果真 (寻找文本 (文本, “|”, , 假) ＝ -1)
信息框 (“仅支持用|分割”, #错误图标 ＋ 0, , 窗口1)
返回 ()
第一次分割 ＝ 分割文本 (文本, #换行符, )
计次循环首 (取数组成员数 (第一次分割), N)
第二次分割 ＝ 分割文本 (第一次分割 [N], “|”, )
索引 ＝ 超级列表框1.插入表项 (, 到文本 (N), , , , )
超级列表框1.置标题 (索引, 1, 第二次分割 [1])
超级列表框1.置标题 (索引, 2, 第二次分割 [2])
超级列表框1.置标题 (索引, 3, 第二次分割 [3])
超级列表框1.置标题 (索引, 4, 第二次分割 [4])
超级列表框1.置标题 (索引, 5, 第二次分割 [5])
超级列表框1.置标题 (索引, 6, 第二次分割 [6])
计次循环尾 ()
信息框 (“账号文本导入完毕!”, #信息图标 ＋ 0, , 窗口1)

子程序名	返回值类型	公开	备 注
二分查找	整数型
参数名	类 型	参考	可空	数组	备 注
数组	文本型
待查	文本型
类型	整数型
区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
K	整数型
M	整数型
J	整数型
数值A	双精度小数型
数值B	双精度小数型
文本	文本型

K ＝ 1
M ＝ 取数组成员数 (数组)
如果真 (M ＝ 0)
返回 (1)
判断 (类型 ＝ 0)
数值A ＝ 到数值 (待查)
如果真 (数值A ≥ 到数值 (数组 [M]))
返回 (M ＋ 1)
如果真 (数值A ≤ 到数值 (数组 [1]))
返回 (1)
判断循环首 (K ＜ M － 1)
J ＝ (K ＋ M) ＼ 2
数值B ＝ 到数值 (数组 [J])
如果真 (数值A ＝ 数值B)
K ＝ J
跳出循环 ()
如果 (数值A ＜ 数值B)
M ＝ J
K ＝ J

判断循环尾 ()
判断 (类型 ＝ 1)
如果真 (文本比较 (待查, 数组 [M], 区分大小写) ≥ 0)
返回 (M ＋ 1)
如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)
返回 (1)
判断循环首 (K ＜ M － 1)
J ＝ (K ＋ M) ＼ 2
如果真 (文本比较 (待查, 数组 [J], 区分大小写) ＝ 0)
K ＝ J
跳出循环 ()
如果 (文本比较 (待查, 数组 [J], 区分大小写) ＜ 0)
M ＝ J
K ＝ J

判断循环尾 ()
判断 (类型 ＝ 2)
数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型 )
如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [M])), #双精度小数型 ))
返回 (M ＋ 1)
如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型 ))
返回 (1)
判断循环首 (K ＜ M － 1)
J ＝ (K ＋ M) ＼ 2
数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [J])), #双精度小数型 )
如果真 (数值A ＝ 数值B)
K ＝ J
跳出循环 ()
如果 (数值A ＜ 数值B)
M ＝ J
K ＝ J

判断循环尾 ()


返回 (K ＋ 1)

子程序名	返回值类型	公开	备 注
超级列表框排序	整数型		返回排序时间,选中后排序还选中，必须项目数值不为0 没有默认为1
参数名	类 型	参考	可空	数组	备 注
对象	超级列表框
列索引	整数型				索引值从 0 开始。
实际数据	文本型				格式 {“今天:0”,“明天:1”}    # iiiou添加该参数
类型	整数型				0=数值;1=文本;2=日期时间;3=逻辑;4=图片索引   # iiiou添加类型4
区分大小写	逻辑型				真为区分,默认为真
排序方式	逻辑型				真为小到大,默认为真

变量名	类 型	静态	数组	备 注
排序时间	整数型
排序变量	文本型		0
序号数组	整数型		0
表项数值	整数型		0
图片数组	整数型		0	# iiiou添加
状态图片	整数型		0	# iiiou添加
变量	整数型
数据	文本型
列数	整数型
行数	整数型
单元数	整数型
选中项	整数型
i				# iiiou添加

排序时间 ＝ 取启动时间 ()
类型 ＝ 选择 (类型 ≥ 0 且 类型 ≤ 4, 类型, 1)
区分大小写 ＝ 选择 (是否为空 (区分大小写), 真, 区分大小写)
排序方式 ＝ 选择 (是否为空 (排序方式), 真, 排序方式)
如果真 (对象.现行选中项 ≠ -1)
如果真 (对象.取表项数值 (对象.现行选中项) ＝ 0)
对象.置表项数值 (对象.现行选中项, 1)
选中项 ＝ 对象.取表项数值 (对象.现行选中项)
计次循环首 (对象.取表项数 (), 变量)
如果 (类型 ＝ 4)  ' # iiiou添加
数据 ＝ 到文本 (对象.取图片 (变量 － 1, 列索引))
数据 ＝ 删首尾空 (对象.取标题 (变量 － 1, 列索引))
计次循环首 (取数组成员数 (实际数据), i)  ' # iiiou添加
如果真 (取文本左边 (实际数据 [i], 取文本长度 (数据) ＋ 1) ＝ 数据 ＋ “:”)
数据 ＝ 子文本替换 (实际数据 [i], 数据 ＋ “:”, “”, , , 真)
跳出循环 ()
' 易语言Q群87137652
计次循环尾 ()如果 (类型 ≠ 3)
如果 (类型 ＝ 4)  ' # iiiou添加
单元数 ＝ 二分查找 (排序变量, 数据, 0, 区分大小写)
单元数 ＝ 二分查找 (排序变量, 数据, 类型, 区分大小写)
插入成员 (排序变量, 单元数, 数据)
插入成员 (序号数组, 单元数, 变量 － 1)
插入成员 (表项数值, 单元数, 对象.取表项数值 (变量 － 1))
插入成员 (状态图片, 单元数, 对象.取当前状态图片 (变量 － 1))  ' # iiiou添加
插入成员 (序号数组, 选择 (数据 ＝ “假”, 变量, 1), 变量 － 1)
插入成员 (表项数值, 选择 (数据 ＝ “假”, 变量, 1), 对象.取表项数值 (变量 － 1))
插入成员 (状态图片, 选择 (数据 ＝ “假”, 变量, 1), 对象.取当前状态图片 (变量 － 1))  ' # iiiou添加
' 易语言Q群87137652
计次循环尾 ()
列数 ＝ 对象.取列数 ()
行数 ＝ 取数组成员数 (序号数组)
单元数 ＝ 行数 × 列数
重定义数组 (排序变量, 假, 单元数)
重定义数组 (图片数组, 假, 单元数)  ' # iiiou添加
计次循环首 (单元数, 变量)
排序变量 [变量] ＝ 对象.取标题 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)
图片数组 [变量] ＝ 对象.取图片 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)  ' # iiiou添加
计次循环尾 ()
计次循环首 (单元数, 变量)
对象.置标题 ( (变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 排序变量 [变量])
对象.置表项数值 ( (变量 － 1) ＼ 列数, 表项数值 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)])  ' 本来加个判断的,算啦,为了提高速度,多重复置表项数值几次吧:)
如果真 (图片数组 [变量] ≠ -1)
对象.置图片 ( (变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 图片数组 [变量])  ' # iiiou添加
如果真 (状态图片 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)] ≠ -1)
对象.置状态图片 ( (变量 － 1) ＼ 列数, 状态图片 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)])  ' # iiiou添加

计次循环尾 ()
如果真 (选中项 ≠ 0)
计次循环首 (对象.取表项数 (), 变量)
如果真 (对象.取表项数值 (变量 － 1) ＝ 选中项)
对象.现行选中项 ＝ 变量 － 1
对象.保证显示 (变量 － 1)
跳出循环 ()

计次循环尾 ()
返回 (取启动时间 () － 排序时间)

子程序名	返回值类型	公开	备 注
_删除选中_被选择

变量名	类 型	静态	数组	备 注
A	整数型

计次循环首 (超级列表框1.取表项数 (), )
A ＝ A ＋ 1
如果真 (超级列表框1.取当前状态图片 (A － 1) ＝ 1)
超级列表框1.删除表项 (A － 1)
A ＝ A － 1

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

弹出菜单 (右键菜单, , )

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

变量名	类 型	静态	数组	备 注
N	整数型

N ＝ 到整数 (编辑框_跳到.内容) － 1
超级列表框1.保证显示 (N)
超级列表框1.选择表项 (N)

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

变量名	类 型	静态	数组	备 注
N	整数型

N ＝ 超级列表框1.查找表项 (编辑框_关键字.内容, , 假, -1)
超级列表框1.保证显示 (N)
超级列表框1.选择表项 (N)

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

变量名	类 型	静态	数组	备 注
索引	整数型

写到文件 (取运行目录 () ＋ “\1.txt”, 读入文件 (取运行目录 () ＋ “\1.txt”) ＋ 到字节集 (编辑框_账号.内容 ＋ “|” ＋ 编辑框_密码.内容 ＋ “|” ＋ 编辑框_平台.内容 ＋ “|” ＋ 编辑框_大区.内容 ＋ “|” ＋ 编辑框_等级.内容 ＋ “|” ＋ 编辑框_备注.内容 ＋ #换行符 ))
索引 ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
超级列表框1.置标题 (索引, 1, 编辑框_账号.内容)
超级列表框1.置标题 (索引, 2, 编辑框_密码.内容)
超级列表框1.置标题 (索引, 3, 编辑框_平台.内容)
超级列表框1.置标题 (索引, 4, 编辑框_大区.内容)
超级列表框1.置标题 (索引, 5, 编辑框_等级.内容)
超级列表框1.置标题 (索引, 6, 编辑框_备注.内容)
超级列表框1.保证显示 (索引)

子程序名	返回值类型	公开	备 注
_复制本行账号密码_被选择

置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “|” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2))

子程序名	返回值类型	公开	备 注
_复制本行账号_被选择

置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1))

子程序名	返回值类型	公开	备 注
_复制本行密码_被选择

置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))

子程序名	返回值类型	公开	备 注
_超级列表框1_当前表项被改变

超级列表框1.置列标题 (3, “已选择表项数” ＋ 到文本 (超级列表框1.取已选择表项数 ()))

i支持库列表	支持库注释
edroptarget	拖放支持库
shell	操作系统界面功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 edroptarget<br /> .支持库 shell<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 拖放对象1.注册拖放控件 (窗口1.取窗口句柄 ())<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果 (信息框 (“导入位于临时目录的账号文本 请选 [是]” ＋ #换行符 ＋ “自己选文本 请选 [否]”, #询问图标 ＋ #确认钮 ＋ #是否钮, “哪里?”, 窗口1) ＝ #是钮)<br />     导入生成到临时目录的文本 ()<br /> .否则<br />     自己选文本 ()<br /> .如果结束<br /> <br /> <br /> .子程序 自己选文本<br /> .局部变量 文本, 文本型<br /> .局部变量 第一次分割, 文本型, , "0"<br /> .局部变量 第二次分割, 文本型, , "6"<br /> .局部变量 N, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 通用对话框1.初始目录 ＝ 取特定目录 (3)<br /> 通用对话框1.标题 ＝ “请选择欲导入的文本”<br /> .如果真 (通用对话框1.打开 () ＝ 真)<br />     文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))<br /> .如果真结束<br /> .如果真 (文本 ＝ “”)<br />     信息框 (“请选择txt文本!”, #错误图标 ＋ 0, “这样是不对的哦”, 窗口1)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (寻找文本 (文本, “|”, , 假) ＝ -1)<br />     信息框 (“仅支持用|分割”, #错误图标 ＋ 0, “这样是不对的哦”, 窗口1)<br />     返回 ()<br /> .如果真结束<br /> 第一次分割 ＝ 分割文本 (文本, #换行符, )<br /> .计次循环首 (取数组成员数 (第一次分割), N)<br />     第二次分割 ＝ 分割文本 (第一次分割 [N], “|”, )<br />     .如果真 (取数组成员数 (第二次分割) ＝ 6)<br />         索引 ＝ 超级列表框1.插入表项 (, 到文本 (N), , , , )<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 />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 信息框 (“账号文本导入完毕!”, #信息图标 ＋ 0, , 窗口1)<br /> <br /> <br /> .子程序 导入生成到临时目录的文本<br /> .局部变量 文本, 文本型<br /> .局部变量 第一次分割, 文本型, , "0"<br /> .局部变量 第二次分割, 文本型, , "6"<br /> .局部变量 N, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 文本 ＝ 到文本 (读入文件 (取特定目录 (11)))<br /> 第一次分割 ＝ 分割文本 (文本, #换行符, )<br /> .计次循环首 (取数组成员数 (第一次分割), N)<br />     第二次分割 ＝ 分割文本 (第一次分割 [N], “|”, )<br />     .如果真 (取数组成员数 (第二次分割) ＝ 6)<br />         索引 ＝ 超级列表框1.插入表项 (, 到文本 (N), , , , )<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 /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 信息框 (“账号文本导入完毕!”, #信息图标 ＋ 0, , 窗口1)<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 N, 整数型<br /> <br /> .如果真 (超级列表框1.取表项数 () ＝ 0)<br />     信息框 (“超级列表框还是空的哦!”, #错误图标 ＋ 0, , )<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (超级列表框1.取表项数 (), N)<br />     文本 ＝ 文本 ＋ 超级列表框1.取标题 (N － 1, 1) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 2) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 3) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 4) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 5) ＋ “|” ＋ 超级列表框1.取标题 (N － 1, 6) ＋ #换行符<br /> .计次循环尾 ()<br /> 通用对话框1.初始目录 ＝ 取特定目录 (3)<br /> 通用对话框1.标题 ＝ “请输入欲导出的文本文件名”<br /> 通用对话框1.类型 ＝ 1<br /> .如果 (通用对话框1.打开 () ＝ 真)<br />     .如果 (写到文件 (通用对话框1.文件名, 到字节集 (文本)) ＝ 真)<br />         信息框 (“账号导出成功!”, 0, , 窗口1)<br />     .否则<br />         信息框 (“账号导出失败...”, 0, , 窗口1)<br />     .如果结束<br /> <br /> .否则<br />     信息框 (“账号导出失败”, 0, , 窗口1)<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮4_被单击<br /> .局部变量 N, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), N)<br />     超级列表框1.置状态图片 (N － 1, 1)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮5_被单击<br /> .局部变量 N, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), N)<br />     .如果 (超级列表框1.取当前状态图片 (N － 1) ＝ 0)<br />         超级列表框1.置状态图片 (N － 1, 1)<br />     .否则<br />         超级列表框1.置状态图片 (N － 1, 0)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮6_被单击<br /> <br /> 超级列表框排序 (超级列表框1, 1, , 0, , 假)<br /> <br /> .子程序 _按钮7_被单击<br /> <br /> 超级列表框排序 (超级列表框1, 1, , 0, , 真)<br /> <br /> .子程序 _超级列表框1_表头被单击<br /> .参数 被单击列索引, 整数型<br /> <br /> .如果真 (被单击列索引 ＝ 0)<br />     .如果 (寻找文本 (超级列表框1.取列标题 (0), “↓”, , 假) ≠ -1)<br />         超级列表框排序 (超级列表框1, 0, , 0, , 真)<br />         超级列表框1.置列标题 (0, “序号↑”)<br />     .否则<br />         超级列表框排序 (超级列表框1, 0, , 0, , 假)<br />         超级列表框1.置列标题 (0, “序号↓”)<br />     .如果结束<br /> <br /> .如果真结束<br /> .如果真 (被单击列索引 ＝ 1)<br />     .如果 (寻找文本 (超级列表框1.取列标题 (1), “↓”, , 假) ≠ -1)<br />         超级列表框排序 (超级列表框1, 2, , 0, , 真)<br />         超级列表框1.置列标题 (1, “账号↑”)<br />     .否则<br />         超级列表框排序 (超级列表框1, 4, , 0, , 假)<br />         超级列表框1.置列标题 (1, “账号↓”)<br />     .如果结束<br /> <br /> .如果真结束<br /> .如果真 (被单击列索引 ＝ 2)<br /> <br /> .如果真结束<br /> .如果 (寻找文本 (超级列表框1.取列标题 (2), “↓”, , 假) ≠ -1)<br />     超级列表框排序 (超级列表框1, 2, , 1, , 真)<br />     超级列表框1.置列标题 (2, “密码↑”)<br /> .否则<br />     超级列表框排序 (超级列表框1, 2, , 1, , 假)<br />     超级列表框1.置列标题 (2, “密码↓”)<br /> .如果结束<br /> <br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 第一次分割, 文本型, , "0"<br /> .局部变量 第二次分割, 文本型, , "6"<br /> .局部变量 N, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 文本 ＝ 到文本 (读入文件 (接收到的文件路径))<br /> .如果真 (文本 ＝ “”)<br />     信息框 (“请拖拽txt文本!”, #错误图标 ＋ 0, , 窗口1)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (寻找文本 (文本, “|”, , 假) ＝ -1)<br />     信息框 (“仅支持用|分割”, #错误图标 ＋ 0, , 窗口1)<br />     返回 ()<br /> .如果真结束<br /> 第一次分割 ＝ 分割文本 (文本, #换行符, )<br /> .计次循环首 (取数组成员数 (第一次分割), N)<br />     第二次分割 ＝ 分割文本 (第一次分割 [N], “|”, )<br />     索引 ＝ 超级列表框1.插入表项 (, 到文本 (N), , , , )<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 /> <br /> .计次循环尾 ()<br /> 信息框 (“账号文本导入完毕!”, #信息图标 ＋ 0, , 窗口1)<br /> <br /> .子程序 二分查找, 整数型, 公开<br /> .参数 数组, 文本型, 数组<br /> .参数 待查, 文本型<br /> .参数 类型, 整数型<br /> .参数 区分大小写, 逻辑型<br /> .局部变量 K, 整数型<br /> .局部变量 M, 整数型<br /> .局部变量 J, 整数型<br /> .局部变量 数值A, 双精度小数型<br /> .局部变量 数值B, 双精度小数型<br /> .局部变量 文本, 文本型<br /> <br /> K ＝ 1<br /> M ＝ 取数组成员数 (数组)<br /> .如果真 (M ＝ 0)<br />     返回 (1)<br /> .如果真结束<br /> .判断开始 (类型 ＝ 0)<br />     数值A ＝ 到数值 (待查)<br />     .如果真 (数值A ≥ 到数值 (数组 [M]))<br />         返回 (M ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 到数值 (数组 [1]))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (K ＜ M － 1)<br />         J ＝ (K ＋ M) ＼ 2<br />         数值B ＝ 到数值 (数组 [J])<br />         .如果真 (数值A ＝ 数值B)<br />             K ＝ J<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             M ＝ J<br />         .否则<br />             K ＝ J<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 1)<br />     .如果真 (文本比较 (待查, 数组 [M], 区分大小写) ≥ 0)<br />         返回 (M ＋ 1)<br />     .如果真结束<br />     .如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (K ＜ M － 1)<br />         J ＝ (K ＋ M) ＼ 2<br />         .如果真 (文本比较 (待查, 数组 [J], 区分大小写) ＝ 0)<br />             K ＝ J<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (文本比较 (待查, 数组 [J], 区分大小写) ＜ 0)<br />             M ＝ J<br />         .否则<br />             K ＝ J<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> <br /> .判断 (类型 ＝ 2)<br />     数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型)<br />     .如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [M])), #双精度小数型))<br />         返回 (M ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (K ＜ M － 1)<br />         J ＝ (K ＋ M) ＼ 2<br />         数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [J])), #双精度小数型)<br />         .如果真 (数值A ＝ 数值B)<br />             K ＝ J<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             M ＝ J<br />         .否则<br />             K ＝ J<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (K ＋ 1)<br /> <br /> .子程序 超级列表框排序, 整数型, 公开, 返回排序时间,选中后排序还选中，必须项目数值不为0 没有默认为1<br /> .参数 对象, 超级列表框<br /> .参数 列索引, 整数型, , 索引值从 0 开始。<br /> .参数 实际数据, 文本型, 可空 数组, 格式 {“今天:0”,“明天:1”}    # iiiou添加该参数<br /> .参数 类型, 整数型, 可空, 0=数值;1=文本;2=日期时间;3=逻辑;4=图片索引   # iiiou添加类型4<br /> .参数 区分大小写, 逻辑型, 可空, 真为区分,默认为真<br /> .参数 排序方式, 逻辑型, 可空, 真为小到大,默认为真<br /> .局部变量 排序时间, 整数型<br /> .局部变量 排序变量, 文本型, , "0"<br /> .局部变量 序号数组, 整数型, , "0"<br /> .局部变量 表项数值, 整数型, , "0"<br /> .局部变量 图片数组, 整数型, , "0", # iiiou添加<br /> .局部变量 状态图片, 整数型, , "0", # iiiou添加<br /> .局部变量 变量, 整数型<br /> .局部变量 数据, 文本型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 单元数, 整数型<br /> .局部变量 选中项, 整数型<br /> .局部变量 i, , , , # iiiou添加<br /> <br /> 排序时间 ＝ 取启动时间 ()<br /> 类型 ＝ 选择 (类型 ≥ 0 且 类型 ≤ 4, 类型, 1)<br /> 区分大小写 ＝ 选择 (是否为空 (区分大小写), 真, 区分大小写)<br /> 排序方式 ＝ 选择 (是否为空 (排序方式), 真, 排序方式)<br /> .如果真 (对象.现行选中项 ≠ -1)<br />     .如果真 (对象.取表项数值 (对象.现行选中项) ＝ 0)<br />         对象.置表项数值 (对象.现行选中项, 1)<br />     .如果真结束<br />     选中项 ＝ 对象.取表项数值 (对象.现行选中项)<br /> .如果真结束<br /> .计次循环首 (对象.取表项数 (), 变量)<br />     .如果 (类型 ＝ 4)  ' # iiiou添加<br />         数据 ＝ 到文本 (对象.取图片 (变量 － 1, 列索引))<br />     .否则<br />         数据 ＝ 删首尾空 (对象.取标题 (变量 － 1, 列索引))<br />     .如果结束<br />     .计次循环首 (取数组成员数 (实际数据), i)  ' # iiiou添加<br />         .如果真 (取文本左边 (实际数据 <i>, 取文本长度 (数据) ＋ 1) ＝ 数据 ＋ “:”)<br />             数据 ＝ 子文本替换 (实际数据 <i>, 数据 ＋ “:”, “”, , , 真)<br />             跳出循环 ()<br />         .如果真结束<br />         ' 易语言Q群87137652<br />     .计次循环尾 ()<br />     .如果 (类型 ≠ 3)<br />         .如果 (类型 ＝ 4)  ' # iiiou添加<br />             单元数 ＝ 二分查找 (排序变量, 数据, 0, 区分大小写)<br />         .否则<br />             单元数 ＝ 二分查找 (排序变量, 数据, 类型, 区分大小写)<br />         .如果结束<br />         插入成员 (排序变量, 单元数, 数据)<br />         插入成员 (序号数组, 单元数, 变量 － 1)<br />         插入成员 (表项数值, 单元数, 对象.取表项数值 (变量 － 1))<br />         插入成员 (状态图片, 单元数, 对象.取当前状态图片 (变量 － 1))  ' # iiiou添加<br />     .否则<br />         插入成员 (序号数组, 选择 (数据 ＝ “假”, 变量, 1), 变量 － 1)<br />         插入成员 (表项数值, 选择 (数据 ＝ “假”, 变量, 1), 对象.取表项数值 (变量 － 1))<br />         插入成员 (状态图片, 选择 (数据 ＝ “假”, 变量, 1), 对象.取当前状态图片 (变量 － 1))  ' # iiiou添加<br />     .如果结束<br />     ' 易语言Q群87137652<br /> .计次循环尾 ()<br /> 列数 ＝ 对象.取列数 ()<br /> 行数 ＝ 取数组成员数 (序号数组)<br /> 单元数 ＝ 行数 × 列数<br /> 重定义数组 (排序变量, 假, 单元数)<br /> 重定义数组 (图片数组, 假, 单元数)  ' # iiiou添加<br /> .计次循环首 (单元数, 变量)<br />     排序变量 [变量] ＝ 对象.取标题 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)<br />     图片数组 [变量] ＝ 对象.取图片 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)  ' # iiiou添加<br /> .计次循环尾 ()<br /> .计次循环首 (单元数, 变量)<br />     对象.置标题 ((变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 排序变量 [变量])<br />     对象.置表项数值 ((变量 － 1) ＼ 列数, 表项数值 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)])  ' 本来加个判断的,算啦,为了提高速度,多重复置表项数值几次吧:)<br />     .如果真 (图片数组 [变量] ≠ -1)<br />         对象.置图片 ((变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 图片数组 [变量])  ' # iiiou添加<br />     .如果真结束<br />     .如果真 (状态图片 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)] ≠ -1)<br />         对象.置状态图片 ((变量 － 1) ＼ 列数, 状态图片 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)])  ' # iiiou添加<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (选中项 ≠ 0)<br />     .计次循环首 (对象.取表项数 (), 变量)<br />         .如果真 (对象.取表项数值 (变量 － 1) ＝ 选中项)<br />             对象.现行选中项 ＝ 变量 － 1<br />             对象.保证显示 (变量 － 1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> 返回 (取启动时间 () － 排序时间)<br /> <br /> .子程序 _删除选中_被选择<br /> .局部变量 A, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), )<br />     A ＝ A ＋ 1<br />     .如果真 (超级列表框1.取当前状态图片 (A － 1) ＝ 1)<br />         超级列表框1.删除表项 (A － 1)<br />         A ＝ A － 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 弹出菜单 (右键菜单, , )<br /> <br /> .子程序 _按钮8_被单击<br /> .局部变量 N, 整数型<br /> <br /> N ＝ 到整数 (编辑框_跳到.内容) － 1<br /> 超级列表框1.保证显示 (N)<br /> 超级列表框1.选择表项 (N)<br /> <br /> .子程序 _按钮9_被单击<br /> .局部变量 N, 整数型<br /> <br /> N ＝ 超级列表框1.查找表项 (编辑框_关键字.内容, , 假, -1)<br /> 超级列表框1.保证显示 (N)<br /> 超级列表框1.选择表项 (N)<br /> <br /> .子程序 _按钮10_被单击<br /> .局部变量 索引, 整数型<br /> <br /> <br /> 写到文件 (取运行目录 () ＋ “\1.txt”, 读入文件 (取运行目录 () ＋ “\1.txt”) ＋ 到字节集 (编辑框_账号.内容 ＋ “|” ＋ 编辑框_密码.内容 ＋ “|” ＋ 编辑框_平台.内容 ＋ “|” ＋ 编辑框_大区.内容 ＋ “|” ＋ 编辑框_等级.内容 ＋ “|” ＋ 编辑框_备注.内容 ＋ #换行符))<br /> <br /> 索引 ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )<br /> 超级列表框1.置标题 (索引, 1, 编辑框_账号.内容)<br /> 超级列表框1.置标题 (索引, 2, 编辑框_密码.内容)<br /> 超级列表框1.置标题 (索引, 3, 编辑框_平台.内容)<br /> 超级列表框1.置标题 (索引, 4, 编辑框_大区.内容)<br /> 超级列表框1.置标题 (索引, 5, 编辑框_等级.内容)<br /> 超级列表框1.置标题 (索引, 6, 编辑框_备注.内容)<br /> 超级列表框1.保证显示 (索引)<br /> <br /> .子程序 _复制本行账号密码_被选择<br /> <br /> 置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “|” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2))<br /> <br /> .子程序 _复制本行账号_被选择<br /> <br /> 置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1))<br /> <br /> .子程序 _复制本行密码_被选择<br /> <br /> 置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))<br /> <br /> .子程序 _超级列表框1_当前表项被改变<br /> <br /> 超级列表框1.置列标题 (3, “已选择表项数” ＋ 到文本 (超级列表框1.取已选择表项数 ()))

txt文档字符少于6个"|"超下限
求大神帮忙
另点选序号 怎么设置批量复制

冯古屋

第二次分割 ＝ 分割文本 (第一次分割 [N], “|”, )
索引 ＝ 超级列表框1.插入表项 (, 到文本 (N), , , , )
超级列表框1.置标题 (索引, 1, 第二次分割 [1])
超级列表框1.置标题 (索引, 2, 第二次分割 [2])
超级列表框1.置标题 (索引, 3, 第二次分割 [3])
超级列表框1.置标题 (索引, 4, 第二次分割 [4])
超级列表框1.置标题 (索引, 5, 第二次分割 [5])
超级列表框1.置标题 (索引, 6, 第二次分割 [6])
像这种分割里面
你要是第二次分割的数组里面都没有6个数组，那么第二次分割[6]就会报错，
你可可以考虑弄个判断，
去取数组成员数（第二次分割）的数量是否满足条件，比如=6
如果等于，就插入表项
如果没有，那就什么都不操作

fs2000

冯古屋 发表于 2016-7-23 15:53
第二次分割 ＝ 分割文本 (第一次分割 [N], “|”, )
索引 ＝ 超级列表框1.插入表项 (, 到文本 (N), , , ,  ...

小白一个 易语言刚入手两天 拿别人的改的 判断不会。。。

韦贝贝

调用前判断啊 别直接用组数

fs2000

笨笨 发表于 2016-7-23 16:15
调用前判断啊 别直接用组数

不会 现在就是在看教程 以及乱写 慢慢学

天高任鸟飞

把第二次分割 数组后面的6直接改为0

冯古屋

fs2000 发表于 2016-7-23 15:55
小白一个 易语言刚入手两天 拿别人的改的 判断不会。。。

如果真的是新手，建议去看看数组、分割文本、超级列表框等相关内容的使用方法，现在你需要去了解一些基本的知识，不然，你的求助都是空的。

记事本！

先取数组成员数

韦贝贝

fs2000 发表于 2016-7-23 16:18
不会 现在就是在看教程 以及乱写 慢慢学

那你还是慢慢来吧  有什么不懂可以加我q52281565