/**********************************
*
* 著者: Xu Zuning (小言)
* 電子メール: 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 = トリム(eregi_replace("[ t]+"," ",$regs[1]))." ";
$s = eregi_replace(" *= *"," =",$s);
$a = split(" ",$s);
for($i=0;$i
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(" ");
if(eregi("^["']",$value))
$value = substr( $value,1,-1);
if($name)
$p[Attrs][$name] = $value;
}
$pp[] = $p;
}
return $pp;
}
?>