用正则表达式写的HTML分离函数

函数|正则

存成.asp文件，执行，你用ASPHTTP抓内容的时候用这个很爽，当然自己要改进一下了

<%
Option Explicit

Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"

'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")

'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")

stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function

%>

<form method="post" id=form1 name=form1>
<b>Enter an HTML String:</b><br>
<textarea name="txtHTML" cols="50" rows="8" wrap="virtual"><%=Request("txtHTML")%></textarea>
<p>
<input type="submit" value="Strip HTML Tags!" id=submit1 name=submit1>
</form>

<% if Len(Request("txtHTML")) > 0 then %>
<p><hr><p>
<b><u>View of string <i>with no</i> HTML stripping:</u></b><br>
<xmp>
<%=Request("txtHTML")%>
</xmp><p>
<b><u>View of string <i>with</i> HTML stripping:</u></b><br>
<pre>
<%=StripHTML(Request("txtHTML"))%>
</pre>
<% End If %>

时间： 2024-11-16 11:39:39

用正则表达式写的HTML分离函数的相关文章

老外用正则表达式写的HTML分离函数

函数|正则 存成.asp文件,执行,你用ASPHTTP抓内容的时候用这个很爽,当然自己要改进一下了 <%Option Explicit Function stripHTML(strHTML)'Strips the HTML tags from strHTML   Dim objRegExp, strOutput  Set objRegExp = New Regexp   objRegExp.IgnoreCase = True  objRegExp.Global = True  objRegExp

用正则表达式写的HTML分离函数_应用技巧

存成.asp文件,执行,你用ASPHTTP抓内容的时候用这个很爽,当然自己要改进一下了 <% Option Explicit Function stripHTML(strHTML) 'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = 

好东西，老外用正则表达式写的HTML分离函数_正则表达式

存成.asp文件,执行,你用ASPHTTP抓内容的时候用这个很爽,当然自己要改进一下了 <%Option Explicit Function stripHTML(strHTML)'Strips the HTML tags from strHTML   Dim objRegExp, strOutput  Set objRegExp = New Regexp   objRegExp.IgnoreCase = True  objRegExp.Global = True  objRegExp.Patte

好东西，老外用正则表达式写的HTML分离函数

存成.asp文件,执行,你用ASPHTTP抓内容的时候用这个很爽,当然自己要改进一下了<%Option ExplicitFunction stripHTML(strHTML)'Strips the HTML tags from strHTML    Dim objRegExp, strOutput    Set objRegExp = New Regexp    objRegExp.IgnoreCase = True    objRegExp.Global = True    objRegExp

以前编写JSP网站时写的一些工具函数

js|函数 初学JSP时,写了一些工具函数因为不太会用JAVA下的正则表达式也只能这么写啦!发出来让大家批评批评提点意见!有几个函数不算是自己写的希望爱挑剌的朋友嘴下留情!我是新手我怕谁,脸皮不行的人水平也上不去呀.嘻嘻.. package mxzc.web.strctrl;public class StringCtrl{/********************************************public synchronized String HTMLcode(String

用PHP写的MD5加密函数

函数|加密 用PHP写的MD5加密函数 //php_md5("字符串")define("BITS_TO_A_BYTE",8);define("BYTES_TO_A_WORD",4);define("BITS_TO_A_WORD",32);$m_lOnBits=array(30);$m_l2Power=array(30); function LShift($lValue,$iShiftBits){        if ($iSh

[C++] 用Xcode来写C++程序[5] 函数的重载与模板

用Xcode来写C++程序[5] 函数的重载与模板   此节包括函数重载,隐式函数重载,函数模板,带参数函数模板   函数的重载 #include <iostream> using namespace std; int operate (int a, int b) { return (a * b); } double operate (double a, double b) { return (a / b); } int main () { int x = 5; int y = 2; doub

字符串-写了这样一个函数，为什么第一个循环中for语句会失效？

问题描述 写了这样一个函数,为什么第一个循环中for语句会失效? 求教:第一条for语句失效,这是为什么? /*函数功能:找出一个字符中相同字符子串的最大长度,暂时还不知道对不对*/ int string_search(char a[]) { int i,j; int max_len; // 相同字符子串最大长度 int every_len; // 临时存储子串长度 int all_len; // 传进来的字符串总长度 max_len = 1; all_len = strlen(a); for(

javascript-请问asp.net后台怎么调用前台写好的JavaScript函数

问题描述 请问asp.net后台怎么调用前台写好的JavaScript函数 前台 <script type="text/javascript"> $(".btn").click(function(){ is_hide(); }) function is_hide(){ $(".alert").animate({"top":"-40%"}, 300) } function is_show(){ $