English > Scripts and Templates

Use BING as default search result

<< < (3/6) > >>

pra15:
Thanks

Ivek23:

--- Quote from: pra15 on March 02, 2012, 02:25:48 pm ---Thanks

--- End quote ---

Welcome

Ivek23:
None of these scripts does not work anymore. There have been major changes in the search results (major changes in source code page). I tried to fix it, but without success.
Maybe someone can help solve the problem.

Ivek23:

--- Quote from: Ivek23 on June 29, 2012, 02:50:47 pm ---None of these scripts does not work anymore. There have been major changes in the search results (major changes in source code page). I tried to fix it, but without success.
Maybe someone can help solve the problem.
--- End quote ---

I fixed search results in attached Scripts:

Bing_SearchMulti version 0.0.0.2
Bing_SearchMulti(people)(Imdb)  version 0.0.0.4

and new Bing_SearchMulti_All   version 0.0.0.2




[attachment deleted by admin]

Ivek23:
I fixed search results in attached Bing_SearchMulti Script:

Bing_SearchMulti version 0.0.0.3 -  Primary script


--- Code: ---//---------- Procedure SearchResults ----------//
// Create list of movies found during the search
procedure SearchResults (HTML : String);
Var
CurPos, PosStart, EndPos : integer;
URLposStart, URLPosEnd : integer;
StartURL, Title, URL : String;

Begin
  //List of other site where search page :
  TabSite := ['www.bgafd.com', 'www.iafd.com', 'www.imdb.com'];
 
  //Search Result in actual page :
  StartURL := '<a href="http://' + SiteSearch;
   CurPos := Pos(StartURL, HTML);
   
   If Curpos > 0 then begin
      EndPos := Curpos;
     
      While (curpos > 0) AND (curpos < PosFrom('<![CDATA[', HTML, Endpos)) do begin
        EndPos:= Curpos;
        URLposStart := Curpos + 9;
        URLPosEnd := PosFrom('" h="', HTML, URLposStart);
        URL := Copy(HTML, URLPosStart, (URLposEnd-URLposStart));
curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</h2>', HTML, curPos);
Title := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);
        AddSearchResult(URL, Title, '', LowerCase(URL), '');   
        curpos := PosFrom(StartURL, HTML, URLPosEnd);
      End;
  //Add Links to Page with other sites in TabSite:
    For I := Low(TabSite) to High(TabSite) do
    Begin
    URL := 'www.bing.com/Search?q=site%3A' + TabSite[I] + '+%20' + MovieName;
    AddSearchResult('Search in :', TabSite[I],'',LowerCase(URL),'');
    end;
   End;
   
End;
--- End code ---

Navigation

[0] Message Index

[#] Next page

[*] Previous page