下你所需,载你所想!
汇集开发技术源码资料

读在线表格内容,在基础更改的

:246.197KB :1 :2022-12-01 00:45:08

部分简介

.计次循环首 (取数组成员数 (表单内容), a)
临时文本 = 表单内容 [a]
' 编辑框1.加入文本 (表单内容 [a] + #换行符)
.如果 (文本_寻找文本 (临时文本, #表头) ≠ -1)
文本_取中间_批量 (临时文本, “”, 临时分割文本)
.计次循环首 (取数组成员数 (临时分割文本), b)
文本_取中间_批量 (临时分割文本 [b], “>”, “<”, 子文本组)
.计次循环首 (取数组成员数 (子文本组), c)
.如果真 (子文本组 [c] ≠ “”)
格子内容 = 子文本组 [c]
超级列表框1.插入列 (b, 格子内容, 取文本长度 (格子内容) × 10, , , )
调试输出 (格子内容)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
到循环尾 ()
.否则
文本_取中间_批量 (临时文本, “”, 临时分割文本)
索引 = 超级列表框1.插入表项 (, , , , , )
.计次循环首 (取数组成员数 (临时分割文本), b)
文本_取中间_批量 (临时分割文本 [b], “>”, “<”, 子文本组)
.计次循环首 (取数组成员数 (子文本组), c)
.如果真 (子文本组 [c] ≠ “”)
格子内容 = 子文本组 [c]
.如果真 (超级列表框1.取列宽 (b - 1) < 取文本长度 (格子内容) × 10)
超级列表框1.置列宽 (b - 1, 取文本长度 (格子内容) × 10)
.如果真结束
超级列表框1.置标题 (索引, b - 1, 子文本组 [c])
调试输出 (格子内容)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
.如果结束
延迟 (10)
处理事件 ()
.计次循环尾 ()

读在线表格内容,在基础更改的

热门推荐

相关文章