站長資訊網
        最全最豐富的資訊網站

        過濾所有HTML代碼和CSS,JS

        復制代碼 代碼如下:
        Function RemoveHTML(strHTML)    ‘過濾HTML代碼的函數包括過濾CSS和JS

        StrHtml = Replace(StrHtml,vbCrLf,””)

        StrHtml = Replace(StrHtml,Chr(13)&Chr(10),””)

        StrHtml = Replace(StrHtml,Chr(13),””)

        StrHtml = Replace(StrHtml,Chr(10),””)

        StrHtml = Replace(StrHtml,” “,””)

        StrHtml = Replace(StrHtml,”    “,””)

         Dim objRegExp, Match, Matches 

         Set objRegExp = New Regexp

         

         objRegExp.IgnoreCase = True

         objRegExp.Global = True

         ‘取閉合的<>

         objRegExp.Pattern = “<style(.+?)/style>”

         ‘進行匹配

         Set Matches = objRegExp.Execute(strHTML)

         

         ‘ 遍歷匹配集合,并替換掉匹配的項目

         For Each Match in Matches 

         strHtml=Replace(strHTML,Match.Value,””)

         Next

          ‘取閉合的<>

         objRegExp.Pattern = “<script(.+?)/script>”

         ‘進行匹配

         Set Matches = objRegExp.Execute(strHTML)

         

         ‘ 遍歷匹配集合,并替換掉匹配的項目

         For Each Match in Matches 

         strHtml=Replace(strHTML,Match.Value,””)

         Next

          ‘取閉合的<>

         objRegExp.Pattern = “<.+?>”

         ‘進行匹配

         Set Matches = objRegExp.Execute(strHTML)

         

         ‘ 遍歷匹配集合,并替換掉匹配的項目

         For Each Match in Matches 

         strHtml=Replace(strHTML,Match.Value,””)

         Next

         RemoveHTML=strHTML

         Set objRegExp = Nothing

        End Function

        贊(0)
        分享到: 更多 (0)
        網站地圖   滬ICP備18035694號-2    滬公網安備31011702889846號
        主站蜘蛛池模板: 久久久无码精品亚洲日韩按摩 | 精品国产福利久久久| 欧美精品在线视频| 男人的天堂精品国产一区| 99久久婷婷免费国产综合精品| 国产精品宾馆在线精品酒店| 日本精品一区二区三区在线观看| 国产精品久久久99| 国产成人久久精品二区三区| 91精品国产综合久久四虎久久无码一级 | 亚洲AV永久纯肉无码精品动漫 | 久久精品国产第一区二区| 欧美精品福利在线视频| 精品久久国产一区二区三区香蕉 | 久久99热国产这有精品| 国产成人AV无码精品| 88国产精品无码一区二区三区| 51精品资源视频在线播放| 久久久久亚洲精品天堂久久久久久| 精品国产午夜肉伦伦影院| 欧美精品福利视频一区二区三区久久久精品| 91自慰精品亚洲| 精品午夜国产人人福利| 日韩国产成人精品视频| 国产精品无码无在线观看| 九九精品成人免费国产片| 欧美精品免费线视频观看视频| 日韩精品一区二区三区视频| 久久精品国产一区二区三区日韩| 亚洲一区精品中文字幕| 久久99精品久久只有精品| 国产精品综合专区中文字幕免费播放| 人妻少妇看A偷人无码精品视频| 中文字幕av日韩精品一区二区| 免费看一级毛片在线观看精品视频 | 国产精品v欧美精品v日韩| 欧美日韩精品一区二区| 久久91精品国产91久久麻豆| 久久精品一区二区三区不卡| 午夜精品免费在线观看| 国产欧美精品区一区二区三区 |