改名-初级程序-极语言教程

//窗体代码:

整数 窗体,列表,偏移,起始,格式,替换,标签5,扩展,刷新;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-455)>>1,上=(桌面.高-443)>>1;
窗体=创建窗口($100,程序.名称,"窗口标题",$10C80000,左,上,455,443,0,0,0,0);
列表=创建窗口($200,"listbox","",$50210081,10,10,230,390,窗体,1,9,0);
偏移=创建窗口($200,"Edit","0",$50010080,300,20,80,20,窗体,2,4,0);
起始=创建窗口($200,"Edit","1",$50010000,300,50,80,20,窗体,3,4,0);
格式=创建窗口($200,"Edit","%d",$50010080,300,80,130,20,窗体,4,4,0);
替换=创建窗口($0,"Button","替换",$50000000,320,140,60,30,窗体,5,3,0);
标签5=创建窗口($0,"Static","位置'\2'起始'\2'格式'\2'扩展名",$50000000,250,20,50,120,窗体,6,2,0);
扩展=创建窗口($200,"Edit","*.sec",$50010000,300,110,60,20,窗体,7,4,0);
刷新=创建窗口($0,"Button","刷新",$50000000,380,110,40,20,窗体,8,3,0);
窗体启动;读取消息
结束

 

//程序代码:

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
    判断(消息)为 窗口关闭 停止
    为 绘制静态 返回(0)
    为 单击左键{如果(参数=5)替换名称
        如果(参数=8)刷新显示}
    否则{处理窗口(窗口,消息,参数,数据)}
结束

小程序 窗体启动
    刷新显示
    桌面.左=窗体
    读取消息
结束
小程序 刷新显示
    文本 扩展名[16]
    取窗口字(扩展,扩展名,16)
    发送消息(列表,列表清除,0,0)
    发送消息(列表,列表文件,0,扩展名)
结束

小程序 替换名称
    整数 位置=取控件数(窗体,2,0,0)
    整数 始值=取控件数(窗体,3,0,0)
    整数 数量=发送消息(列表,列表数量,0,0)
    文本 名称[32],新名[32],内容[16]
    整数 序号=0;位置+新名
    取窗口字(格式,内容,16)
    循环(序号<数量){
    发送消息(列表,列表读取,序号,名称)
    复制文字(新名,名称)
    发送消息(列表,列表删除,序号,0)
    组合式(位置,内容,始值)
    移动文件(名称,新名)
    发送消息(列表,列表插入,序号,新名)
    序号++始值++}
结束