/method method name=getTime PARAMETER name=strRaw/ /method method name=getPeriod PARAMETER name=strRaw/ /method /public script language=VBScript ![CDATA[ function getDate(strRaw) ' 定义方法 getDate
- 毕业论文定制
南粤论文中心提供本科/研究生/博士毕业论文，从提纲，开题到后期免费修改,免费指导答辩等 ，联系人：魏老师，电话：13450375436。 - 代写代发职称论文
南粤论文中心提供职称论文代写，报告总结，演讲致辞,心得体会,党团辅导等代写服务并推荐发表省级,国家级,核心杂志包发。联系QQ:631069747。
Windows脚本部件在电话系统中的应用(3)
来源：南粤论文中心 作者：王必友 发表于：2010-01-18 10:15 点击：次
【关健词】脚本部件；COM；XML；软件复用
</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
