服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - 正则表达式 - 去除内容中的html

去除内容中的html

2020-07-04 17:17脚本之家 正则表达式

本文主要分享使用正则表达式去除文章中的html标签的方法,有学习正则表达式的朋友可以参考一下

  1. <% 
  2. Option Explicit 
  3.  
  4. Function stripHTML(strtext) 
  5. dim arysplit,i,j, strOutput 
  6. arysplit=split(strtext,"<"
  7.  
  8.   if len(arysplit(0))>0 then j=1 else j=0 
  9.  
  10.   for i=j to ubound(arysplit) 
  11.      if instr(arysplit(i),">") then 
  12.        arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1) 
  13.      else 
  14.        arysplit(i)="<" & arysplit(i) 
  15.      end if 
  16.   next 
  17.  
  18.   strOutput = join(arysplit, ""
  19.   strOutput = mid(strOutput, 2-j) 
  20.   strOutput = replace(strOutput,">",">"
  21.   strOutput = replace(strOutput,"<","<"
  22.  
  23.   stripHTML = strOutput 
  24. End Function 
  25.  
  26.  
  27. %> 
  28.  
  29. <form method="post" id=form1 name=form1> 
  30.   <b>Enter an HTML String:</b><br> 
  31.   <textarea name="txtHTML" cols="50" rows="8" wrap="virtual"><%=Request("txtHTML")%></textarea> 
  32.   <p> 
  33.   <input type="submit" value="Strip HTML Tags!" id=submit1 name=submit1> 
  34. </form> 
  35.  
  36. <% if Len(Request("txtHTML")) > 0 then %> 
  37.     <p><hr><p> 
  38.     <b><u>View of string <i>with no</i> HTML stripping:</u></b><br> 
  39.     <xmp> 
  40.     <%=Request("txtHTML")%> 
  41.     </xmp><p> 
  42.     <b><u>View of string <i>with</i> HTML stripping:</u></b><br> 
  43.     <pre> 
  44.     <%=StripHTML(Request("txtHTML"))%> 
  45.     </pre> 
  46. <% End If %> 

延伸 · 阅读

精彩推荐