%
Option Explicit
Function stripHTML(strtext)
dim arysplit,i,j, strOutput
arysplit=split(strtext,"")
  if len(arysplit(0))0 then j=1 else j=0
  for i=j to ubound(arysplit)
 if instr(arysplit(i),"") then
   arysplit(i)=mid(arysplit(i),instr(arysplit(i),"")+1)
 else
   arysplit(i)="" & arysplit(i)
 end if
  next
  strOutput = join(arysplit, "")
  strOutput = mid(strOutput, 2-j)
  strOutput = replace(strOutput,"","")
  strOutput = replace(strOutput,"","")
  stripHTML = strOutpu...[ 查看全文 ]