Verwenden von Excel zum Erfassen von URL-Weiterleitungen

0

In Excel ist es möglich, eine Liste von URLs in Spalte A und eine Spalte B mit der URL der Seite, zu der Sie gelangen, automatisch aufzufüllen, wenn Sie auf den Link in Spalte A klicken.

(Ich möchte alle 301/302 Weiterleitungen überprüfen, die sich derzeit auf einer meiner Websites befinden.)

MarkP
quelle
Excel ist dafür nicht das Werkzeug. Sie wollen etwas wiecurl $1 -s -L -I -o /dev/null -w '%{url_effective}'
Darth Android

Antworten:

0

Linux wird hier eine große Hilfe sein:

Erstellen Sie eine Skriptdatei mit dem Namen fetch_redirects:

#!/bin/bash
while read url
do
    echo -n "$url,"
    curl "$url" -s -L -I -o /dev/null -w '%{url_effective}'
done < "${1:-/proc/${$}/fd/0}"

Stellen Sie sicher, dass Sie es als ausführbar markieren

Führen Sie dann unter Angabe einer Liste von URLs (eine pro Zeile) Folgendes aus urls.txt:

cat urls.txt | fetch_redirects > redirects.csv

Sie können dann redirects.csvin Excel oder einem anderen Tool öffnen , das CSV-Dateien unterstützt.

Darth Android
quelle
Bei Bedarf kann natürlich auch eine äquivalente Batch-Lösung mit curl.exe erstellt werden.
Karan
@ Karan Auf jeden Fall bitte in die Antwort neben dem Bash-Skript eintragen! :) Ich bin nur nicht so gut in Batch-Scripting. >. <
Darth Android
Möglicherweise später, obwohl es so aussieht, als würde das OP eine VBScript / VBA-Lösung vorziehen.
Karan
Ja bitte Karen.
MarkP
Ich habe Folgendes gefunden, das prüft, ob eine URL existiert (dh nach einem Statuscode von 200 sucht) Function HttpExists(sURL As String) As String Dim oXHTTP As Object Set oXHTTP = CreateObject("MSXML2.XMLHTTP") If Not UCase(sURL) Like "HTTP:*" Then sURL = "http://" & sURL End If On Error GoTo haveError oXHTTP.Open "HEAD", sURL, False oXHTTP.send HttpExists = IIf(oXHTTP.Status = 200, "Page is Live", "redirects or missing") Exit Function haveError: HttpExists = "redirects or missing" End Function
MarkP