Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Import von Wikipedia-Autoren-Link-Liste in Excel-Tabelle
#1
Hi Folks,
 

ich benötige ein Tool, das in der Lage ist, die GESAMTE USER-LISTE, welche unter TOP-EDITORS in diesem Dokument https://xtools.wmflabs.org/articleinfo/d...rlimit=200[url=https://xtools.wmflabs.org/articleinfo/de.wikipedia.org/Kunst/2019-02-28][/url] zu finden ist, in ein Excel-Sheet zu übertragen. Allerdings sollen nicht die Usernamen in die Tabelle übertragen werden, SONDERN DIE LINKS, die sich hinter den Usernames verbergen. Es soll nachher so aussehen wie im Template-Beispiel.

 

IP’s sollen einfach nur kopiert (quasi abgeschrieben) werden. Eventuell in ein separates Excel-Sheet.

 

Werde bekloppt beim händischen übertragen der Links. 22

 

Hat jemand eine Idee/Lösung für mich?

 

LG


Angehängte Dateien
.xlsx   Template_Beispiel_Clever-Forum.xlsx (Größe: 9,26 KB / Downloads: 10)
Antwortento top
#2
Hallo Teamplayer,

deinen doppelten Post habe ich gelöscht. Falls du nach dem Absenden deines Beitrags noch etwas hinzufügen möchtest, kannst du diesen innerhalb der ersten 60 Minuten editieren.

Doch zu deiner Anfrage.

Das gesuchte Tool ist in deinem Excel integriert: PowerQuery aka Daten/Daten abrufen und transformieren ==> Aus dem Web. Allerdings fürchte ich, dass du hier eventuell aufgrund Einschränkungen nicht befugt bist, Listen automatisch runterzuladen. Diesen Hinweis habe ich bekommen:

   
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
[-] Folgende(r) 1 Benutzer sagt Danke an WillWissen für diesen Beitrag:
  • Teamplayer
Antwortento top
#3
Hallo,


Zitat:Allerdings fürchte ich, dass du hier eventuell aufgrund Einschränkungen nicht befugt bist, Listen automatisch runterzuladen. Diesen Hinweis habe ich bekommen:


genau das habe ich erwartet und ich hätte mich auch sehr gewundert, wäre es zu einem anderen Ergebnis gekommen.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
[-] Folgende(r) 1 Benutzer sagt Danke an Käpt'n Blaubär für diesen Beitrag:
  • Teamplayer
Antwortento top
#4
Hallo Günter,

vielen Dank für die schnelle Antwort...

...und das Löschen des doppelten Posts. Wollte ich selbst machen. Keinen Löschen Button gefunden. Sry, ist meinem Anfängertum geschuldet.

Danke auch für den Hinweis auf das integrierte Tool (Query). Ich bin mir nicht sicher, ob meine Frage von Dir vollständig verstanden wurde. Es geht nicht darum, nur die Benutzernamen zu kopieren, sondern die Links zu den Benutzerseiten zu übertragen, welche sich öffnen, wenn man auf den Usernamen in der Liste klickt. Das Tool soll den gesamten Kopiervorgang simulieren, den ich zur Zeit händisch ausführe, nämlich: 1.Username in Wiki klicken ->2. Linkadresse kopieren (2 klicks) ->3. zu Excel wechseln -> 4. doppelklicken in Zelle  ->5. per rechtsklick Zelle aktivieren -> 6. einfügen.

Hab ich mich verständlich ausgedrückt?

LG
Antwortento top
#5
Hi,

ich habe deine Anfrage schon beim erstenmal verstanden - PQ benötigt aber erst einmal die entsprechende Datenbank, damit du die benötigten Angaben herausarbeiten kannst. Und das geht - wie ich dir geschrieben hatte - vermutlich aufgrund Einschränkungen des/der Seitenbetreiber nicht.

Eine andere Möglichkeit des Herauskopierens (außer der manuellen Art) kenne ich nicht.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
[-] Folgende(r) 1 Benutzer sagt Danke an WillWissen für diesen Beitrag:
  • Teamplayer
Antwortento top
#6
Hallo Teamplayer,

da musst Du nix simulieren und man kann alle Links auf einmal holen. Dauert nur ein paar Sekunden. Allerdings habe ich die Links nicht "eingedeutscht", da Wikipedia zwischen "Benutzer:" und "Benutzerin:" unterscheidet, während im Originallink immer "User:" steht. Da habe ich keine Ahnung, wie ich da männlich und weiblich herleiten soll. Ist aber nicht schlimm, denn wenn man einen Link anklickt, kommt man trotzdem auf die Deutsche Seite.

Kopiere folgenden Code in ein Modul. Das Makro schreibt alle Links ab Zeile 2, Spalte 5 in die Tabelle, aus der es ausgeführt wird:

Code:
Sub WikipediaUserListeAuslesen()

Dim browser As Object
Dim url As String
Dim knotenUserTabelle As Object
Dim knotenAlleUser As Object
Dim knotenEinUser As Object
Dim userLink As String
Dim zeile As Long
Dim spalte As Long

  zeile = 2
  spalte = 5
 
  'Parameter editorlimit auf 2000 damit alle User direkt in einer Tabelle aufgelistet werden
  url = "https://xtools.wmflabs.org/articleinfo/de.wikipedia.org/Kunst//2019-02-28?editorlimit=2000"
 
  'Internet Explorer initialisieren, Sichtbarkeit festlegen,
  'URL aufrufen und warten bis Seite vollständig geladen wurde
  Set browser = CreateObject("internetexplorer.application")
  browser.Visible = False
  browser.navigate url
  Do Until browser.ReadyState = 4: DoEvents: Loop
 
  'UserTabelle holen
  Set knotenUserTabelle = browser.document.getElementsByClassName("table table-bordered table-hover table-striped top-editors-table")(0)
 
  'NodeCollection aller Usereinträge erstellen
  Set knotenAlleUser = knotenUserTabelle.getElementsByTagName("tbody")(0).getElementsByTagName("tr")
 
  'Alle Charteinträge durchgehen
  For Each knotenEinUser In knotenAlleUser
    'User Link auslesen
    userLink = knotenEinUser.getElementsByTagName("a")(0).href
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(zeile, spalte), Address:=userLink, TextToDisplay:=userLink
    zeile = zeile + 1
  Next knotenEinUser
 
  'Aufräumen
  browser.Quit
  Set browser = Nothing
  Set knotenUserTabelle = Nothing
  Set knotenAlleUser = Nothing
  Set knotenEinUser = Nothing
End Sub


Viele Grüße,

Zwenn
[-] Folgende(r) 1 Benutzer sagt Danke an Zwenn für diesen Beitrag:
  • Teamplayer
Antwortento top
#7
Hallo,

Zwenn ist unbestritten der "Meister des DOM" und seine Erfahrungen mit Web-Abfragen ist hier in den Excel-Foren unerreicht und nicht zu überbieten.

Deshalb bemühe ich mich möglichst kurze Codes zu schreiben:

Code:
$url = 'https://xtools.wmflabs.org/articleinfo/de.wikipedia.org/Kunst//2019-02-28?editorlimit=200'

$ret = iwr $url -DisableKeepAlive -UserAgent "Clever-Excel"

foreach ($lk in $ret.links) {
    if ($lk.href.Contains('User:')) { $lk.href }
}

Der Code gehört in ISE von Powershell, das Ergebns muss mit "copy/paste" in ein Excel-Sheet übertragen werden.

mfg

Ergebnis:
Zitat:https://de.wikipedia.org/wiki/User:Kurt_Jansson
https://de.wikipedia.org/wiki/User:Infogeek244
https://de.wikipedia.org/wiki/User:MsChaos
https://de.wikipedia.org/wiki/User:Anima
https://de.wikipedia.org/wiki/User:Doktorscholl
https://de.wikipedia.org/wiki/User:Arnis
https://de.wikipedia.org/wiki/User:Amano1
https://de.wikipedia.org/wiki/User:Georg_Hügler
https://de.wikipedia.org/wiki/User:H.-P.Haack
https://de.wikipedia.org/wiki/User:Sputnik_mir
https://de.wikipedia.org/wiki/User:Fluss
https://de.wikipedia.org/wiki/User:Aka
https://de.wikipedia.org/wiki/User:Pittimann
https://de.wikipedia.org/wiki/User:Elian
https://de.wikipedia.org/wiki/User:W!B:
https://de.wikipedia.org/wiki/User:Artsandcrafts
https://de.wikipedia.org/wiki/User:Sarfis77
https://de.wikipedia.org/wiki/User:Ckeen
https://de.wikipedia.org/wiki/User:DerHexer
https://de.wikipedia.org/wiki/User:Alnilam
https://de.wikipedia.org/wiki/User:Weltseher
https://de.wikipedia.org/wiki/User:Tsui
https://de.wikipedia.org/wiki/User:Horst_Gräbner
https://de.wikipedia.org/wiki/User:PDD
https://de.wikipedia.org/wiki/User:Christophe_Watier
https://de.wikipedia.org/wiki/User:Karl-Henner
https://de.wikipedia.org/wiki/User:Zembylas
https://de.wikipedia.org/wiki/User:Hubertl
https://de.wikipedia.org/wiki/User:Ohrnwuzler
https://de.wikipedia.org/wiki/User:AndreasPraefcke
https://de.wikipedia.org/wiki/User:Strot
https://de.wikipedia.org/wiki/User:Kai-Hendrik
https://de.wikipedia.org/wiki/User:JEW
https://de.wikipedia.org/wiki/User:Inkowik
https://de.wikipedia.org/wiki/User:H.Albatros
https://de.wikipedia.org/wiki/User:Regi51
https://de.wikipedia.org/wiki/User:LKD
https://de.wikipedia.org/wiki/User:Sigune
https://de.wikipedia.org/wiki/User:MorlocksAndEloi
https://de.wikipedia.org/wiki/User:Sinn
https://de.wikipedia.org/wiki/User:Olaf_Simons
https://de.wikipedia.org/wiki/User:Keichwa
https://de.wikipedia.org/wiki/User:FelMol
https://de.wikipedia.org/wiki/User:Julius1990
https://de.wikipedia.org/wiki/User:WAH
https://de.wikipedia.org/wiki/User:Ulrich.fuchs
https://de.wikipedia.org/wiki/User:Se4598
https://de.wikipedia.org/wiki/User:Hybridbus
https://de.wikipedia.org/wiki/User:Affenboy123
https://de.wikipedia.org/wiki/User:Spuk968
https://de.wikipedia.org/wiki/User:Gusta...Aschenbach
https://de.wikipedia.org/wiki/User:GDK
https://de.wikipedia.org/wiki/User:Peter200
https://de.wikipedia.org/wiki/User:CSchuette1
https://de.wikipedia.org/wiki/User:Rufus46
https://de.wikipedia.org/wiki/User:Complex
https://de.wikipedia.org/wiki/User:Bücherhexe
https://de.wikipedia.org/wiki/User:Kurt_Jansson
https://de.wikipedia.org/wiki/User:Averaver
https://de.wikipedia.org/wiki/User:StefanWesthoff
https://de.wikipedia.org/wiki/User:Jpp
https://de.wikipedia.org/wiki/User:Wst
https://de.wikipedia.org/wiki/User:Sänger
https://de.wikipedia.org/wiki/User:Hansjürg_Buchmeier
https://de.wikipedia.org/wiki/User:Rmcharb
https://de.wikipedia.org/wiki/User:Chrisandres
https://de.wikipedia.org/wiki/User:Hephaion
https://de.wikipedia.org/wiki/User:Lustiger_seth
https://de.wikipedia.org/wiki/User:Entlinkt
https://de.wikipedia.org/wiki/User:Savin_2005
https://de.wikipedia.org/wiki/User:Avoided
https://de.wikipedia.org/wiki/User:Diba
https://de.wikipedia.org/wiki/User:Guaras10
https://de.wikipedia.org/wiki/User:Nerd
https://de.wikipedia.org/wiki/User:Hildeoc
https://de.wikipedia.org/wiki/User:Bildungsbürger
https://de.wikipedia.org/wiki/User:Wiegels
https://de.wikipedia.org/wiki/User:Juesch
https://de.wikipedia.org/wiki/User:Patchworker
https://de.wikipedia.org/wiki/User:He3nry
https://de.wikipedia.org/wiki/User:Aloviel
https://de.wikipedia.org/wiki/User:Druckwelle
https://de.wikipedia.org/wiki/User:Xlibri
https://de.wikipedia.org/wiki/User:Siren~dewiki
https://de.wikipedia.org/wiki/User:Bleckneuhaus
https://de.wikipedia.org/wiki/User:Mikered
https://de.wikipedia.org/wiki/User:Neun-x
https://de.wikipedia.org/wiki/User:Rigo_1963
https://de.wikipedia.org/wiki/User:WillibaldHurz
https://de.wikipedia.org/wiki/User:Pavel_Krok
https://de.wikipedia.org/wiki/User:Markus_Mueller
https://de.wikipedia.org/wiki/User:Blaubahn
https://de.wikipedia.org/wiki/User:Frila
https://de.wikipedia.org/wiki/User:Icodense99
https://de.wikipedia.org/wiki/User:Sokonbud
https://de.wikipedia.org/wiki/User:Artousec
https://de.wikipedia.org/wiki/User:R-B-S
https://de.wikipedia.org/wiki/User:RonMeier
https://de.wikipedia.org/wiki/User:Wildehilde97
https://de.wikipedia.org/wiki/User:EssexGirl
https://de.wikipedia.org/wiki/User:Flusz
https://de.wikipedia.org/wiki/User:Nightflyer
https://de.wikipedia.org/wiki/User:Jonesey
https://de.wikipedia.org/wiki/User:Rubblesby
https://de.wikipedia.org/wiki/User:Jocian
https://de.wikipedia.org/wiki/User:Luha
https://de.wikipedia.org/wiki/User:Der.Traeumer
https://de.wikipedia.org/wiki/User:Jivee_Blau
https://de.wikipedia.org/wiki/User:Timk70
https://de.wikipedia.org/wiki/User:Baird's_Tapir
https://de.wikipedia.org/wiki/User:Zaphiro
https://de.wikipedia.org/wiki/User:Zaibatsu
https://de.wikipedia.org/wiki/User:Pere_Ubu
https://de.wikipedia.org/wiki/User:Querverplänkler
https://de.wikipedia.org/wiki/User:D
https://de.wikipedia.org/wiki/User:Trainspotter
https://de.wikipedia.org/wiki/User:Tobi_B.
https://de.wikipedia.org/wiki/User:Nicolas17
https://de.wikipedia.org/wiki/User:Numbo3
https://de.wikipedia.org/wiki/User:Ri_st
https://de.wikipedia.org/wiki/User:Schewek
https://de.wikipedia.org/wiki/User:Matt1971
https://de.wikipedia.org/wiki/User:Gpvos
https://de.wikipedia.org/wiki/User:Kolja21
https://de.wikipedia.org/wiki/User:FischX
https://de.wikipedia.org/wiki/User:ElRaki
https://de.wikipedia.org/wiki/User:ErikDunsing
https://de.wikipedia.org/wiki/User:Hashar
https://de.wikipedia.org/wiki/User:Nocturne
https://de.wikipedia.org/wiki/User:Ivo_meier
https://de.wikipedia.org/wiki/User:Fritz
https://de.wikipedia.org/wiki/User:Otto
https://de.wikipedia.org/wiki/User:Sebastian~dewiki
https://de.wikipedia.org/wiki/User:Axel1963
https://de.wikipedia.org/wiki/User:Wivoelke
https://de.wikipedia.org/wiki/User:Pentachlorphenol
https://de.wikipedia.org/wiki/User:Gerhardvalentin
https://de.wikipedia.org/wiki/User:Allegoriowitsch
https://de.wikipedia.org/wiki/User:Logograph
https://de.wikipedia.org/wiki/User:Sophophiloteros
https://de.wikipedia.org/wiki/User:Trg
https://de.wikipedia.org/wiki/User:Asthma
https://de.wikipedia.org/wiki/User:Thorbjoern
https://de.wikipedia.org/wiki/User:Tönjes
https://de.wikipedia.org/wiki/User:Seewolf
https://de.wikipedia.org/wiki/User:David_Ludwig
https://de.wikipedia.org/wiki/User:€pa
https://de.wikipedia.org/wiki/User:Tinz
https://de.wikipedia.org/wiki/User:Sicherlich
https://de.wikipedia.org/wiki/User:David_Hoeffer
https://de.wikipedia.org/wiki/User:JakobVoss
https://de.wikipedia.org/wiki/User:Commandos-rus
https://de.wikipedia.org/wiki/User:Xqbot
https://de.wikipedia.org/wiki/User:SieBot
https://de.wikipedia.org/wiki/User:VolkovBot
https://de.wikipedia.org/wiki/User:Zwobot
https://de.wikipedia.org/wiki/User:RobotQuistnix
https://de.wikipedia.org/wiki/User:FlaBot
https://de.wikipedia.org/wiki/User:BotMultichill
https://de.wikipedia.org/wiki/User:MerlIwBot
https://de.wikipedia.org/wiki/User:Synthebot
https://de.wikipedia.org/wiki/User:PixelBot
[-] Folgende(r) 1 Benutzer sagt Danke an Fennek für diesen Beitrag:
  • Teamplayer
Antwortento top
#8
Hallo Fennek,

der "unbestrittene Meister des DOM" klingt zwar gut, aber der bin ich ganz sicher nicht 21 Ich selbst habe so einiges von Anton gelernt und wenn ich mir ansehe was Leute wie QHaar auf Stackoverflow wissen und können, fehlt da noch so einiges bei mir. Aber auch deshalb bin ich ja in den Foren aktiv Smile

Viele Grüße,

Zwenn

PS: Wenn Du aus der 200 am Ende der URL eine 2000 machst, liest Du auch alle Links auf einmal aus Wink Eine 1000 müsste es auch tun Big Grin
PPS: Dein Code liest nur die Links mit User: aus. Sämtliche IP Adressen erwischst Du damit nicht
Antwortento top
#9
sorry Zwenn, war nicht persönlich gemeint.

Ich war etwas frustriert: Seit kurzem lese ich bei den Viren-Jägern mit und sehe immer mehr, wie viel mir noch fehlt. Auch ein kleiner Versuch mit "MS Office-Forensik" brachte nicht das Gewünschte.

Da kam eine kurze Pause mit diesem Powershell-Code gerade richtig.
Antwortento top
#10
Die website besucht: die Webpage gespeichert als "G:\Kunst - Page History - XTools.htm"

Und dann in Excel:

PHP-Code:
Sub M_snb()
  With CreateObject("htmlfile")
    .Body.innerHTML CreateObject("scripting.filesystemobject").opentextfile("G:\Kunst - Page History - XTools.htm").readall
    ReDim sn
(.Links.Length1)
        
    
For Each it In .Links
      
If InStr(it.href"User:"Then
        sn
(y0) = it.href
        sn
(y1) = it.innertext
        y 
1
      End 
If
    Next
  End With

  Sheet1
.Cells(1).Resize(UBound(sn), 2) = sn
End Sub 
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 1 Benutzer sagt Danke an snb für diesen Beitrag:
  • Teamplayer
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste