输入:
if ckeckfile then if fReTest(listForCheck, "\b"&sFlPox&"\b") then for iArCkTemp=0 to uBound(tl_arCkFl) '--------------------------------检测恶意代码 if inStrB(1, bnFileContent, tl_arCkFl(iArCkTemp), 1)<>0 then if isArray(tl_arErrMaliceCode) then redim preserve _ tl_arErrMaliceCode(uBound(tl_arErrMaliceCode)+1) else redim tl_arErrMaliceCode(0) tl_arErrMaliceCode(uBound(tl_arErrMaliceCode))=sFlNm bFlag=false exit for end if next end if end if function fExtendObjASI(Obj, Set, sPrefix, iCount) {// shawl.qiu code : void return if(!Set) Set = []; if(!iCount) iCount = 0; if(!sPrefix) throw new Error("参数出错!"); Obj.Set = Set; Obj.Marker = sPrefix; Obj.Count = iCount; } // end function fExtendObjASI(Obj, Set, sPrefix, iCount) function fEncodeCode(Source, Obj, sPattern, sFlag) { if(!sFlag) sFlag = "g"; var Re = new RegExp(sPattern, sFlag); Source[0] = Source[0] .replace ( Re ,function($0, $1) { Obj.Set.push($1); //alert($1); return Obj.Marker+(Obj.Count++); } ); } // end function fEncodeCode(Source, Obj, sPattern)

输出:

默认空白: Space Tab | :Trim | :CleanLine | : Debug