% 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-...
[ 查看全文 ]