Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Frage Entwicklung VB for Applications

GELÖST

Links auslesen und speichern mit VBS

Mitglied: mariogalaxy2

mariogalaxy2 (Level 1) - Jetzt verbinden

10.06.2011 um 17:16 Uhr, 6697 Aufrufe, 4 Kommentare

Hallo,

und zwar habe ich einen script von Friemler empfohlen bekommen. Script funktioniert auch, alles wunderbar.
Nur dieser script muss etwas angepasst werden. habe leider mit nur sehr wenig ahnung wie das geht.
also so schaut das script aus:
args = WScript.Arguments.Count

if args <> 1 then
Wscript.Echo "usage: ScrapeLinks.vbs URL"
wscript.Quit
end if

URL = WScript.Arguments.Item(0)

With CreateObject("InternetExplorer.Application")
.Navigate URL
Do Until .ReadyState = 4
Wscript.sleep 10
Loop
for each link in .document.links
Wscript.echo link
next


' Uncomment the three lines below to scrape references to images

' for each pix in .document.images
' Wscript.echo pix.src
' next

.Quit
End With


Folgende änderungen werden gebraucht:

1. Script greift auf eine .txt liste mit den ganzen domains, der reihe nach z.B.
www.sdfsfd.com/bla1
www.safsafd345.com/bla2
www.ssfsdf.com/bla3
www.sitesfdsdf.com/bla4
www.sitesdfsdfr.com/bla5

2. durchsucht der reihe nach die domains nach links aber nur nach Links die bestimmte wörter etnhalten. z.B. "ufo" und "init"

3. dann nur diese links in denen diese wörter enhalten sind in eine .txt datei abspeichern.

ich hoffe ihr könnt mir helfen.

danke!
Mitglied: 76109
11.06.2011 um 01:40 Uhr
Hallo mariogalaxy2!

Versuchs mal hiermit (Dateipfade anpassen):
01.
Option Explicit 
02.
 
03.
Const ImportFile = "E:\Test\ImportLinks.txt" 
04.
Const ExportFile = "E:\Test\ExportLinks.txt" 
05.
 
06.
Const READYSTATE_COMPLETE = 4 
07.
 
08.
Dim Fso, File, Text, TextZeile, Link 
09.
     
10.
Set Fso = CreateObject("Scripting.FileSystemObject") 
11.
     
12.
Set File = Fso.OpenTextFile(ImportFile) 
13.
     
14.
Text = Split(File.ReadAll, vbCrLf):  File.Close 
15.
     
16.
Set File = Fso.CreateTextFile(ExportFile) 
17.
      
18.
With CreateObject("InternetExplorer.Application") 
19.
    For Each TextZeile In Text 
20.
        If TextZeile <> "" Then 
21.
           .Navigate "http:\\" & TextZeile 
22.
            Do: Loop Until .ReadyState = READYSTATE_COMPLETE 
23.
             
24.
            For Each Link In .Document.Links 
25.
                If InStr(1, Link.HRef, "UFO", vbTextCompare) > 0 Or InStr(1, Link.HRef, "INIT", vbTextCompare) > 0 Then 
26.
                    File.WriteLine Link.HRef 
27.
                End If 
28.
            Next 
29.
        End If 
30.
    Next 
31.
    
32.
   .Quit 
33.
End With 
34.
 
35.
File.Close
Gruß Dieter
Bitte warten ..
Mitglied: mariogalaxy2
11.06.2011 um 10:46 Uhr
Hallo Dieter,

vielen Dank! Sie sind der beste!!! Alles funktioniert wunderbar!!!!!!!


Danke nochmal!!!
Bitte warten ..
Mitglied: Guenni
11.06.2011 um 17:53 Uhr
Hi mariogalaxy2,

das ist natürlich auch eine Strategie, eine Lösung serviert zu bekommen, ohne sich selbst zu bemühen:

Zuerst im Thema PHP posten, wenn man damit nicht zurecht kommt, na', da machen wir doch zum selben

Problem einen neuen Thread unter VBS auf. Irgendeiner wird sich schon finden, der's macht.

Glückwunsch


Gruß
Günni
Bitte warten ..
Mitglied: mariogalaxy2
11.06.2011 um 20:19 Uhr
also ich bin solchen menschen wie Dieter sehr dankbar, die helfen!!!
wie soll ich mich da zurechtkommen, wenn ich davon keine ahnung habe und auch keine zeit zum erlernen habe.
du hast gut reden günni. große klappe nichts dahinter!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
AD auslesen und in Variable speichern (VBS und HTA)
gelöst Frage von Borob14Batch & Shell4 Kommentare

Hallo zusammen, ich benötige einen Script der zu einem angegebenen User ein AD-Attribut ausliest und dieses in einer Variable ...

VB for Applications
Excel mit VBS bearbeiten und Speichern Unter
gelöst Frage von YannoschVB for Applications8 Kommentare

Hallo zusammen, stehe vor einer schnell zu lösenden Aufgabe & bin ein wenig überfordert. In einem Ordner mit ca. ...

VB for Applications
VBS - Vor- und Nachnamen auslesen
Frage von Ah3n0bar6usVB for Applications2 Kommentare

Ich könnte noch einmal (teuren) Rat gebracuhen. Ich versuche mir dem u.a. Script den kompletten Namen eines Nutzers vom ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen
Frage von joni2000deBatch & Shell4 Kommentare

Hallo zusammen, ich lese mit folgendem Code das Eventlog aus um die Druckjobs zu ermitteln. Das funktioniert auf dem ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 12 StundenLinux1 Kommentar

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 1 TagTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 1 TagSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 1 TagSicherheit9 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Sicherheit
Meltdown und Spectre: Die machen uns alle was vor
Information von FrankSicherheit24 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

Ubuntu
Ubuntu - Starter für nicht vertrauenswürdige Anwendungen
Frage von adm2015Ubuntu17 Kommentare

Hallo zusammen, Ich verwende derzeit die Ubuntu Versionen 17.10 bzw. im Test 18.04. Ich habe mehrere .desktop Dateien in ...

Netzwerke
Packet loss bei "InternetLeitungsvollauslastung"
gelöst Frage von Freak-On-SiliconNetzwerke17 Kommentare

Servus; Ja der Titel klingt komisch, is aber so. Wenn die Internetleitung voll ausgelastet ist, hab ich extreme packet ...

Windows 10
Automatische daten kopieren, USB zu USB unter Win10 im Hintergrund
Frage von DerEisigeWindows 1016 Kommentare

Hallo Leute, ich bin auf der Suche nach einem Skript, dass von einem USB Stick automatisch nach dem einstecken ...