.计次循环首 (取数组成员数 (表单内容), 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) 处理事件 () .计次循环尾 () |