文件合并-初级程序-极语言教程

//窗体代码:

整数 窗体,内容,读写;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-428)>>1,上=(桌面.高-343)>>1;
窗体=创建窗口($100,程序.名称,"窗口标题",$10C80000,左,上,428,343,0,0,0,0);
内容=创建窗口($200,"Edit","文本框",$50010004,10,0,400,260,窗体,1,4,0);
读写=创建窗口($0,"Button","读写合并",$50000000,310,270,71,22,窗体,2,3,0);
窗体启动;读取消息
结束

 

//程序代码:

整数 文件, 长度, 位置,内存
小程序 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 单击左键{如果(参数=2)读写数据}
    否则{处理窗口(窗口,消息,参数,数据)}
结束

小程序 窗体启动
    读取消息
结束

小程序 读写数据
    文件 = 开文件("读取.exe",0)
    内存=申请内存(247900)//至少大一字节
    流定位(文件,位置,0)//指定位置
    读文件(文件,内存,247899)
    关文件(文件)

    文件 = 开文件("写入.exe",1);
    流定位(文件,位置,0)//指定写入位置
    写文件(文件,内存,247899)
    关文件(文件)
    信息框(0,"成功","写入",$20)
结束