列表框数据导出（T4）

功能 按钮1_点击()
    //这里添加你要执行的"导出按钮"代码
    //1 创建用时间定义的文本文件
    变量 CURDATE,当前日志文件名,当前日志文件,文件句柄,采集全覆盖台区数量1,采集全覆盖台区数量2
    CURDATE=日期时间.当前日期()
    当前日志文件名="采集全覆盖台区"&日期时间.年(CURDATE)&"-"&日期时间.月(CURDATE)&"-"&日期时间.日(CURDATE)&"-"&日期时间.时(CURDATE)&日期时间.分(CURDATE)&日期时间.秒(CURDATE)&".txt"
    当前日志文件="C:\\台区线损情况统计分析工具T4\\统计结果\\"&当前日志文件名
    如果(!文件.是否存在(当前日志文件))
        //不存在指定的日志文件  
        文件句柄=文件.创建(当前日志文件,"读写")
        列表框.增加文本("日志列表框",系统.时间(3)&"：创建了")
        列表框.增加文本("日志列表框",当前日志文件名&"文件。")
        文件.末尾写入(文件句柄,系统.时间(3)&":  创建了"&当前日志文件名&"日志文件。"&"\r\n")//在文件里写入一行,内容为变量"日志内容"里的值
        辅助.等待(50)//延时等待50毫秒
        //2 将"数据统计"中的内容写入用时间定义的文本文件
        采集全覆盖台区数量1=列表框.得到个数("列表框0")
        变量 初始值,当前内容
        遍历(初始值=0;初始值<采集全覆盖台区数量1;初始值++)//设置循环,循环次数为变量"离线站点数量"的值
            当前内容=列表框.获得文本("列表框0",初始值)
            文件.末尾写入(文件句柄,当前内容&"\r\n")//在文件里写入一行,内容为变量"当前内容"里的值            
        遍历结束//遍历语句的结束语句
        采集全覆盖台区数量2=列表框.得到个数("列表框1")
        变量 初始值,当前内容
        遍历(初始值=0;初始值<采集全覆盖台区数量2;初始值++)//设置循环,循环次数为变量"离线站点数量"的值
            当前内容=列表框.获得文本("列表框1",初始值)
            文件.末尾写入(文件句柄,当前内容&"\r\n")//在文件里写入一行,内容为变量"当前内容"里的值            
        遍历结束//遍历语句的结束语句
        文件.关闭(文件句柄)//文件打开以后,需要关闭文件
    否则
        //存在指定的日志文件
    如果结束
    //辅助.命令("C:\\台区线损情况统计分析工具T4\\统计结果\\采集全覆盖台区2015-5-27-95116.txt",真)
    辅助.命令(当前日志文件,真)
功能结束