|
发表于 2019-8-3 16:44:05
|
显示全部楼层
福建省泉州市
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 内容, 文本型
.局部变量 长度, 整数型
.局部变量 i, 整数型
.局部变量 文本寄存, 文本型
.局部变量 文本组, 文本型, , "0"
.局部变量 结尾文本, 文本型
.局部变量 文本A, 文本型
.局部变量 j, 整数型
' 这个脚本也就应付一下而已,如有缺陷请别喷, 用了一个 精易6.6的模块
内容 = “.......”
长度 = 取文本长度 (内容)
数组清零 (文本组)
.计次循环首 (到整数 (长度 ÷ 10000) + 1, i)
.判断开始 (取文本长度 (内容) > 10000)
文本寄存 = 取文本中间 (内容, 1, 10000)
内容 = 文本_删左边 (内容, 10000)
.默认
文本寄存 = 取文本中间 (内容, 1, 取文本长度 (内容))
内容 = 文本_删左边 (内容, 取文本长度 (内容))
.判断结束
加入成员 (文本组, 文本寄存)
.计次循环尾 ()
.计次循环首 (取数组成员数 (文本组), i)
.如果真 (取数组成员数 (文本组) ≠ i)
结尾文本 = 取文本中间 (文本组 [i], 倒找文本 (文本组 [i], #换行符, , 假), 取文本长度 (文本组 [i]))
文本组 [i] = 文本_删右边 (文本组 [i], 取文本长度 (结尾文本))
文本组 [i + 1] = 结尾文本 + 文本组 [i + 1]
.如果真结束
文本A = 分割文本 (文本组 [i], #换行符, )
.计次循环首 (取数组成员数 (文本A), j)
输出调试文本 (文本A [j]) ' 这里输出每行文本
.计次循环尾 ()
.计次循环尾 ()
|
|