计算机理论计算机应用 计算机网络
返回首页
当前位置: > 计算机类 > 计算机应用 >

Windows脚本部件在电话系统中的应用(3)

时间:2010-01-18 10:15来源:南粤论文中心 作者:王必友 点击:次
/method method name=getTime PARAMETER name=strRaw/ /method method name=getPeriod PARAMETER name=strRaw/ /method /public script language=VBScript ![CDATA[ function getDate(strRaw) ' 定义方法 getDate
　　
    </method>
    <method name="getTime">
        <PARAMETER name="strRaw"/>
    </method>
    <method name="getPeriod">
        <PARAMETER name="strRaw"/>
    </method>
</public>
<script language="VBScript">
<![CDATA[
function getDate(strRaw)      '定义方法getDate功能：日期转换成标准格式
    On Error Resume Next
    dim sMonth
    dim sDay
    dim sYear
   sMonth    =mid(strRaw,5,2)
    sDay =Right(strRaw,2)
    sYear    =Left(strRaw,4)
    getDate =cdate(sYear & "-" & sMonth & "-" & sDay)
end function
function getTime(strRaw)     '定义方法getTime功能：开始时间转换成标准格式
  ……
end function
function getPeriod(strRaw)  '定义方法getPeriod功能：通话时长转换成标准格式
  ……
end function
]]>
</script>
</component>
3.2 VB主程序代码片段
' sRecord        电话记录单字符串
' mStartDtStart  通话日期开始位置
' mStartDtLen    通话日期字符长度
' mStartDtCover  通话日期使用脚本部件转换标志
' mStartDtType   通话日期常见样式编号
Set mObjScript = CreateObject("Phone.WSC")   ' 创建脚本部件对象
sStartDt = Trim(mID(sRecord, mStartDtStart, mStartDtLen)) ' 截取日期字符串
If mStartDtCover = 1                       ' 判断是非使用脚本部件转换
sStartDt = mObjScript.getdate(sStartDt)  ' 调用脚本部件方法getdate转换日期
Else
Select Case mStartDtType
      Case 0
……                                 '按样式0转换日期
Case 1
……                                 '按样式1(责任编辑：南粤论文中心)
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规，严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
最新评论 进入详细评论页>>
推荐内容
热点内容
网站地图