|奔日网技术学堂欢迎您 tech.8BR.NET|

                          Else  
                                  bSearchForBlock   =   True  
                          End   If  
                           
                          If   InStr(1,   TAGLIST,   ";"   &   strTagName   &   ";",   vbTextCompare)   >   0   Then  
                                  bRemove   =   True  
                                  If   bSearchForBlock   Then  
                                          If   InStr(1,   BLOCKTAGLIST,   ";"   &   strTagName   &   ";",   vbTextCompare)   >   0   Then  
                                                  nPos2   =   Len(strText)  
                                                  nPos3   =   InStr(nPos1   +   1,   strText,   "</"   &   strTagName,   vbTextCompare)  
                                                  If   nPos3   >   0   Then  
                                                          nPos3   =   InStr(nPos3   +   1,   strText,   ">")  
                                                  End   If  
                                                   
                                                  If   nPos3   >   0   Then  
                                                          nPos2   =   nPos3  
                                                  End   If  
                                          End   If  
                                  End   If  
                          Else  
                                  bRemove   =   False  
                          End   If  
                           
                          If   bRemove   Then  
                                  strResult   =   strResult   &   Left(strText,   nPos1   -   1)  
                                  strText   =   Mid(strText,   nPos2   +   1)  
                          Else  
                                  strResult   =   strResult   &   Left(strText,   nPos1)  
                                  strText   =   Mid(strText,   nPos1   +   1)  
                          End   If  
                  Else  
                          strResult   =   strResult   &   strText  
                          strText   =   ""  
                  End   If  
                   
                  nPos1   =   InStr(strText,   "<")  
          Loop  
          strResult   =   strResult   &   strText  
           
          RemoveHTML   =   strResult  
  End   Function  

本文共2页 当前在第2页 [首页] [上一页] [下一页] [末页]  选页12

声明：此页资源均由网友维护。资源信息、网友评论，不代表本站观点。如有侵权请告知，我们立刻删除。

『热点资讯』

『最新资讯』

『网友推荐』