遍历字体名称(Windows下)

[laidezhong]

要在Windows下遍历字体文件夹中的字体名称.我完全没思路啊~ 特来请教.

[penglewen]

function myreaddir($dir)   {  
  $handle=opendir($dir);  
  $i=0;  
  while($file=readdir($handle))   {  
  if   (($file!=".")and($file!=".."))   {  
  $list[$i]=$file;  
  $i=$i+1;  
  }  
  }  
  closedir($handle);    
  return   $list;  
}   
print_r(myreaddir('C:\WINDOWS\Fonts'));

[phpboy]

用readfile函数打开电脑里的字体文件夹在浏览器上显示出来，行么？

[phpboy]

[Quote=引用 1 楼 penglewen 的回复:]
PHP codefunction myreaddir($dir) {
$handle=opendir($dir);
$i=0;
while($file=readdir($handle)) {
if (($file!=".")and($file!="..")) {
$list[$i]=$file;
$i=$i+1;
}
}
closedir($handle);
return $list;
}
print_r(myreaddir('C:\WINDOWS\Fonts'));
[/Quote]
顶一下一楼，强、准、快 啊!

[laidezhong]

这么遍历出来的是文件名而非字体名称.

[fxs_2008]

function myreaddir($dir)   {  
  $handle=opendir($dir);  
  $i=0;  
  while($file=readdir($handle))   {  
  if   (($file!=".")and($file!=".."))   {  
   if(is_file($file)){
      $list[$i]=$file;  
      $i=$i+1;  
   }
  }  
  }  
  closedir($handle);    
  return   $list;  
}   
print_r(myreaddir('C:\WINDOWS\Fonts'));

[剑心永远OK]

如果下面还有字体的话，那就获取不到了么，如果不用递归~

[程序猿之殇]

递归还是要用的.

[laidezhong]

结贴.用了一个VB6,输出文本格式,然后include.