文本分割到超级列表框

易语言 2020-08-29 17:59:53

文本分割到超级列表框

超级列表框1.全部删除 ()
局部_一次分割 = 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (局部_一次分割), 局部_计次1)
局部_二次分割 = 分割文本 (子文本替换 (局部_一次分割 [局部_计次1], “ ”, “ ”, , , 真), “ ”, )
.判断循环首 (取数组成员数 (局部_二次分割) > 5)
局部_一次分割 [局部_计次1] = 子文本替换 (局部_一次分割 [局部_计次1], “ ”, “ ”, , , 真)
局部_二次分割 = 分割文本 (子文本替换 (局部_一次分割 [局部_计次1], “ ”, “ ”, , , 真), “ ”, )
.判断循环尾 ()
.如果真 (取数组成员数 (局部_二次分割) ≥ 5)
局部_索引 = 超级列表框1.插入表项 (, , , , , )
.计次循环首 (5, 局部_计次)
超级列表框1.置标题 (局部_索引, 局部_计次 - 1, 局部_二次分割 [局部_计次])
.计次循环尾 ()
.如果真结束

.计次循环尾 ()