オプションは明示的です
function striphtml（strtext）
dim arysplit、i、j、stroutput
arysplit = split（strtext、 "
len（arysplit（0））> 0の場合、j = 1 else j = 0
i = j to ubund（arysplit）の場合
If strust（arysplit（i）、 ">"）から
arysplit（i）= mid（arysplit（i）、strust（arysplit（i）、 ">"）+1）
それ以外
arysplit（i）= "end if
次
stroutput = join（arysplit、 ""）
stroutput = mid（stroutput、2-j）
stroutput = cheplage（stroutput、 ">"、 ">"）
stroutput =置換（stroutput、 "
Striphtml = stroutput
エンド関数
％>
0それから％>
HTMLストライピングのない文字列のビュー：
HTMLストライピングを備えた文字列のビュー：
上記は、コンテンツ内のHTMLタグをクリアする方法に関するものです。読んでくれてありがとう。その他のコンテンツについては、Wuxin Technology ChannelのWebサイトに注意してください。