通信人家园

 找回密码
 注册

只需一步,快速开始

短信验证,便捷登录

搜索

军衔等级:

  中士

注册:2009-6-25
跳转到指定楼层
1#
发表于 2012-1-21 20:38:34 |只看该作者 |正序浏览
摘要:本文巧妙利用微软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具有的排序、筛选等功能,简化实用、提高效率。

举报本楼

您需要登录后才可以回帖 登录 | 注册 |

手机版|C114 ( 沪ICP备12002291号-1 )|联系我们 |网站地图  

GMT+8, 2024-11-1 07:36 , Processed in 0.281208 second(s), 15 queries , Gzip On.

Copyright © 1999-2023 C114 All Rights Reserved

Discuz Licensed

回顶部