• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 371
  • Last Modified:

How can i get the number of yahoo links in delphi?

Hello.
Please help me.
I need to create a delphi app that checks the yahoo links for a specified domain.
Please help.
How can i do it?
If everyone know, please tell me the solution.

yahoo links url : http://siteexplorer.search.yahoo.com/search?p=mail.ru&bwm=i&bwmf=s&bwmo=d

Thanks
0
helyonprime96
Asked:
helyonprime96
  • 4
  • 3
1 Solution
 
jimyXCommented:
Form where you get those URLs (in a memo, text file, DB, ...)? and How different they are from each other?
0
 
helyonprime96Author Commented:
ok... ill find a solution.

please tell me the correct procedure to find a text between :
<span class="btn">Inlinks (

and </span>


please help..
src from there : siteexplorer.search.yahoo.com/search;_ylt=A0oG7zWevm9NfeYAGR7bl8kF?p=mail.ru&bwm=i&bwmf=s&bwmo=d&b=901
0
 
jimyXCommented:
Please try this:
procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  str:=Memo1.Text;
  repeat
    delete(str,1,pos('<span class="btn">',str)+ length('<span class="btn">')-1);
    showmessage(trim(copy(str,1,pos('</span>',str)-1)));
  until pos('<span class="btn">',Str) <= 0;
end;

Open in new window

0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
helyonprime96Author Commented:
Thanks,
but can you look at the page
http://siteexplorer.search.yahoo.com/search?p=mail.ru

Please accord me 5 minutes please please... i need help.

on top are two buttons Pages (22,570,813) and Inlinks (237,839,514)

when i execute code showmessage dislpays me the pages number but i need the inlinks number.
please help, this is last question
0
 
jimyXCommented:
Try this:
procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  Str := :=Memo1.Text;
  if Pos('Inlinks (', Str) > 0 then
    begin
      delete(str,1,Pos('Inlinks (',str)+length('Inlinks (')-1);
      Showmessage(copy(str,1,pos(')',str)-1);
    end;
end;

Open in new window

0
 
helyonprime96Author Commented:
thanks very much for your help.
But the number of links value on site is 237,775,811

but program tell me this number : 15,207,187

did you know the problem?
0
 
helyonprime96Author Commented:
oooops. i re-verified results.
your solutions is the best, thanks.
0

Featured Post

Prep for the ITIL® Foundation Certification Exam

December’s Course of the Month is now available! Enroll to learn ITIL® Foundation best practices for delivering IT services effectively and efficiently.

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now