Thread: Free Link Stripper for links2rss

Hi Guys,

Not sure how many of you out there use links2rss for creating rss feeds out of all of your backlinks, but it's something I've recently started doing.

When you're doing this for hundreds of backlinks, I found it really tiresome in order to actually get a list of all of the URLs produced as sometimes there's hundreds of feeds and manually copying each link into another file is annoying and a waste of resource.

I've just created a very simple excel macro to run through a list and strip out the urls - so you can have quick and easy access to the urls to do whatever you need to do with them (i.e. submitting them elsewhere)

This may not be of use to anyone at all, but I thought I'd share it as I'd done it and I know it'll save me time if no one else!! Here is the very basic code:

Code:

Sub RSSStripURL()
Application.ScreenUpdating = False

messager = MsgBox("Have you copied the source code of the links2rss.com feeds?", vbYesNo, "Continue?")
If messager = vbNo Then GoTo ending

Cells.Clear
On Error GoTo pasteerror
Range("A1").Select
ActiveSheet.Paste
On Error GoTo 0

'run through
LastRow = ActiveSheet.UsedRange.Rows.Count
Row = 1

Do Until Row = LastRow + 1
    If Left(Cells(Row, 1), 4) <> "Feed" Then
    Cells(Row, 1).Delete shift:=xlUp
    LastRow = ActiveSheet.UsedRange.Rows.Count
    Else
    Cells(Row, 2).Formula = "=GetAddress(A" & Row & ")"
    Row = Row + 1
    End If

Loop

'success
messager = MsgBox("Succesfully completed!", vbOKOnly, "Success!")
GoTo ending

'errors
pasteerror:
messager = MsgBox("Unable to paste - are you sure the data is on the clipboard?", vbOKOnly, "Error")
GoTo ending

'ending
ending:
Application.ScreenUpdating = False
End Sub

Function GetAddress(HyperlinkCell As Range)
GetAddress = Replace(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function

To use this, you simply paste into any module within your Visual Basic Editor in Excel (Alt F11). I have mine added to my own add-in menu so I can simply select the macro from the Excel toolbar which again, makes the process even more efficient! A simple guide to adding the macro into your Excel workbook can be found here: http://www.contextures.com/xlvba01.html

Anyway, if this is of any relevance/use - enjoy!

This is nice ! Could you make a small tutorial for how to do it ? I'm not good with Excel and I'm sure they are plenty of others who are same.

PS- ahh figured out.

Lee thanks for this help, I love it, let me check it out, if I get an error I will contact you