Code covered by the BSD License  

Highlights from
google

google

by

 

13 Dec 2004 (Updated )

Shortcut for web searching using Google's different search areas (images, groups, etc.).

google(varargin)
function google(varargin)

%GOOGLE Searches in Google in different search areas (images, groups, etc.)
%
% SYNTAX
%
% google(text)
% google(text,'search_area')
% google(text,'search_area',param,value,...)
%
% DISCRIPTION
%
%        text: User entered text to search for.
%
%        search_area: If not specified, then the default is 'web'.
%              Can be one of the following:
%              'web': Searches the web.
%              'images':   Searches Google Images.
%              'groups':   Searches Google Groups.
%              'news':     Searches Google News.
%              'froogle':  Searches Froogle.
%              'scholar':  Searches Google Scholar.
%              'catalogs': Searches Google Catalogs.
%              if it starts with '+', then it will turn the option of (I'm
%              Feeling Lucky!) on!
%
%        param: Can be one of the following:
%              'pages':
%              'lang':
%              'ext':
%
% USER CONFIGURABLE OPTIONS
%  
%       Possible param/value options are:
%           'pages' - search in pages of specific language.  Can be: 
%                   'ar'	Arabic
%                   'bg'	Bulgarian
%                   'ca'	Catalan
%                   'zh-CN'	Chinese (Simplified)
%                   'zh-TW'	Chinese (Traditional)
%                   'hr'	Croatian
%                   'cs'	Czech
%                   'da'	Danish
%                   'nl'	Dutch
%                   'en'	English
%                   'et'	Estonian
%                   'fi'	Finnish
%                   'fr'	French
%                   'de'	German
%                   'el'	Greek
%                   'iw'	Hebrew
%                   'hu'	Hungarian
%                   'is'	Icelandic
%                   'id'	Indonesian
%                   'it'	Italian
%                   'ja'	Japanese
%                   'ko'	Korean
%                   'lv'	Latvian
%                   'lt'	Lithuanian
%                   'no'	Norwegian
%                   'pl'	Polish
%                   'pt'	Portuguese
%                   'ro'	Romanian
%                   'ru'	Russian
%                   'sr'	Serbian
%                   'sk'	Slovak
%                   'sl'	Slovenian
%                   'es'	Spanish
%                   'sv'	Swedish
%                   'tr'	Turkish
%
%           'lang' - google page language.  Can be one of the above.
%           'ext' - (country domain extension) 
%                   (ex, 'ae','us','uk','br','it','fr','mx','nl',... etc)
%
% Examples:
% 
%       google('Nasa Shuttle')
%       google('Nasa Shuttle','News')
%       google('free download','web')
%       google('free download','+web')
%       google('simpsons','images')
%       google('simpsons','images','pages','se')
%       google('Nasa Shuttle','web','ext','AE')
%       google('Nasa Shuttle','web','lang','fr')
%       google('Nasa Shuttle','web','lang','fr','pages','fr','ext','FR')
%
%   Copyright 2004 Fahad Al Mahmood
%   Version: 1.0 $  $Date: 13-Dec-2004
%            1.5 $  $Date: 22-Dec-2004


operator=varargin{1};

if length(varargin)==1
    web(['http://www.google.com/search?&q=' operator], '-browser');
else
    opt = varargin{2};
    
    % (I'm Feeling Lucky) Option
    if strcmpi(opt(1),'+')
        operator = [operator '&btnI=1'];
        varargin{2}=opt(2:end);
    end
    
    if length(varargin)>2
        opt_pairs = (length(varargin)-2)/2;
        for i=1:opt_pairs
            if strcmpi(varargin{2*i+1},'pages')
                operator=[operator '&lr=lang_' varargin{2*i+2}];
            elseif strcmpi(varargin{2*i+1},'ext')
                operator=[operator '&cr=country' upper(varargin{2*i+2})];
            elseif strcmpi(varargin{2*i+1},'lang')
                operator=[operator '&hl=' varargin{2*i+2}];
            end
        end
    end
        
    
    if strcmpi(varargin{2},'images')
        web(['http://images.google.com/images?q=' operator], '-browser');
    elseif strcmpi(varargin{2},'groups')
        web(['http://groups.google.com/groups?q=' operator], '-browser');
    elseif strcmpi(varargin{2},'web')
        web(['http://www.google.com/search?q=' operator], '-browser');
    elseif strcmpi(varargin{2},'news')
        web(['http://news.google.com/news?q=' operator], '-browser');
    elseif strcmpi(varargin{2},'froogle')
        web(['http://froogle.google.com/froogle?q=' operator], '-browser');
    elseif strcmpi(varargin{2},'scholar')
        web(['http://scholar.google.com/scholar?q=' operator], '-browser');
    elseif strcmpi(varargin{2},'catalogs')
        web(['http://catalogs.google.com/catalogs?q=' operator], '-browser');        
    else
        error(['(' varargin{2} ') is an Unknown Option!'])
    end
end

Contact us