孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2008年9月21日

摘要: 如判断字符串是否为空<%Public Function Validation(Pattern,string1)Dim RegExp1,Matches Set RegExp1=New RegExpRegExp1.Pattern=PatternRegExp1.IgnoreCase=TrueRegExp1.Global=TrueMatches=RegExp1.Test(string1)Validation=MatchesEnd FunctionPublic Function CheckIsEmpty(string1)CheckIsEmpty=Validation("^$", 阅读全文
posted @ 2008-09-21 09:07 孤独的猫 阅读(137) 评论(0) 推荐(0) 编辑

摘要: Sub Register(strFilePath,regMethod)Dim theFile,strFile,oShell ,exitcode Set theFile=oFs.GetFile(strFilePath) strFile=theFile.Path Set oShell=CreateObject("WScript.Shell") If regMethod="REG"then oShell.Run "C:\winnt\system32\regsvr32.exe /s" & strFile,0,False exitcod 阅读全文
posted @ 2008-09-21 08:59 孤独的猫 阅读(171) 评论(0) 推荐(0) 编辑