Jangogo :

VB
- '获得字典对象
- Public Function GetDictObj() As Object
- On Error Resume Next
- Set GetDictObj = CreateObject("Scripting.Dictionary")
- End Function
- '获得正则表达式对象
- Public Function GetRegExpObj() As Object
- On Error Resume Next
- Set GetRegExpObj = CreateObject("VBScript_RegExp_55.RegExp")
- End Function
文档中心