朋友写的，我觉得比较好，批量生产HTML中使用的

 

'删除HTML
Function RemoveHTML( strText )
Dim RegEx

Set RegEx = New RegExp

RegEx.Pattern = "<[^>]*>"
RegEx.Global = True

RemoveHTML = RegEx.Replace(strText, "")
End Function

'将无HTML格式的新闻从3个“。”后分段
Function Getjhnum(str)
  if str<>"" then
     Getjhnum_SZ=split(str,"。") 
  for u=0 to Ubound(Getjhnum_SZ)-1
      if u mod 4=0 then
         strinfo=strinfo&"<p>"&Getjhnum_SZ(u)&"。</p>"
      else
      strinfo=strinfo&Getjhnum_SZ(u)&"。"
   end if
  next
  end if
  Getjhnum=strinfo
End Function

'作者太长，替换成一个人的名字
Function Returnzz(info)
   if len(info)>7 then
      Returnzz="leewen"
   else
      Returnzz=info
   end if
End Function