读写文件-初级程序-极语言教程

//窗体代码:

整数 窗体,编辑,读取,写入,路径,偏移;
程序资源 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,46,22,窗体,2,3,0);
写入=创建窗口($0,"Button","写入",$50000000,360,270,50,20,窗体,3,3,0);
路径=创建窗口($200,"Edit","D:\sec.txt",$50010000,10,270,210,20,窗体,4,4,0);
偏移=创建窗口($200,"Edit","10",$50010000,230,270,70,20,窗体,5,4,0);
窗体启动;读取消息
结束
程序段 左键点击(编号)
{判断(编号)为 2 读取_点击
为 3 写入_点击
}

//程序代码:

整数 文件, 长度, 位置;文本 名称[32],内容[64];
小程序 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 单击左键{左键点击(参数)}
    否则{处理窗口(窗口,消息,参数,数据)}
结束
小程序 窗体启动

结束

程序段 读取_点击
    发送消息(路径,获取文本,32,名称)
    文件 = 开文件(名称,0)
    如果(文件<=0)信息框(0,"打开文件失败","提示",错误图标)
    否则{长度 = 文件大小(文件,0)
    位置=取控件数(窗体,4,0,0)
    流定位(文件,位置,0)
    读文件(文件,内容,64)
    发送消息(编辑,设置文本,0,内容)}
    关文件(文件)
结束

程序段 写入_点击
    发送消息(路径,获取文本,32,名称)
    文件 = 建文件(名称,0)
    如果(文件<=0)信息框(0,"打开文件失败","错误",错误图标)
    否则{长度=发送消息(编辑,获取文本,64,内容)
    位置=取控件数(窗体,4,0,0)
    流定位(文件,位置,0)
    长度=写文件(文件,内容,长度)
    格式化(内容,"%d字节",长度)
    信息框(0,内容,"写入长度",信息图标)}
    关文件(文件)
结束