提取HTML标签代码 - Php - 51CTO技术论坛

社区导航: 专家门诊网络技术操作系统数据库程序设计系统应用考试认证 CIO及信息化站长交流综合交流下载基地 51CTO产品服务

【设为首页 | 收藏本站】

51CTO技术论坛» Php » 提取HTML标签代码 [ 打印] [ 订阅] [ 收藏] [ 推荐给朋友] [ 本帖文本页]

论坛跳转:

fgh234
技术员

帖子 47
精华 0
无忧币 229
积分 223
阅读权限 30

注册日期 2007-8-20

最后登录 2007-8-24

离线

[查看资料] [发短消息] [Blog]

发表于:2007-8-20 16:04　　标题：提取HTML标签代码
＜上一帖 | 下一帖＞

CODE:
<?php
/*********************************
*
*  作者: 徐祖宁 (唠叨)
*  邮箱: 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(rn,,$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 ([^>]*)((.*)</$tagkey)?,$v,$regs);
$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<count($a);$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;
}

?> ;