html转换成UBB代码

html转换成UBB代码

Function Html2Ubb(str)
 If Str<>"" And Not IsNull(Str) Then
  Dim re,tmpstr
  Set re=new RegExp
  re.IgnoreCase =True
  re.Global=True
  re.Pattern = "()":Str = re.Replace(Str,"")
  re.Pattern = "(<\/STRONG>)":Str = re.Replace(Str,"")
  re.Pattern ="()":Str = re.Replace(Str,"")
  re.Pattern ="(<\/TBODY>)":Str = re.Replace(Str,"")
  re.Pattern ="(   re.Pattern ="(TABLE>)":Str = re.Replace(Str,"table>")
  re.Pattern ="(   re.Pattern ="(TR>)":Str = re.Replace(Str,"tr>")
  re.Pattern ="(   re.Pattern ="(TD>)":Str = re.Replace(Str,"td>")
  re.Pattern ="(   re.Pattern ="(Div>)":Str = re.Replace(Str,"div>")
  re.Pattern ="(   re.Pattern ="(   re.Pattern ="(   re.Pattern ="(<\/A>)":Str = re.Replace(Str,"")
  re.Pattern ="(   re.Pattern ="(<\/FONT>)":Str = re.Replace(Str,"")
  re.Pattern = "()":Str = re.Replace(Str, "")
  re.Pattern ="(\{)":Str = re.Replace(Str,"{")
  re.Pattern ="(\})":Str = re.Replace(Str,"}")
  re.Pattern ="(\$)":Str = re.Replace(Str,"$")
  're.Pattern = "(