//скрипт, который создает контент первой страницы главы
//со списком ссылок на другие страницы.
$numb1 = "";
$leks_01 = "<li><a href=\"Gl_";
$leks_02 = "_";
$leks_03 = ".html\">";
$leks_04 = "</a><br>";
//-----------------------------
// откроем файл для записи ошибок
$filename = "error.txt";
if(!($myFile = fopen($filename, "wa"))) {
print("'$filename' could not be created\n");
exit;
//-----------------------------
// откроем файл для записи списка заголовков
$filename2 = "to5/a";
if(!($myFile2 = fopen($filename2, "wa"))) {
print("'$filename2' could not be created\n");
exit;
//-----------------------------
// open directory
$myDirectoryFrom = opendir("to4");
$n=0;
// считаем в массив имена файлов из from1
while(FALSE !== ($entryName = readdir($myDirectoryFrom))) {
$n++;
// сосчитаем количество элементов в массиве
$indexLimit = count($masNameFrom);
$myDirectoryFrom2 = opendir("from2");
$n=0;
// считаем в массив имена файлов из from2
while(FALSE !== ($entryName2 = readdir($myDirectoryFrom2))) {
$n++;
//------найдем первую цифру в имени будущей ссылки
$numb1 = substr($strTemp,3,2);
//fputs($myFile, "--$numb1--" ); //проверка
//fputs($myFile, "==$strTemp==" ); //проверка
// для каждого имени файла повторим цикл
// for($index=2; $index < $indexLimit; $index++) {
// fputs($myFile, "==$strTemp==" ); //проверка
// }
//////////////////////////////////////////////////////////
// для каждого имени файла повторим цикл
for($index=2; $index < $indexLimit; $index++) {
// откроем файл для чтения
$Temp = "to4/";
$filenameFrom = "$Temp$masNameFrom[$index]";
if(!($myFileFrom = fopen($filenameFrom, "r"))) {
exit;
//---------------------------
//откроем файл для записи
$Temp1 = "to5/";
$filenameTo = "$Temp1$masNameFrom[$index]";
if(!($myFileTo = fopen($filenameTo, "w"))) {
exit;
//найдем на страницах заголовки, сохраним их в массиве
while(!feof($myFileFrom)){
$myLineQ = fgets($myFileFrom, 255);
$prim = substr_count($myLineQ,'function <SPAN CLASS="gloss">');
if($prim > 0){
$slovo = trim($slovo1);//убрать пробелы по краям строки
$slovo2 = substr($slovo, 29,-1);
$slovo3 = trim($slovo2);//убрать пробелы по краям строки
$name_script1 = strtok($slovo3,"<");//(обрез справа по пробелу)
$name_script = "$name_script1()";//(обрез справа по пробелу)
if($tempi<10) {
fputs($myFile2, $newString);
else{
fputs($myFile2, $newString);
$tempi++;
fputs($myFileTo, "$myLineQ");
// закроем файлы
fclose($myFileFrom);
fclose($myFileTo);
fputs($myFile2, "</ul type=circle>\n" ); //
// close directory
closedir($myDirectoryFrom);
fclose($myFile2);
fclose($myFile);
//--------------------------------