易语言 逐个分割文本

.版本 2
.支持库 spec

.子程序 _临时子程序
.局部变量 i, 整数型
.局部变量 t
.局部变量 分割后文本, 文本型
.局部变量 文本, 文本型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
t ＝ 取启动时间 ()
文本 ＝ “本名称子程序用作测试程序用，仅在开发及调 试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。”
分割后文本 ＝ 取空白文本 (取文本长度 (文本) × 2)
.计次循环首 (1000000, i)
    逐字分割 (文本, “\”, 分割后文本)
.计次循环尾 ()
t ＝ 取启动时间 () － t
调试输出 (t, 分割后文本)


.子程序 逐字分割, , 公开
.参数 文本, 文本型
.参数 分割符, 文本型, , 只能是一个字节的符号
.参数 分割后文本, 文本型

CallWindowProcA ({ 87, 139, 124, 36, 16, 49, 192, 49, 201, 138, 31, 56, 195, 116, 44, 71, 86, 139, 116, 36, 24, 138, 20, 56, 128, 250, 127, 118, 5, 136, 20, 49, 64, 65, 138, 20, 56, 136, 20, 49, 65, 136, 28, 49, 64, 65, 128, 60, 56, 0, 117, 225, 198, 4, 49, 0, 94, 95, 195, 139, 84, 36, 20, 198, 4, 17, 0, 95 }, 0, 1025, 分割符 ＋ 文本, 分割后文本)





.版本 2

.DLL命令 CallWindowProcA, 整数型, "user32.dll", "CallWindowProcA"
    .参数 字节集, 字节集
    .参数 窗口句柄, 整数型
    .参数 消息类型, 整数型
    .参数 文本, 文本型
    .参数 buf, 文本型