文本_取中间_批量 (文本, “[”, “]”, 自定义数据s)
.如果真 (取数组成员数 (自定义数据s) ＝ 0)
返回 (文本)
.如果真结束
' [时间戳]，[随机数(位数)]，[UTF-8编码(内容)]，[URL编码(内容)]
文本_取中间_批量 (文本, “[随机数(”, “)]”, 随机数位数s)
.计次循环首 (取数组成员数 (随机数位数s), i) ' 转换随机数
文本 ＝ 子文本替换 (文本, “[随机数(” ＋ 随机数位数s [i] ＋ “)]”, rand (到整数 (随机数位数s [i])), , 1, 假)
.计次循环尾 ()
表项数 ＝ 超级列表框1.取表项数 ()
.计次循环首 (表项数, i)
数值 ＝ 超级列表框1.取标题 (表项数 － i, 4) ' 从后往前删除 才不会出错
.如果真 (数值 ＝ “”)
超级列表框1.删除表项 (表项数 － i)
.如果真结束
' 源码来自詹光成个人博客 www.xcx1.com
.计次循环尾 ()
.如果 (表项数 ＝ 超级列表框1.取表项数 ()) ' 没有空数据
提示 (“没有空数据！”)
.否则
超级列表框.重新排序x ()
提示 (“处理完成。共删除” ＋ 到文本 (表项数 － 超级列表框1.取表项数 ()) ＋ “个空数据。”)
上一篇 易语言编辑框设置透明方法
下一篇 易语言DLL的编写与调用方法