Solved

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

Posted on 2011-03-03
7
365 Views
Last Modified: 2012-05-11
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
Comment
Question by:helyonprime96
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 24

Expert Comment

by:jimyX
ID: 35028398
Form where you get those URLs (in a memo, text file, DB, ...)? and How different they are from each other?
0
 

Author Comment

by:helyonprime96
ID: 35028617
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
 
LVL 24

Expert Comment

by:jimyX
ID: 35028938
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
What Is Transaction Monitoring and who needs it?

Synthetic Transaction Monitoring that you need for the day to day, which ensures your business website keeps running optimally, and that there is no downtime to impact your customer experience.

 

Author Comment

by:helyonprime96
ID: 35028991
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
 
LVL 24

Accepted Solution

by:
jimyX earned 500 total points
ID: 35029053
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
 

Author Comment

by:helyonprime96
ID: 35029116
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
 

Author Closing Comment

by:helyonprime96
ID: 35029128
oooops. i re-verified results.
your solutions is the best, thanks.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A short article about a problem I had getting the GPS LocationListener working.
Whether you’re a college noob or a soon-to-be pro, these tips are sure to help you in your journey to becoming a programming ninja and stand out from the crowd.
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…
Starting up a Project

691 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question