提取HTML标签 -pc6资讯

您的位置：首页 → 网页设计 → PHP技巧 → 提取HTML标签

提取HTML标签 时间：2004/11/7 3:19:00来源：本站整理作者：蓝点我要评论(0): /*********************************

*

*  作者: 徐祖宁 (唠叨)

*  邮箱: czjsz_ah@stats.gov.cn

*  开发: 2002.07

*

*

*  函数: tags

*  功能: 从文件中提取HTML标签

*

*  入口:

*  $filename 文件名

*  $tag      标签名

*  返回:

*  数组,每项为:

*   tagName    String

*   Text       String

*   Attrs      Array

*

*  示例:

*  print_r(tags("test1.htm","a"));

*  print_r("http://localhost/index.htm","img");

*

*/

function tags($filename,$tag) {

  $buffer = join("",file($filename));

  $buffer = eregi_replace("\r\n","",$buffer);

  $tagkey = sql_regcase($tag);

  $buffer = eregi_replace("<$tagkey ","\n<$tag ",$buffer);

  $ar = split("\n",$buffer);

  foreach($ar as $v) {

    if(! eregi("<$tagkey ",$v)) continue;

    eregi("<$tagkey ([^>]*)((.*)
    $p[tagName] = strtoupper($tag);

    if($regs[3])

      $p[Text] = $regs[3];

    $s = trim(eregi_replace("[ \t]+"," ",$regs[1]))." ";

    $s = eregi_replace(" *= *","=",$s);

    $a = split(" ",$s);

    for($i=0;$i
      $ch = array();

      if(eregi("=[\"']",$a[$i])) {

        $j = $i+1;

        while(!eregi("[\"']$",$a[$i])) {

          $a[$i] .= " ".$a[$j];

          unset($a[$j]);

        }

      }

    }

    foreach($a as $k) {

      $name = strtoupper(strtok($k,"="));

      $value = strtok("\0");

      if(eregi("^[\"']",$value))

        $value = substr($value,1,-1);

      if($name)

        $p[Attrs][$name] = $value;

    }

    $pp[] = $p;

  }

  return $pp;

}

?>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。