aspは文章の要約機能を実現する

587 ワード

html function asp each

HTMLタグを削除することで前の部分を選択しますが、このコードはあまり完璧ではありません.後期には完璧なコードを出します.

'  html     

Function RemoveHTML(strHTML) 
Dim objRegExp, Match, Matches 
Set objRegExp = New Regexp 

objRegExp.IgnoreCase = True 
objRegExp.Global = True 

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

Ryzen 9 マシンで Docker と WSL2 のために Virtualization を有効化する

【Docker】プロセスの分離とは