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!