Hey,
weil ich eine ähnliche Funktion für eines meiner Projekte brauche, dachte ich, komm, stellste eben Public.
Die Funktion ist dafür da, um Google zu benutzen.
Also Die Funktion gibt ein Array zurück, z.B so:
Hallo||hallo.de
Hallo du||wilkommen.de
Also im Schema: Titel||URL
Ich hab kein Plan ob oder wofür ihr die Funktion gebraucht, ist mir erlich gesagt auch egal, aber ich denke dass einige sie wohl gebrauchen können, wofür auch immer
Lg Chris :]
e:
Aufrufen einfach so:
Natürlich geht das auch ein bisschen feiner:
Lg Chris
weil ich eine ähnliche Funktion für eines meiner Projekte brauche, dachte ich, komm, stellste eben Public.
Die Funktion ist dafür da, um Google zu benutzen.
Also Die Funktion gibt ein Array zurück, z.B so:
Hallo||hallo.de
Hallo du||wilkommen.de
Also im Schema: Titel||URL
VB.NET-Quellcode
- ' ## Funktion by Chris Hilmes Alias Metal Freak :]
- ' ## Kein Gewähleistung, dass die Funktion 100% funzt x]
- Function googlesearch(ByVal suchStr As String) As Array
- Dim tempAL As New ArrayList
- Dim tempS As String
- Dim req As Net.HttpWebRequest = Net.HttpWebRequest.Create("http://www.google.de/search?hl=de&q=" & suchStr)
- Dim res As Net.HttpWebResponse = req.GetResponse
- Dim stream As New IO.StreamReader(res.GetResponseStream, System.Text.Encoding.UTF8, True)
- Dim html As String = stream.ReadToEnd
- tempAL.AddRange(Split(html, "h2 class=r", 12)) 'Quelltext splitten
- tempAL.Remove(tempAL.Item(0))
- For o As Integer = 0 To tempAL.Count - 1 'In dieser Schleife werden die Suchergebnisse zurecht gesplittet, ohne HTML Tags usw
- tempS = ""
- tempS = System.Text.RegularExpressions.Regex.Replace(Split(Split(tempAL(o), "class=l", 7)(1), "</a>", 4)(0), "<.*?>", "") 'Hier werden noch die HTML Tags aus dem Titel gefischt
- tempS = Mid(tempS, 2) & "||" & Split(Split(tempAL(o), "<a href=""", 9)(1), """")(0)
- tempAL(o) = tempS
- Next
- Return tempAL.ToArray
- End Function
Ich hab kein Plan ob oder wofür ihr die Funktion gebraucht, ist mir erlich gesagt auch egal, aber ich denke dass einige sie wohl gebrauchen können, wofür auch immer
Lg Chris :]
e:
Aufrufen einfach so:
Natürlich geht das auch ein bisschen feiner:
Lg Chris
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Metal Freak“ ()