其他语言

本类阅读TOP10

·基于Solaris 开发环境的整体构思
·使用AutoMake轻松生成Makefile
·BCB数据库图像保存技术
·GNU中的Makefile
·射频芯片nRF401天线设计的分析
·iframe 的自适应高度
·BCB之Socket通信
·软件企业如何实施CMM
·入门系列--OpenGL最简单的入门
·WIN95中日志钩子(JournalRecord Hook)的使用

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
从页面中取出e-mail地址和相对链接及绝对链接的代码...

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

private string FetchPage(String url) //取页面指定URL页面的源码
 {
  String page = "null";
 try
 {
  WebClient mywc = new WebClient();
  using(Stream strm = mywc.OpenRead(url))
 {
  StreamReader sr = new StreamReader(strm);
  page = sr.ReadToEnd();
  strm.Close();
 }
 }
 catch{}
 return page;
 }

  public string GetLink(String url) //绝对链接的
  {
   String content = this.FetchPage(url);
   //Regex linkRegex=new Regex("href\\s*=\\s*(?:\"(?<1>[^\"]*)\"|(?<1>\\S+)", RegexOptions.IgnoreCase);
   //@"^\w+((-\w+)|(\.\w+))*\@\w+((\.|-)\w+)*\.\w+$";
   Regex link=new Regex(@"http://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?",RegexOptions.IgnoreCase);
   StringBuilder sb = new StringBuilder();
   MatchCollection emailmatchs = link.Matches(content);
   foreach(Match n in emailmatchs)
   {
    sb.Append(n.ToString());
    sb.Append(";");
   }
   if( sb.Length == 0 )
   {
    sb.Append("null");
   }
   return sb.ToString();
  }

public string GetEmailAddr(String url) //相对链接的
  {
   String content = this.FetchPage(url);
   //Regex linkRegex=new Regex("href\\s*=\\s*(?:\"(?<1>[^\"]*)\"|(?<1>\\S+)", RegexOptions.IgnoreCase);
   //@"^\w+((-\w+)|(\.\w+))*\@\w+((\.|-)\w+)*\.\w+$";
   Regex r=new Regex(@"\w+((-\w+)|(\.\w))*\@\w+((\.|-)\w+)*\.\w+[com|cn|com.cn|net|org|cc|uk]{1,6}",RegexOptions.IgnoreCase);
   StringBuilder sb = new StringBuilder();
   MatchCollection emailmatchs = r.Matches(content);
   foreach(Match n in emailmatchs)
   {
    sb.Append(n.ToString());
    sb.Append(";");
   }
   if( sb.Length == 0 )
    sb.Append("null");
   return sb.ToString();
  }

其中的部分代码要感我的朋友樊帆.




相关文章

相关软件