中文拼接测试-初级程序-极语言教程

//窗体代码:

整数 窗体,按钮1,按钮2,标签3,文档;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-399)>>1,上=(桌面.高-411)>>1;
窗体=创建窗口($100,程序.名称,"窗口标题",$14CF0064,左,上,399,411,0,0,0,0);
按钮1=创建窗口($0,"Button","生成测试",$50000000,20,10,80,30,窗体,1,3,0);
按钮2=创建窗口($0,"Button","搜索测试",$50000000,240,10,80,30,窗体,2,3,0);
标签3=创建窗口($0,"Static","先生成再搜索",$50000000,120,20,100,20,窗体,3,2,0);
文档=创建窗口($200,"Edit","",$50210044,10,40,380,340,窗体,4,4,0);
窗体启动;读取消息
结束

//程序代码:

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键{如果(参数=1)生成;如果(参数=2)搜索}
否则{处理窗口(窗口,消息,参数,数据)}
结束;整数 内容
小程序 窗体启动
内容=申请内存(1000000000)
桌面.左=窗体
读取消息
结束
小程序 生成
整数 时间=开机毫秒
清零(内容,1000000000,0#中文)
改控件数(窗体,3,开机毫秒- 时间,0)
内容(15000)=0
//截断文字,让搜索类函数失效
改窗口字(文档,内容)
内容(999999900)&=0#汉字
//把十亿字的最后100处改成汉字
结束
小程序 搜索
整数 数据,时间=开机毫秒
数据=检索(内容&,0#汉字,250000000)&
改控件数(窗体,3,开机毫秒- 时间,0)
//从头搜索10亿字节,找到最后面的汉字
改窗口字(文档,数据-4)
结束