从某HTML片段直接提取纯文本内容

1.
function   RemoveHTML(fString)'消除所有HTML标记,以及图片。  
  dim   re  
  set   re   =   New   RegExp  
  re.Global   =   True  
  re.IgnoreCase   =   True  
  if   not   isnull(fString)   then  
  re.Pattern   =   "<(.[^>]*)>"  
  fString   =   re.Replace(fString,"")  
  RemoveHTML   =   fString  
  end   if  
  end   function

2.
Function   titler(i)   '标题去除<>所包含的字符  
  if   not   isnull(i)   then  
  Dim   regEx,   t  
  t   =   i  
  Set   regEx   =   New   RegExp  
  regEx.Global   =   True  
  regEx.Pattern=   "<(.)+?>"  
  t   =   regEx.Replace(t,"")  
  title   =   t  
  set   regEx   =   nothing  
  end   if  
  End   Function


引用通告: 查看所有引用 | 我要引用此文章
Tags: 从某HTML片段直接提取纯文本内容
收藏到网摘:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.