简单实用的文本分割器

简单实用的文本分割器例子。
.计次循环首 (取数组成员数 (文本组), 次数)
写到文件 (_启动窗口.保存目录框.内容 ＋ “\” ＋ 到文本 (次数) ＋ “.txt”, 到字节集 (文本组 [次数]))
调试输出 (次数)
进度条.刷新显示 ()
进度条.位置 ＝ 四舍五入 (次数 ÷ 取数组成员数 (文本组) × 100, 0)
进度条.刷新显示 ()
.计次循环尾 ()