ASP CutStrX 文字列インターセプト機能 (すべての HTML タグをフィルタリング) は非常に優れており、必要な場合は参照できます。次のようにコードをコピーします。
関数 CutStrX(ByVal Str,ByVal StrLen)
薄暗い l、t、c、i、r
'すべてのHTMLタグをフィルタリングします
r=新しい正規表現を設定します
r.Global=True
r.MultiLine=True
r.Pattern=(</?[A-Za-z][A-Za-z0-9]*[^>]*>)
str=r.Replace(str, )
r=何も設定しない
l=長さ(文字列)
t=0
i=1 から l まで
c=AscW(Mid(str,i,1))
c<0 または c>255 の場合、t=t+2、そうでない場合、t=t+1
IF t>=StrLen then
CutStrX=Left(Str,i)&...
出口
それ以外
カットStrX=Str
終了の場合
次
終了機能