< %
function html2ubb(l1)
if len ( trim (l1)) > 0 then
else
exit function
end if
dim l4,I1,I2,I3
dim i,I4:I4 = array ( 16 , 19 , 21 , 24 , 32 , 45 )
I1 = l1
set I2 = new regexp
I2.global = true
I2.ignorecase = true ' 忽略大小写
I2.pattern = " /r " :I1 = I2.replace(I1, "" )
I2.pattern = " on(load|click|dbclick|mouseover|mousedown|mouseup)=""[^""]+"" " :I1 = I2.replace(I1, "" )
I2.pattern = " ]*?>([wW]*?) " :I1 = I2.replace(I1, "" )
I2.pattern = " ]+href=""([^""]+)""[^>]*>(.*?) " :I1 = I2.replace(I1, " $2 " )
I2.pattern = " ]+color=([^ >]+)[^>]*>(.*?) " :I1 = I2.replace(I1, " $2 " )
I2.pattern = " ]+src=""([^""]+)""[^>]*> " :I1 = I2.replace(I1, " " )
I2.pattern = " <([/]?)b> " :I1 = I2.replace(I1, " [$1b] " )
I2.pattern = " <([/]?)strong> " :I1 = I2.replace(I1, " [$1b] " )
I2.pattern = " <([/]?)u> " :I1 = I2.replace(I1, " [$1u] " )
I2.pattern = " <([/]?)i> " :I1 = I2.replace(I1, " [$1i] " )
I2.pattern = " " :I1 = I2.replace(I1, " " )
I2.pattern = " & " :I1 = I2.replace(I1, " & " )
I2.pattern = " "":I1=I2.replace(I1,"""")
I2.pattern = " < " :I1 = I2.replace(I1, " < " )
I2.pattern = " > " :I1 = I2.replace(I1, " > " )
I2.pattern = "
" :I1 = I2.replace(I1,vbcrlf)
I2.pattern = " <[^>]*?> " :I1 = I2.replace(I1, "" )
I2.pattern = " + " :I1 = I2.replace(I1,vbcrlf)
set I2 = nothing
html2ubb = I1
end function
% >