Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Парсер ключевых слов [D7, XP]


ppcumax ©   (2007-03-30 15:08:00) 

Есть ссылка

http://azazar.com/seotools/keywordtool.php?q=[КЛЮЧЕВОЕСЛОВО]&viewas=list&src=&lim=1000&secret=

помогите из выдачи вытащить ключевые слова


easy   (2007-03-30 16:50:00) [1]

а, пардон, не туда..))


easy   (2007-03-30 16:48:00) [2]


> так там все просто

тут ещё проще 8)
const
 S = ' http://azazar.com/seotools/keywordtool.php?q=[КЛЮЧЕВОЕСЛОВО]&viewas=list&src=&lim=1000&secret=';
begin
 showmessage(copy(S,pos('=',S)+1,pos('&',S)-pos('=',S)-1));
end;


McSimm_   (2007-03-30 16:31:00) [3]


> так там все просто

На самом деле в PHP это делается на порядок проще, чем вы привели :)
--
По теме - изучите функции Делфи для работы со строками. В справке.


ppcumax   (2007-03-30 15:53:00) [4]

Что-то не понял, я новичек в Делфи, не могу понять, сложно все как-то раньше на PHP писал, так там все просто

$key = $_POST['key'];
$key = str_replace(" ","+",$key);
$file = file_get_contents(' http://azazar.com/seotools/keywordtool.php?q='.trim($key).'&viewas=list&src=&lim=1000&secret=');
$file = explode(" ",$file);
$file = str_replace(""," ",$file);
$i = 0;
foreach ($file as $key)
{
  $www = strstr($key,"q=");
  $www = explode(" ",$www);
  $www = str_replace("q=","",$www);
  $www = str_replace("\"","
",$www);
     $www = str_replace("+"," ",$www);
  $fp = fopen('out.html','a');
  fwrite($fp, $www[$i]);
  fclose($fp);
}
$i++;
$azazar = file_get_contents('out.html');
echo ("$azazar");


usernot   (2007-03-30 15:43:00) [5]

Попробуй функцию copy. Судя по всему первый раз символ & встречается после ключевого слова, поетому можно использовать pos
s1:=copy(s,pos(s,'=')+1,pos(s,&))
copy копирует строку начиная з символа, заданого величиной index и копирует count символов. pos находит символ или подстроку в строке и возвращает результатом номер её начала, если ничего не нашел, тогда 0


Jeer   (2007-03-30 15:19:00) [6]

Клещи нужны ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо