巧用宏指令验证计费

东兴

摘要：本文巧妙利用微软VB命令通过宏指令完成繁复的交换机计费验证工作，对广大华为交换机维护人员有所启迪，值得推广。
Summary： The  text  artful  using  Microsoft  VB’s  command  complete  work  that  heavy  and  complicated   exchange  charge  is  validated  through  Macroinstruction，It  has  edify  for  spacious  exchange  vindicator，be  good  for  spread.
关键词：华为交换机、宏指令、EXCEL文件、VB。
Keyword：Exchange  of  The  HuaWei、Macroinstruction、Excel file、VB

维护华为交换机，在割接用户、核查字冠或处理话费争议时经常要碰到做计费验证工作，我们常用的方法是：对主叫用户登记“计费申告=是”，然后启动话单跟踪，或者浏览申告话单，这样收集话单存盘后通过打开该文件来查看，如果通话记录过多，每张话单都要翻屏浏览很是不方便。能否将文本文件格式的话单转换成EXCEL文件，并且过滤掉不需要的内容？通过Microsoft  Excel 宏命令可以实现。
实现方法是新建一个空白EXCEL文件，利用微软VB命令录制、编辑一个新宏，话单跟踪宏命令具体如下：
Sub 宏1( )
  Dim FileName As String
  FileName = GetFileName
  FileNum = FreeFile( )                               '* GET IDLE FILE NUMBER
  Open FileName For Input As #FileNum                 '* OPEN FILE
  Dim RowCnt As Integer
  Dim Row As Integer
  Dim Column As Integer
  Dim Cnt As Integer
  F_ALL = vbNullString
  RowCnt = 0
  Worksheets("ALL").Select
  Range("A1:IV4000").Select
  Selection.ClearContents
   Do While Not EOF(FileNum)
        Line Input #FileNum, Line                      '* Read next line
        If InStr(Line, "免费标志") > 0 Then
            RowCnt = RowCnt + 1
            Worksheets("ALL").Cells(RowCnt, 1) = CStr(Mid(Line, 21, 50))
        ElseIf InStr(Line, "应答时间") > 0 Then
            Worksheets("ALL").Cells(RowCnt, 2) = CStr(Mid(Line, 21, 50))
        ElseIf InStr(Line, "话终时间") > 0 Then
            Worksheets("ALL").Cells(RowCnt, 3) = CStr(Mid(Line, 21, 50))
        ElseIf InStr(Line, "通话时长") > 0 Then
            Worksheets("ALL").Cells(RowCnt, 4) = CStr(Mid(Line, 21, 50))
        ElseIf InStr(Line, "主叫号码") > 0 Then
            Worksheets("ALL").Cells(RowCnt, 5) = CStr(Mid(Line, 21, 50))
        ElseIf InStr(Line, "被叫号码") > 0 Then
            Worksheets("ALL").Cells(RowCnt, 6) = CStr(Mid(Line, 21, 50))
        ElseIf InStr(Line, "计费情况") > 0 Then
            Worksheets("ALL").Cells(RowCnt, 7) = CStr(Mid(Line, 21, 50))
        ElseIf InStr(Line, "计费脉冲") > 0 Then
            Worksheets("ALL").Cells(RowCnt, 8) = CStr(Mid(Line, 21, 50))
        End If
    Loop
       Close #FileNum
  End Sub
  Function GetFileName() As String
Choosing File
    Dim sw As String
    Dim MSG, Style, title, Help, Ctxt, Response, MyString
    sw = "loop"
    Do While sw = "loop"
        GetFileName = vbNullString
        MSG = "######## SELECT  THE  TRAFFIC  DATA ##########"
        GetFileName = Application.GetOpenFilename("All files(*.*),*.*.", , MSG)
        If GetFileName = "False" Then
   MSG = "!!!!!!!!!!DATA IS NOT SELECTED.  DO YOU WANT TRY AGAIN????????"
            Style = vbYesNo + vbCritical + vbDefaultButton2      '* button
            title = Trafficanalize                               '* title"
            Response = MsgBox(MSG, Style, title)
            If Response <> vbYes Then
            End
            End If
        Else
            sw = "exit"
        End If
    Loop
  End Function

保存该宏后，打开录制有话单跟踪宏命令的EXCEL文件，提示“是否启用宏？”选择“启用宏”，选中“工具—>宏—>宏—>执行”，选择所收集的话单文本文件后则自动转换成所需要的EXCEL文件，举例如下。
交换机话单观察输出报告（摘取一个）：
+++    BEIYUAN        2004-05-19 13:29:40
O&M    #2169315
%%LST AMA: TP=CPN, SD=2004&04&15, ED=2004&04&20, CID=K'6736775, SA=YES;%%
RETCODE = 0  执行成功

            话单顺序号 = 117387578
              话单类型 = 详细话单
          部分记录指示 = 单个记录
          时钟变化标志 = 否
              免费标志 = 免费
              申告标志 = 申告
          集中计费标志 = 非集中计费
            信用卡标志 = 非信用卡呼叫
                付费方 = 对主叫计费
              应答时间 = 2004-04-15 01:24:50
              话终时间 = 2004-04-15 01:25:18
              通话时长 = 28
            主叫号首集 = 0
          主叫地址性质 = 用户号码
              主叫号码 = 6736775
            被叫号首集 = 0
          被叫地址性质 = 用户号码
              被叫号码 = 112
           CENTREX群号 = <NULL>
       主叫CENTREX短号 = <NULL>
       被叫CENTREX短号 = <NULL>
            入中继群号 = <NULL>
            出中继群号 = 21
          主叫设备类型 = DID_ST
          被叫设备类型 = DID_ISUP
          主叫用户类别 = 普通本地（市-市、本局用）
              呼叫类型 = 出局
              业务类型 = 本地
                原因号 = 144
              话终原因 = 主叫挂机
          呼叫中调用SS = 0 0 0 0 0 0 0
              计费情况 = 1
                  费率 = 10
              计费脉冲 = 0
                  费用 = 0
            连接号首集 = 0
      连接号码地址性质 = 用户号码
              连接号码 = 112
            计费号首集 = <NULL>
      计费号码地址性质 = 备用
              计费号码 = <NULL>
              承接业务 = 模拟呼模拟
              终端业务 = 未知
              UUS1计数 = 0
              UUS2计数 = 0
              UUS3计数 = 0

仍有后续报告输出
---    END

利用EXCEL宏命令将话单文本文件转换后的EXCEL文件如下表1所示：

免费
标志        应答时间        话终时间        通话
时长        主叫
号码        被叫号码        计费
情况        计费脉冲
免费         2004-04-15 01:24:50         2004-04-15 01:25:18        28        6736775        112        1        0
计费         2004-04-15 04:01:40         2004-04-15 04:01:41        1        6736775        121        4        2
计费         2004-04-15 04:32:03         2004-04-15 04:32:07        4        6736775        114        2        2
计费         2004-04-15 06:17:47         2004-04-15 06:17:54        7        6736775        1251        2        2
免费         2004-04-16 01:34:28         2004-04-16 01:35:32        64        6736775        1000        1        0
计费         2004-04-16 02:36:55         2004-04-16 02:37:14        19        6736775        117        2        2
免费         2004-04-16 04:49:43         2004-04-16 04:49:46        3        6736775        120        1        0
免费         2004-04-16 11:12:44         2004-04-16 11:13:04        20        6736775        200        1        0
计费         2004-04-16 14:27:04         2004-04-16 14:27:10        6        6736775        4104499        2        2

表1  转换后的EXCEL形式的话单文件

可见利用宏命令把文本格式的话单报告转化成EXCEL格式文件，筛选出“免费标志、应答时间、话终时间、通话时长、主叫号码、被叫号码、计费情况、计费脉冲”等主要内容，验证计费简单快捷、一目了然、省时省力。
抛砖引玉，对于大批量的话务统计报告、被叫字冠报告、告警信息报告、人机命令日志报告、用户数据报告等文本内容，也可以通过连续显示存盘，利用Microsoft  Excel 自带VB宏命令，将宏命令程序稍加改动转换成EXCEL文件，充分使用Excel具有的排序、筛选等功能，简化实用、提高效率。