孤独的猫

摘要： 如判断字符串是否为空<%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("^$", 阅读全文

摘要： 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 阅读全文