常用调试技巧系列进阶篇

阅读：403回复：0

按键学院 (列兵)

楼主 2015-06-01

常用调试技巧系列进阶篇

学会记录脚本运行信息

本文由按键学院提供技术支持

按键学院交流①群（1群已满）：376122403

按键学院交流②群（2群）：372671254

按键学院交流③群（3群）：170084238

引用

上一期小编跟大家分享了利用调试里填写关键变量名直接查看输出变量与利用输出语句直接输出相应的调试信息来判断脚本执行到哪一环节出现问题，这种方法简单易用并且主要是用于自己亲自调试脚本，但是如果是脚本长时间运行出错或者是在用户的电脑上出错或者我们希望知道我们不在的时候脚本具体操作了什么，前面的方法肯定是无法适用的，这个时候我们多希望能记录脚本整个的一个输出信息，以供我们查看后进行针对性的纠错~

那有问题来了，有没有方法能记录脚本大概的运行过程，也就是我们平常所说的生成脚本挂机日志呢？方法肯定是有的，今天小编就给大家分享三种记录脚本输出信息以供之后查看脚本运行状态的方法

方法1—WriteFileEx(写入文本文件）

命令名称 WriteFileEx 写入文件
命令功能向目标文本文件写入文本内容（注：文本文件是指文件后缀名为.txt的文件）
命令参数参数1 字符串型，目标文件路径
参数2 字符串型，写入文本内容
返回值无

使用WriteFileEx向某文档写入日志信息的小代码例子

复制代码
[align=left]
FileName = "C:\脚本日志.txt"//路径和日志名字可自定义[/blockquote]
Call 输出日志("这是第一条测试用的脚本日志")
Delay 1000
Call 输出日志("这是第二条测试用的脚本日志")
Sub 输出日志(内容)
Call Plugin.File.WriteFileEx(FileName, Now()& "： "&内容)//这边有加上执行该命令相应的系统时间
End Sub[blockquote]

方法2—WriteINI (写入配置文件）

命令名称	WriteINI 写入键值
命令功能	向配置文件里写一个键值（注：配置文件是指文件后缀名为.INI的文件）
命令参数	参数1 字符串型，小节名参数2 字符串型，键值参数3 字符串型，写入内容参数4 字符串型，INI文件路径
返回值	无

■  怎么理解命令中的参数：小节名、键值呢？
        小节名用于分类，例如：要记录很多帐号和密码，那么帐号可以算作一类，密码是一类：
        [帐号]
        [密码]

        键值是类中的成员，例如：第一个帐号，第二个帐号   第一个密码，第二个密码：
        [帐号]
        第一个帐号=123456
        第二个帐号=345678
        [密码]
        第一个密码=111111
        第二个密码=111111

  ■ 也不是强制这么分类，小节名和键值的主要作用是为了标识你存放的信息，只要你知道你写入ini文件的时候，把你的信息写到什么位置，下次读取的时候知道在什么位置读取就可以了。

使用WriteINI向某配置文件写入日志信息的小代码例子

复制代码
FileName = "C:\脚本日志2.ini"//路径和日志名字可自定义[/blockquote]
Call 输出日志("这是第一条测试用的脚本日志")
Delay 1000
Call 输出日志("这是第二条测试用的脚本日志")
Sub 输出日志(内容)
Call Plugin.File.WriteINI("日志", now, 内容, FileName)
End Sub[blockquote]

方法3—创建FileSystemObject 对象

对于FileSystemObject 对象不大了解的童鞋可参考【院刊】-【201505期】都速度进来找个对象吧~~

使用FileSystemObject 对象向某文件写入日志信息的小代码例子

复制代码
FileName = "C:\脚本日志3.txt"//路径和名字可自定义[/blockquote]
Set File = CreateObject("Scripting.FileSystemObject")
Set F1 =File.CreateTextFile(FileName,True)
Call 输出日志("这是第一条测试用的脚本日志")
Delay 1000
Call 输出日志("这是第二条测试用的脚本日志")
Sub 输出日志(内容)
F1.WriteLine (now() & " " & 内容)
End Sub[blockquote]

分享与拓展

其实按键logstrat命令自带记录日志功能，但是这个命令记录的只能是脚本里的traceprint语句输出的信息，并且受线程的影响，这边就不具体介绍了，有兴趣的童鞋可以参考按键自带的命令帮助，上面写的已经比较清楚了
下面分享一个在qui界面列表框里显示脚本日志，并可以点击按钮保存脚本日志的代码（可能有的童鞋之前已经看过了）

复制代码
[align=left]Dimenv 日志_最大数量[/align]
Dimenv 日志_当前内容
Dimenv 日志_全部内容
Sub 初始化日志(max)
    日志_最大数量 = max - 1
    日志_当前内容 = ""
    日志_全部内容 = ""
End Sub
Sub 添加日志(text)
    日志_全部内容 = 日志_全部内容 & text & VBCRLF
    If 日志_当前内容 = "" Then
        日志_当前内容 = text
    Else
        日志_当前内容 = 日志_当前内容 & "|" & text
    End If
    日志_临时数组 = Split(日志_当前内容, "|")
    日志_当前内容 = ""
    For i = UBound(日志_临时数组) To UBound(日志_临时数组) - 日志_最大数量 Step - 1
        If i >= 0 Then
            日志_当前内容 = 日志_临时数组(i) & "|" & 日志_当前内容
        End If
    Next
    日志_当前内容 = Left(日志_当前内容, Len(日志_当前内容) - 1)
End Sub
Sub 保存日志(path)
    Dim fso, fobj
    Set fso = CreateObject("scripting.FileSystemObject")
    Set fobj = fso.OpenTextFile(path, 2, True)
    fobj.Write 日志_全部内容
    fobj.Close
    Set fobj = Nothing
    Set fso = Nothing
End Sub

具体是如何运用的呢？大家可以根据自己的需求进行调用啦，

小编这边拉几个控件、写几个控件事件稍微演示下

控件事件

复制代码
//添加控件进行测试[/blockquote]
Event Form2.Button1.Click
    累加 = 累加 + 1
    添加日志 "这是一条日志，" & 累加
    Form2.ListBox1.List = 日志_当前内容
End Event
Event Form2.Load
    Call 初始化日志(5)//这边可以设置显示日志的条数
End Event
Event Form2.Button2.Click
    保存日志 "c:\123.txt"//保存路径及名称可自定义
End Event[blockquote]

演示

今天这期跟大家介绍了把脚本输出信息记录到文档里的几个小方法，下期可能跟大家讲一下如何用大漠写屏命令显示脚本运行信息，新人发帖不容易，望大家多多关照,多回复支持下哈~

另外调试时常出现的几种错误可以参考

【院刊】-【201408期】调试三天，气到吐血的【代码常见错误】

关于ini写入、读取文件的拓展
【院刊】-【201412期】游戏掉线重连-ini写入读取帐号密码

院刊总目录

[ 此帖被按键学院在2015-06-01 16:54重新编辑 ]

倒序阅读只看楼主

点击查看更多

命令名称	WriteFileEx 写入文件
命令功能	向目标文本文件写入文本内容（注：文本文件是指文件后缀名为.txt的文件）
命令参数	参数1 字符串型，目标文件路径参数2 字符串型，写入文本内容
返回值	无