HTML を削除するための ASP 関数コード分析にはサンプルが添付されており、Script Home プログラミングによってテストされており、実際に使いやすいです。
次のコードは、ld<sad の途中にある < を置き換えないため、内容は通常のままです。
コードは次のとおりです。
<%
関数 nohtml(str)
薄暗い
re=new RegExp を設定します
re.IgnoreCase =true
re.Global=True
re.Pattern=(/<.[^/<]*/>)
str=re.replace(str, )
re.Pattern=(/<//[^/<]*/>)
str=re.replace(str, )
str=replace(str, ,)
str=replace(str, ,)
nohtml=str
re=nothing を設定する
終了関数
str=<title>sadjksjdl スクリプト ホームへようこそ sajdljsald<sadsadsad<br> 'これはテストです
応答.write nohtml(str)
%>
結果は次のとおりです。
コードは次のとおりです。
adjksjdl スクリプト ホームがあなたを歓迎します sajdljsald<sadsadsad
ただし、次のコードでは、< を参照するだけで、その背後にある無制限の一致については忘れてください。
コードは次のとおりです。
<%
関数dropHtml(Byval strHTML)
Dim objRegExp、一致、一致
objRegExp = 新しい正規表現を設定します
objRegExp.IgnoreCase = True
objRegExp.Global = True
'閉じた <> を取得します
objRegExp.Pattern = <.+?>
'マッチ
一致を設定 = objRegExp.Execute(strHTML)
' 一致するセットを走査し、一致する項目を置き換えます
試合中の各試合について
strHtml=Replace(strHTML,Match.Value,)
次
dropHtml=strHTML
objRegExp = なしを設定します
終了機能
str=<title>sadjksjdl スクリプト ホームへようこそ sajdljsald<sadsadsad<br> 'これはテストです
応答.writedropHtml(str)
%>
結果は次のとおりです。
コードは次のとおりです。
adjksjdl スクリプト ホームがあなたを歓迎します