如果将某个目录下的所有PHP程序都加上一段注释？

用目录操作函数遍历整个目录，然后用文件操作函数打开后缀名为.php或者.php3的文件，找到第一个"<?"标志，在其后面加上所需的注释。给你一段参考，我前不久写的，在指定目录下的所有html文件中找到标记<!--head end-->，然后替换掉此标记前的所有字符。FileExt($filename)为取得文件$filename的后缀名。
我这里不知如何，copy出来的中文无法显示了，也许是因为本身为英文操作系统的原因吧。抱歉。define ("_HEADER_FLAG", "<!--header end-->");
define ("_FOOTER_FLAG", "<!--footer start-->");
define ("_HEADER_HTML", "<html><head><title>&sup2;&acirc;&Ecirc;&Ocirc;&Igrave;&aelig;&raquo;&raquo;&Atilde;&iquest;&cedil;&ouml;HTML&Icirc;&Auml;&frac14;&thorn;&micro;&Auml;HEADER&FOOTER</title></head>");
define ("_FOOTER_HTML", "</BODY></HTML>");$FilePath = "c:/wamp/www/vtest/testsmarterhtml";
echo "&iquest;&ordf;&Ecirc;&frac14;&Igrave;&aelig;&raquo;&raquo;" . $FilePath . "&Iuml;&Acirc;&Euml;ù&Oacute;&ETH;html&Icirc;&Auml;&frac14;&thorn;......\n";
if (CreatHeaderFooter($FilePath)) {
echo "&Igrave;&aelig;&raquo;&raquo;&sup3;&Eacute;&sup1;&brvbar;&pound;&iexcl;\n";
}
else {
echo "&sup2;&Ugrave;×÷&Ecirc;§°&Uuml;&pound;&iexcl;\n";
}/* &ordm;&macr;&Ecirc;&yacute; CreatHeaderFooter($FilePath = null )
** &sup1;&brvbar;&Auml;&Uuml; &Igrave;&aelig;&raquo;&raquo;&cedil;&oslash;&para;¨&Auml;&iquest;&Acirc;&frac14;&Iuml;&Acirc;&Euml;ù&Oacute;&ETH;html&Icirc;&Auml;&frac14;&thorn;&micro;&Auml;header&ordm;&Iacute;footer
** &sup2;&Icirc;&Ecirc;&yacute; $FilePath &Auml;&iquest;&Acirc;&frac14;&Atilde;&ucirc;&sup3;&AElig;
** ·&micro;&raquo;&Oslash; true: &sup2;&Ugrave;×÷&sup3;&Eacute;&sup1;&brvbar;&pound;&raquo;false: &sup2;&Ugrave;×÷&Ecirc;§°&Uuml;;
*/
function CreatHeaderFooter($FilePath = null) {
$Handle = opendir($FilePath);
if ($Handle) {
while (false !== ($File = readdir($Handle))) {
if (($File != ".") && ($File != "..")) {
$File = $FilePath . "/" . $File;
if (is_dir($File)) {
CreatHeaderFooter($File);
}
else {
if (FileExt($File) == "html" || FileExt($File) == "htm") {
$FileData = file_get_contents($File);

//&cedil;&oslash;&Atilde;&iquest;&cedil;&ouml;&Icirc;&Auml;&frac14;&thorn;&Igrave;&aelig;&raquo;&raquo;header
$FileArray = explode(_HEADER_FLAG, $FileData);
$FileArray[0] = _HEADER_HTML;
$FileData = implode(_HEADER_FLAG, $FileArray);
file_put_contents($File, $FileData);

//&cedil;&oslash;&Atilde;&iquest;&cedil;&ouml;&Icirc;&Auml;&frac14;&thorn;&Igrave;&aelig;&raquo;&raquo;footer
$FileArray = explode(_FOOTER_FLAG, $FileData);
$FileArray[1] = _FOOTER_HTML;
$FileData = implode(_FOOTER_FLAG, $FileArray);
file_put_contents($File, $FileData); }
}
}
}
closedir($Handle);
return true;
}
else {
return false;
}
}/* &ordm;&macr;&Ecirc;&yacute; FileExt($FileName = null )
** &sup1;&brvbar;&Auml;&Uuml; &raquo;&ntilde;&Egrave;&iexcl;&Icirc;&Auml;&frac14;&thorn;&ordm;ó×&ordm;&Atilde;&ucirc;
** &sup2;&Icirc;&Ecirc;&yacute; $FileName &Icirc;&Auml;&frac14;&thorn;&Atilde;&ucirc;&sup3;&AElig;
** ·&micro;&raquo;&Oslash; $FileExt: &Icirc;&Auml;&frac14;&thorn;&ordm;ó×&ordm;&Atilde;&ucirc;
*/
function FileExt($FileName = null)
{
return substr(strrchr($FileName, '.'), 1);
}