200分求一个类,无限感激

Question

要是有现成的我知道就免费给你~
要是自己编，别说200分，200RMB都不一定没人动手~

Answer 1

不过他这想法到不错，有时间我来试试。
其实就是文件操作，不难啊。也值不上RMB2000吧。

Answer 2

To: xuzuning(唠叨)上次??也有人想要这东西吗??有连接地址吗??

Answer 3

这是函数形式的，似乎也无封装成类的必要<?php
/**
  函数 explore
  说明 本函数只用于分析ie产生的收藏夹备份文件
 *//** 递归搜索函数 **/
function explore(&$array) {
  $ar = array();
  while(list(,$str) = each($array)) {
    preg_match("/<(A|H\d)(.*)>(.*)<\/\\1>(.*)$/",$str,$regs);
    $ar[] = array(tagName=>$regs[1],Text=>$regs[3],Attrs=>genAttrs($regs[2]));
    if(preg_match("|<DL>.*</DL>|",$regs[4]))
      continue;
    if(preg_match("|<DL>|",$regs[4])) {
      end($ar);
      $ar[key($ar)][sub] = explore($array);
    }
    if(preg_match("|</DL>|",$regs[4]))
      return $ar;
  }
  return $ar;
}/** 创建属性数组函数 **/
function genAttrs($str) {
  $str = trim($str);
  if(! empty($str)) {
    $str = preg_replace("/(\w+) /","\\1=\"\" ",$str);
    $str = preg_replace("/(\w+=)/","\\1>",$str);
    $str = preg_replace("/ +/",",",$str);
    $str = eval("return array($str);");
  }
  return $str;
}/** 预处理 **/
$s = join("",file('book.htm')); // 装入文件并连接成串
$s = preg_replace("/\r?\n|<p>/","",$s); // 过滤多余的标签和换行符
$s = preg_replace("/ +</","<",$s); // 过滤多余的空格
$data = split("<DT>",$s); // 按<DT>标记分割成数组，在此类文档中<DT>表示新行$data = explore($data); // 开始分析
print_r($data);
?>