|
| Autor |
Nachricht |
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Google Links anzeigen
Verfasst am: 30.06.2008, 20:05 |
|
|
Wie kann ich mit vb die Links bei einer Google suche in einer textbox anzeigen lassen.Ich weis zwar dass es mit instr und mid gehen muss,aber ich weis nicht wie genau^^
Gibts vl ein code beispiel? |
|
| |
|
 |
kazu
Tutorial Leser
Anmeldedatum: 21.05.2008
Beiträge: 22
|
Verfasst am: 30.06.2008, 21:16 |
|
|
| Es gibt hier genug Theards benutz mal die Suche. Such mal nach "Quelltext, Homepage, auslesen" dann solltest du was finden. |
|
| |
|
|
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Verfasst am: 30.06.2008, 21:26 |
|
|
| Ich weis ja wie ich den Quelltext auslese,nut komm ich nicht mit dem auslesen der Link klar |
|
| |
|
|
kazu
Tutorial Leser
Anmeldedatum: 21.05.2008
Beiträge: 22
|
Verfasst am: 30.06.2008, 21:36 |
|
|
| Is das den so Schwer? Ich sag doch such mal nach Homepage! |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 30.06.2008, 22:34 |
|
|
| Du splittest den Quelltext einfach bei jedem " Tag und extrahierst so den Link. Dann hast du natürlich alle Links die es auf der Seite gibt, dann filterst du noch die google-internen Links raus et voilà... |
|
| |
|
|
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Verfasst am: 01.07.2008, 20:34 |
|
|
| sry aber ich schaffs nicht:( |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 01.07.2008, 21:11 |
|
|
| Ja, wo hängst du denn? |
|
| |
|
|
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Verfasst am: 01.07.2008, 21:20 |
|
|
Kp hab den source hier gefunden...
Visual Basic: [code]pos1 = 0
pos2 = 0
Do
pos1 = InStr(pos1 + 1, Quelltext, "xxxx")
If pos1 <> 0 Then
pos2 = InStr(pos1 + 1, Quelltext, "xxx")
If pos2 <> 0 Then
pos1 = pos1 + 15
ausgabe = Mid$(Quelltext, pos1, pos2 - pos1)
pos1 = pos2
End If
End If
Loop Until pos1 = 0 Or pos2 = 0
[/code]
Die befehle sind aber hundert pro richtig(nur hier jetzt nicht^^),aber er gibt mir manchmal gleich bei pos1 0 aus dann wda bei pos2 |
|
| |
|
|
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
|
Verfasst am: 01.07.2008, 21:38 |
|
|
Ich sag halt, schreib deine Funktionen selber, debugge sie durch, suche die Fehler, ändere was und dann kannst du Stolz auf dich sein, weil du es nämlich alleine gelöst hast.  Und bei dem Source hast du ja auch nichts gelernt bzw nichts verstanden. Geh dir lieber deinen Gedankengang noch mal durch, wie du zum Ziel kommen kannst. Was kann aus dem Quelltext raus? Was brauche ich aus dem Source? Gibt es markante Stellen im Source?....
Und dann kannst du anfangen mit den String-Operationen den Source so zu bearbeiten, dass du am Ende die Links hast. |
|
| |
|
|
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Verfasst am: 02.07.2008, 18:25 |
|
|
Ich check den code auch und er sollte funktioniern,aber er ged einfach nicht drum frag ich ja..
Do
pos1 = InStr(pos1 + 1, Quelltext, "xxxx") 'Hier wird die Position nachgesehen im Quelltext, wo xxxx steht
If pos1 <> 0 Then 'Wenn xxx gefunden wird (<>0)dann wird nach dem string gesucht,der am ende vom link kommt
pos2 = InStr(pos1 + 1, Quelltext, "xxx") 'Das passiert hier
If pos2 <> 0 Then 'Hier wird wiedernachgesehen obs 0 ist
pos1 = pos1 + 15 'pos iwrd um 15 erhöht
ausgabe = Mid$(Quelltext, pos1, pos2 - pos1) 'link würde ausgegeben werden
pos1 = pos2 'pos1 = die letzte position
End If
End If
Loop Until pos1 = 0 Or pos2 = 0 'solange bis pos1 oder pos2 =0 (kein link mehr da ist)
Ich hoffe einer von euch kann mir jetzt helfen |
|
| |
|
|
Registrieren
Login
