|
楼主 |
发表于 2015-5-17 09:45:55
|
显示全部楼层
var 文件句柄 = 0
var 日志 = 数组(1,2,3,4,5,6,7,8,9,10)
功能 写日志(日志内容)
文件句柄 = 文件打开("e:\\写日志.txt")
如果(文件句柄==-1)
文件句柄 = 文件创建("e:\\写日志.txt")
如果(文件句柄==-1)
消息框("创建失败!")
返回 假
否则
文件关闭(文件句柄)
结束
结束
文件设置位置(文件句柄,"结束")
文件写入一行字符(文件句柄,日志内容)
文件关闭(文件句柄)
结束
功能 按钮0_点击()
//这里添加你要执行的代码
遍历(变量 i = 0; i <=10; i++)
写日志(日志)
等待(100)
结束
等待(50)
命令("e:\\写日志.txt",真)
结束
功能 修改文件(文件路径,类型,行号,内容)
文件句柄 = 文件打开(文件路径)
如果(文件句柄 == -1)
返回 "打开文件失败"
结束
如果(类型 == "删除")
文件删指定行("e:\\写日志.txt",行号-1)
消息框("删除成功")
否则如果(类型 == "修改")
日志[行号-1] = 内容
消息框("修改成功")
否则
消息框("没有此类型")
文件关闭(文件句柄)
结束
结束
功能 按钮1_点击()
//这里添加你要执行的代码
修改文件("e:\\写日志.txt","修改",2,"爱的")
等待(100)
命令("e:\\写日志.txt",真)
结束
功能 按钮2_点击()
//这里添加你要执行的代码
如果(文件是否存在("e:\\写日志.txt"))
文件删除("e:\\写日志.txt")
消息框("删除成功!")
否则
消息框("没有")
结束
结束 |
|