saint_monkey

calm 6%
awake 6%
happy 4%
tired 4%
bored 4%
busy 4%
contemplative 3%
excited 3%
indescribable 3%
bouncy 3%
crappy 3%
worried 3%
aggravated 1%
discontent 1%
cynical 1%
crazy 1%
energetic 1%
irritated 1%
blank 1%
apathetic 1%
giddy 1%
thankful 1%
nervous 1%
exhausted 1%
irate 1%
pissed off 1%
satisfied 1%
sore 1%
stressed 1%
gloomy 1%
drained 1%
determined 1%
restless 1%
curious 1%
dont know 1%
nostalgic 1%
okay 1%
silly 1%
refreshed 1%
Ow 1%
embarrassed 1%
cranky 1%
working 1%
accomplished 1%
blah 1%
List-ish 1%
chipper 1%
i change in an instant 1%

The Velvet Underground - Heroin
daikenai - ddr .....its stuck in my head
Maury
fe fe
the good morning song from singing in the rain
In the Spring Time of His Voodoo ~ Tori
lawn mower and air conditioner
Massive Attack - Butterfly Caught
Ben Harper- Sexual Healing
I Hate Everything About You - Three Days Grace
Office noises and 'I Eat Cannibals' in my head, thanks to R
none
Taboo - Stranger in This World
some bands i've never heard of lol
Joss Stone - The Chokin' kind
Set phasers to stun- TBS
cartoon network nonstop
Catch 22
Lonestar - I'm Already There
Damn I Wish I Was Your Lover - Sophie B. Hawkins
Vindicated Dashboard Confessionals
HIM - Join me in Death
Rancid: Ruby so hoe.
classical cds (variety)
Me crunching a Sonic breakfast against my better judgment...
none
Brand New Lover - Dead Or Alive
Our Lips Are Sealed
me eating corn flakes & a dog barking in the distance
Billy Talent - River Below
Help! She can't swim - Knit one pearl one
The Beatles-Let It Be
garbage- cherry lips
Eulogy - Tool
Track 2 (Dungeon Music) --- Baldur's Gate Soundtrack
kmfdm-godlike
Rain on the windowsill
Huckapoo: Crash The Party
Confessions-Usher
addiceted to you - simple plan
ann richards on c-span
"We need a resolution" Aaliyah
ashlee simpson- surrender
tear drops falling from the aborted fetuses in heaven (WTF? -steffan)
license and registration--death cab
taking back sunday-slowdance on the inside
The Beatles - I'm A Loser
Dr. Phil. Damn Texan.
Silk - Track06
Slipknot - bitchslap
Vindicated - BSO Spiderman2
The Flash Girls, 'Ride On.'
"she will be loved" - maroon 5
James Last - Paintings
Battle of Evermore, Led Zeppelin
thug pit
Ben Kweller: On My Way
end of all things
Helplessly Hopeing - CSNY
Sasha ~AirDrawnDagger~
Pieces Of Me--Ashlee Simpson
pg 99
Lifehouse ~ Spin
"You're So Vain"- Carly Simon
When the Rain Falls // Zetta Bytes
One moment to live
I'm afraid of Americans ~ David Bowie & Nine Inch Nails

When someone listed "tear drops falling from the aborted fetuses in heaven" as thier music choice, I found myself wondering who would list it, and what they were talking about, but by the time I polled livejournal again, the post had dropped off of the "latest" feed.

Unacceptable.

So I modified the code to track back to the links, and create its output as a hyperlink to the original entry, never more will we wonder who the heck listens to aborted fetus tears:

modified code:

'Begin code
Sub lj_musica()
On Error Resume Next
Sheets.Add
pollresults = ActiveSheet.Name
Sheets.Add
music = ActiveSheet.Name
Sheets(pollresults).Activate
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.livejournal.com/stats/latest-rss.bml", Destination:=Range( _
"A1"))
.PostText = "Livejournal Latest XML"
.Name = False
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.HasAutoFormat = True
.RefreshOnFileOpen = 0
.BackgroundQuery = False
.TablesOnlyFromHTML = True
.SaveData = True
.Refresh BackgroundQuery:=False

End With
'filter out everything but the posts themselves
Range("A1").Select
lr = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
Range("A1:A" & lr).Select

Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=<lj:music>*", Operator:=xlAnd
Count = 1
For Each Match In Selection.SpecialCells(xlCellTypeVisible)
If Match.Address <> "$A$1" Then

rawlink = Empty
count2 = 0
Do Until Left(rawlink, 6) = "<link>:"
count2 = count2 + 1
rawlink = Range("a" & (Match.Row - count2)).Value
If Left(rawlink, 6) = "<link>" Then
trimdlink1 = Right(rawlink, Len(rawlink) - 6)
Musiclink = Left(trimdlink1, (Len(trimdlink1) - 7))
End If
Loop

Sheets(music).Activate
Range("A" & Count).Value = Match.Value
Range("F" & Count).Value = Musiclink
Count = Count + 1
Sheets(pollresults).Select
End If
Next Match

Sheets(music).Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=">"
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="<"
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft

Columns("A:A").EntireColumn.AutoFit

Range("A1").Select
lr = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
Range("A1:A" & lr).Select

For Each song In Selection
Range(song.Address).Value = "<a href=" & Chr(34) & _
Range("d" & song.Row).Value & _
Chr(34) & ">" & Range(song.Address).Value & "</a>"
Next song

Columns("B:G").Select
Selection.Delete Shift:=xlToLeft
End Sub
'END CODE