文本极速操作模块之分割文本

文本极速操作模块之分割文本开源。

快速文本.置内存增量 (10000000 × 4)
重定义数组 (文本长度, 假, 10000000)
.计次循环首 (10000000, i) ' 一千万数据
调试文本 ＝ 到文本 (i)
快速文本.添加 (调试文本, #换行符)
文本长度 [i] ＝ _取文本长度_ASM_地址 (调试文本)
.计次循环尾 ()
文本 ＝ 快速文本.取文本 (, ) ' 生成文本
启动时间 ＝ 取启动时间 () ' 开始分割
.计次循环首 (10000000, i)
_取定长文本 (文本, 开始位置, 文本长度 [i]) ' 这里大家可以用调试输出看下结果
开始位置 ＝ 开始位置 ＋ 文本长度 [i] ＋ 2
.计次循环尾 ()
信息框 (“一千万数据分割耗时:” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒!”, 0, , )