Heyho, komm mitlerweile ganz gut mit Autoit zurecht aber muss mich jetzt mit dem IE UDF beschäftigen.
Und dort habe ich folgendes Problem,
Ich lese von einer Seite mit _IELinkGetCollection die ganzen links aus, das klappt soweit auch, aber nun möchte ich nicht das er alle links hat sonder nur welche z.b. so beginnen: http://www.affe.de/home/.....
So eine art wildcard wie ein Sternchen funktioniert auch nicht, wie könnte ich das also bewerkstelligen?
WIldcard oder sonstige möglichkeit zum filtern
-
- [ gelöst ]
-
rew -
2. April 2009 um 11:25 -
Geschlossen -
Erledigt
-
-
- Offizieller Beitrag
Schau mal hier: [ offen ] Youtube-links aus .txt raussuchen lassen
-
iwie klappt das nicht... bin die ganze Zeit schon am rummachen...
er soll mir alle Profil links von der Suche raussuchen.
so siehts momentan bei mir aus:Code
Alles anzeigen#include <IE.au3> $file = FileOpen("c:\test.txt", 1) $oIE = _IECreate ("https://www.xing.com/app/search?op=search&no-cache=1&oldop=&keywords=&myc=0&first_name=&last_name=&education=&interests=&org_member=&group=&type=student&company=&title=&previous_company=&previous_title=&industry=&wants=&haves=&zip_code=4*+%22OR%22+5*&city=&province=&country=&lng=de&completed=14") $oLinks = _IELinkGetCollection ($oIE) $iNumLinks = @extended #MsgBox(0, "Link Info", $iNumLinks & " links found") $oLinks = StringRegExp ($oLinks, '"(https://www\.xing\.com/profile/.*?)"', 3) If Not IsArray($oLinks) Then Exit MsgBox(0, 0, 'Keine Links gefunden!') For $oLink In $oLinks FileWriteLine($file, $oLink.href) Next FileClose($file)
-
- Offizieller Beitrag
Das kann man ganz anders machen:
Spoiler anzeigen
[autoit]
[/autoit]
#include <IE.au3>
$oIE = _IECreate ("https://www.xing.com/app/search?op=search&no-cache=1&oldop=&keywords=&myc=0&first_name=&last_name=&education=&interests=&org_member=&group=&type=student&company=&title=&previous_company=&previous_title=&industry=&wants=&haves=&zip_code=4*+%22OR%22+5*&city=&province=&country=&lng=de&completed=14")
$oLinks = _IELinkGetCollection ($oIE)
$iNumLinks = @extended
If $iNumLinks = 0 Then Exit MsgBox(0, "Link Info", "No Links found")
MsgBox(0, "Link Info", $iNumLinks & " links found")
$file = FileOpen("c:\test.txt", 1)
For $oLink In $oLinks
$sLink = $oLink.href
ConsoleWrite($sLink & @CRLF)
If StringLeft($sLink, 29) = "https://www.xing.com/profile/" Then FileWriteLine($file, $sLink)
Next
FileClose($file)
Allerdings gibt es auf der Seite gar keine Links mit der "/profile/"-Endung. -
Vielen Dank!
Es hat geklappt
Man muss auch angemeldet sein das die suche richtig funktioniert.Edit:
noch zwei Fragen:
1. alle Links sind doppelt weil sie 2 mal auf der Seite vorkommen, wie könnte ich das lösen?
2. Wie mein eigenes Profil steht auch in der Suche drinnen, wie kann ich das am besten ausschließen? Notfalls könnte ich es auch mit nem If bei späterer Bearbeitung auch rausnehmen, was aber wohl denke ich nicht so "schön" wäre. -
So, habs nach ein paar std dann doch noch alleine hinbekommen.