URL पुनर्निर्देशित करने के लिए एक्सेल का उपयोग करना

Question

Excel में, स्तंभ A में URL की सूची होना संभव है और स्तंभ A के लिंक पर क्लिक करने पर आपको प्राप्त पृष्ठ के URL के साथ एक कॉलम B ऑटो-पॉप्युलेट होना चाहिए।

(मैं अपनी सभी साइटों पर वर्तमान में सभी 301/302 रीडायरेक्ट का ऑडिट करना चाहूंगा)

Comments

एक्सेल इसके लिए उपकरण नहीं है। आप कुछ ऐसा चाहते हैंcurl $1 -s -L -I -o /dev/null -w '%{url_effective}'

— डार्थ एंड्रॉइड

Answer 1

लिनक्स यहाँ एक बड़ी मदद होगी:

नामक एक स्क्रिप्ट फ़ाइल बनाएँ 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}"

_{इसे निष्पादन योग्य चिह्नित करना सुनिश्चित करें}

फिर, url की सूची दी गई, प्रति पंक्ति एक urls.txt, निष्पादित करें:

cat urls.txt | fetch_redirects > redirects.csv

फिर आप redirects.csvएक्सेल या किसी अन्य उपकरण में खोल सकते हैं जो CSV फ़ाइलों का समर्थन करता है।

Comments

यदि आवश्यक हो तो curl.exe का उपयोग करके एक समान बैच समाधान भी पकाया जा सकता है।

— करण

@ करन हर तरह से कृपया इसे बाश स्क्रिप्ट के बगल में उत्तर में संपादित करें! :) मैं सिर्फ बैच स्क्रिप्टिंग में पारंगत नहीं हूं। >। <

— डार्थ एंड्रॉइड

ऐसा बाद में भी हो सकता है, हालाँकि ऊपर के हाल के संपादन से ऐसा लग रहा है कि ओपी एक VBScript / VBA समाधान पसंद करेगा।

— करण

हाँ कृपया करेन।

— मार्कपी

मैंने निम्नलिखित पाया है जो यह देखने के लिए जाँच करता है कि क्या कोई URL मौजूद है (अर्थात 200 का स्टेटस कोड खोज रहा है) 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