Google Meinten Sie

[API]

Hat jemand von euch schon mal eine Funktion gecoded welche
von einem bestimmten Wort ähnliche Wörter aus Google ausliest.

Man gibt z.B Deutch ein und Google sagt "Meinten Sie: Deutsch"

Delphi-Quellcode:

function GetSimilarWord(meinwort: string): string;
begin
end;

Habe einen Code gefunden aber nicht in Delphi.
Wie kann ich das übersetzen?

Code:

=begin
Raimbo, the Ruby AIM Bot Object.
Copyright (C) 2003 Kurt M. Dresner ([e-mail])

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
=end

require 'net/http'
require 'uri/common'
require 'cgi'
Net::HTTP.version_1_2
module Google
  def Google.search(inputterms, numresults=1)
    unless inputterms.length > 0
      return "What should I search for?"
    end
    searchterms = URI.escape inputterms
    
    query = "/search?q=#{searchterms}&btnG=Google+Search"
    result = "no results found."
    
    proxy_host = nil
    proxy_port = nil
    
    if(ENV['http_proxy'])
      if(ENV['http_proxy'] =~ /^http:\/\/(.+):(\d+)$/)
        proxy_host = $1
        proxy_port = $2
      end
    end
    http = Net::HTTP.new("www.google.com", 80, proxy_host, proxy_port)
    
    http.start do |http|
      begin
        resp , = http.get(query)
        if resp.code.to_i == 200
     didyoumean = nil
     results = []
     resp.body.each("Similar pages</a>") do |l|
       if not didyoumean and l =~ /Did you mean:.*?[i](.*?)<\/i>.*?<\/a>/
         didyoumean = $1
       end
       if (l =~ /(<p class="?g"?>)(<a.*?<\/a>)/) and (results.size < numresults)
         results.push("Hit #{results.size + 1}: #{$2}")
       end
     end
     unless results.empty?
       result = results.join("\n")
       if (results.size < numresults) and didyoumean
         result += " (Did you mean [i]#{didyoumean}[/i]?)." 
       else
         result += "."
       end
            # comment out the line below to leave the search terms bolded
            result.gsub!(/[b]|<\/b>/, "")
     else
       if didyoumean
         result += "\n(Did you mean [i]#{didyoumean}[/i]?)." 
       end
     end
   end
      rescue => e
   result = "Error encountered while talking to Google."
      end
    end
    CGI.unescapeHTML result
  end
end

[Meflin]

also diese funktion macht nichts anderes als das der Funktion übergebene Wort an Google zu schicken und zu schauen ob Google ein "did you mean..." vorschlägt und das zurückzugeben - das ist ja nicht wirklich eine glanzleistung :?

Ich weis nicht ob dir das bewusst ist - wenn ja: IdHTTP, und dann einfach was du zurückbekommst auswerten, dürfte nicht sooo schwer sein.

Wenn nein - und das hoffe ich ;) - kann ich dir aber da jetzt leider auch keinen Algo anbieten :(

[3_of_8]

Tja, lies dir ein C++ Tutorial durch.

Oder, noch ne Idee, du überprüfst SoundEx Werte, und zwar die vom eingegebenen Wort mit Wörtern in einer Datenbank, wobei die Wörter in der Datenbank, die öfter eingegeben werden, Vorrang haben.

Delphi-Quellcode:

type
  TWord = record
    text: String;
    count: Integer;
  end;

var Words: array of TWord;

//...

function GetSimilar(str: String): String;
var I: Integer;
    bestindex, bestcount: Integer;
begin
  bestcount:=0;
  bestindex:=-1;
  for I:=0 to high(Words) do
    if (soundexsimilar(str, words[I].text)) and (words[I].count>bestcount) then
    begin
      bestcount:=words[I].count;
      bestindex:=I;
    end;
  if bestindex=-1 then result:='' else result:=words[bestindex].text;
end;

[sakura]

Zitat:

Zitat von Meflin

IdHTTP, und dann einfach was du zurückbekommst auswerten, dürfte nicht sooo schwer sein.

Achtung, unbedingt den User-Agent ändern. Google reagiert allergisch auf den originalen IdHttp-UserAgent :stupid:

...:cat:...

[mkinzler]

Du brauchst einen Algorithmus der die die Ähnlichkeit von 2 Wörtern berechnet. Wie z.B. Levenshtein.

[sakura]

Zitat:

Zitat von mkinzler

Du brauchst einen Algorithmus der die die Ähnlichkeit von 2 Wörtern berechnet. Wie z.B. Levenshtein.

Will er doch gar nicht, er will einfach Googles Antwort nutzen :roll:

...:cat:...

[API]

Zitat:

Zitat von sakura

Zitat:

Zitat von mkinzler

Du brauchst einen Algorithmus der die die Ähnlichkeit von 2 Wörtern berechnet. Wie z.B. Levenshtein.

Will er doch gar nicht, er will einfach Googles Antwort nutzen :roll:

...:cat:...

Danke für die Antworten. sakura hat recht, bitte immer schön die Fragestellung durchlesen, so wie in der Schule :wink:

Wie kann man den User-Agent ändern? Braucht es da einen Registry Eingriff?

[fkerber]

Hi!

Nein, dazu gibt es im OI (bei ausgewählter IdHttp-Komponente) die Eigenschaft Request und dort drunter User-Agent!


Ciao, Frederic

[API]

ok, schon gefunden

Delphi-Quellcode:

TIdHttp.Request.UserAgent

[mkinzler]

Zitat:

sakura hat recht, bitte immer schön die Fragestellung durchlesen, so wie in der Schule Wink

Thema verfehlt! 6! Setzen! :oops:

[vlees91]

also ich habe mir mal was gebastelt mit einer wortliste aus einem wörterbuch (gnu), dass das kann:
buchstaben im wort zählen und mit dem buchstaben profil der wörter in der liste vergleichen. wahrscheinlichkeit ausrechnen
fertig

[Meflin]

Zitat:

Zitat von mkinzler

Thema verfehlt! 6! Setzen! :oops:

Naja, die Lösung über einen eigenen Algo wäre auch wesentlich sauberer als dieses Workaround :wall: Da tut einem ja alles weh :lol:

Zitat:

Zitat von vlees91

also ich habe mir mal was gebastelt mit einer wortliste aus einem wörterbuch (gnu), dass das kann:
buchstaben im wort zählen und mit dem buchstaben profil der wörter in der liste vergleichen. wahrscheinlichkeit ausrechnen
fertig

Supi :thumb: wenn du es jetzt auch noch hochlädst damit wir auch was davon haben, wär das noch besser, oder wolltest du uns nur neidisch machen :lol: ?

[Khabarakh]

Zitat:

Zitat von 3_of_8

Tja, lies dir ein C++ Tutorial durch.

Was einem bei einem Ruby-Quelltext natürlich wahnsinnig weiterhilft.

[Daniel G]

Zitat:

Zitat von Khabarakh

Zitat:

Zitat von 3_of_8

Tja, lies dir ein C++ Tutorial durch.

Was einem bei einem Ruby-Quelltext natürlich wahnsinnig weiterhilft.

:lol:

[vlees91]

der qt ist 1. in php und 2. bin ich atm an einem anderen rechner...

[EDatabaseError]

@Topic:
wenns fertig ist wär das was für die CodeLibrary

[API]

Haben unterdessen etwas gemacht. Könnt es euch ja mal anschauen und mir Verbesserungsvorschläge geben.
Danke. :wink:

Download weiter unten

[API]

Habe noch einen Bug gefunden.
Wenn ich 2 oder mehrere Wörter eingebe, gibt's einen

Zitat:

Socket Error # 10053
Software caused connection abort.

Was bedeutet das?

[API]

Zitat:

Zitat von API

Habe noch einen Bug gefunden.
Wenn ich 2 oder mehrere Wörter eingebe, gibt's einen

Zitat:

Socket Error # 10053
Software caused connection abort.

Was bedeutet das?

ich sollte wohl die Leerstellen durch + ersetzen. dann kommt der Fehler nicht mehr...

[API]

:thumb: Hier noch ein Update

[Meflin]

Zitat:

Zitat von EDatabaseError

wenns fertig ist wär das was für die CodeLibrary

ähm nicht wirklich. ich bezweifle nämlich dass das so ganz koscher bzw. mit den agb (oder was immer) von Google so ganz vereinbar. Denn für Leute die ihren Service nutzen wollen gibts ne API...

[API]

[quote="Meflin"]

Zitat:

Zitat von EDatabaseError

Denn für Leute die ihren Service nutzen wollen gibts ne API...

Hat das schon mal jemand gemacht?

[API]

Zitat:

Zitat von API

Hat das schon mal jemand gemacht?

Anscheinend nicht...