ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу Нужен простенький скрипт
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Нужен простенький скрипт
  #1  
Старый 09.03.2009, 02:11
Аватар для iSeoBot
iSeoBot
Участник форума
Регистрация: 11.04.2008
Сообщений: 279
Провел на форуме:
998892

Репутация: 217
По умолчанию Нужен простенький скрипт
Как организовать такое
есть два файла file1.txt и file2.txt c содержимым

file1.txt

Цитата:
keyword
keyword2
keyword3
file2.txt

Цитата:
<a href="http://site.com">keyword</a>
<a href="http://site.com">keyword2</a>
<a href="http://site.com">keyword3</a>
нужно зделать так чтоб скрипт брал строку из file1.txt и смотрел нет ли такого кейворда с троке файла file2.txt,если есть сохранить всю строку в file3.txt
и так пока не кончатся кейворды в файле file1.txt

Очень нужно Поставлю + и скину чисто символически вм
 
Ответить с цитированием

  #2  
Старый 09.03.2009, 02:51
Аватар для Pashkela
Pashkela
Динозавр
Регистрация: 10.01.2008
Сообщений: 2,841
Провел на форуме:
9220514

Репутация: 3338


Отправить сообщение для Pashkela с помощью ICQ
По умолчанию
PHP код:
<?php
$res = fopen('tema3.txt','w'); // Результирующий файл
$ipArray = array_map("trim", file("tema1.txt")); // Файл с кейвордами
$file2 = fopen('tema2.txt','r'); // Файл с ссылками
while (!feof($file2)) {
  $buf = trim(fgets($file2,4096));
  preg_match('|>(.*)</a>|',$buf,$out);
  if( in_array($out[1],$ipArray)) fwrite ($res,$buf . "\r\n");
} 
fclose ($res);
fclose ($file2);
?>
или так:

PHP код:
<?php
$res = fopen('tema3.txt','w'); // Результирующий файл
$ipArray = array_map("trim", file("tema1.txt")); // Файл с кейвордами
$file2 = fopen('tema2.txt','r'); // Файл с ссылками
while (!feof($file2)) {
  $buf = trim(fgets($file2,4096));
  for ($i=0;$i<count($ipArray);$i++){
    if(strpos($buf,$ipArray[$i])) {fwrite ($res,$buf . "\r\n");break;}
  }
} 
fclose ($res);
fclose ($file2);
echo 'done';
?>
или так (более правильно, не зависит от размеров памяти и размеров обоих файлов):

PHP код:
<?php

function check($str,$file1) {
 while (!feof($file1)) {
   $f =  trim(fgets($file1,4096));
   if (strpos($str,$f)) return true;
 }
 return false;  
}



$res = fopen('tema3.txt','w'); // Результирующий файл
$file2 = fopen('tema2.txt','r'); // Файл с ссылками
$file = fopen('tema1.txt','r'); // Файл с кейвордами
while (!feof($file2)) {
  $buf = trim(fgets($file2,4096));
  if(check($buf,$file)) fwrite ($res,$buf . "\r\n");
} 
fclose ($res);
fclose ($file2);
fclose($file);
echo 'done';
?>
Плюс и мани можешь оставить себе
Последний раз редактировалось Pashkela; 09.03.2009 в 03:51..
 
Ответить с цитированием

  #3  
Старый 09.03.2009, 03:10
Аватар для iSeoBot
iSeoBot
Участник форума
Регистрация: 11.04.2008
Сообщений: 279
Провел на форуме:
998892

Репутация: 217
По умолчанию
Спасибо большое!
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужен скрипт для проверки ЛС на античате Godfather Bulan PHP, PERL, MySQL, JavaScript 25 01.06.2009 15:16
Очень нужен скрипт социальной сети .. destory Социальные сети 8 24.01.2009 23:15
Нужен скрипт на Perl GrAmOzEkA Разное - Покупка, продажа, обмен 5 20.11.2006 17:47
Нужен скрипт.! w4rd3n PHP, PERL, MySQL, JavaScript 7 29.10.2005 02:00
Нужен простенький скрипт на Perl SladerNon PHP, PERL, MySQL, JavaScript 6 16.06.2005 18:17



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ