(no subject)

[saint_monkey]

---

as of 3:38 pm, Livejournal is expressing the following moods.

blah 7%
awake 5%
bored 5%
giddy 4%
happy 4%
amused 3%
annoyed 3%
artistic 3%
bouncy 3%
calm 3%
confused 3%
contemplative 3%
creative 3%
depressed 3%
good 3%
hopeful 3%
okay 3%
satisfied 3%
various other moods. 39%

---

currently playing:

"The Lost Souls"- Afi
My Chemical Romance- Im Not Okay (I Promise)
Some Say Love--King Singers
Drunken Lullabies
DANCE LIKE THIS-WYCLEF JEAN FEAT. CLAUDETTE ORTIZ
Jump, Little Children - Darkest Love
lit-perfect one
Linkin Park
The All-American Rejects - Drive Away
HOT HOT HOT
oddly enough--> Mambo #5
Slipknot- Wait and Bleed
Underoath
the dillinger escape plan - setting fire to sleeping giants
Queen - Bicycle Race
Letting The Cables Sleep by Bush
imperial teen - mr. & mrs.
the music of her soul in my head
somthing from the I Have No Clue "CD" cd
"blade theme techno remix"--rammstein
beach boys - surfing USA
elton john
Eve 6
[album] Arvo Pärt - Tabula Rasa
hawthorne heights (i love them)
Elvenking - White willow
whrrrrrr goes the a/c
salt shaker..
Come Sail Away ~ Styx
Prince - There Is Lonely
Curbside Prophet - Jason Mraz
I got nothin
Erica//project Wyze
The Foil - Harry and the Potters
Angel theme song has been stuck in my head all day! yay!
U.S.E. (United State Of Electronica): Emerald City
Ария - Я свободен
"Do Not Adjust Your Life" by Chumbawamba
The Toasters- Decision at Midnight
sOMEthing by Seether
Mariah - Butterfly
the clock, typing, cars, dogs... stuff
Seether ft. Amy Lee - Broken
The Who's Tommy
none because i'm putting stuff on it... not playing it
SlipKnot:The Virus Of Life
somebody to love
yellowcard stuck in the head
"Randi Rhodes Show"
nothing at the moment
metric - succexy
"Toxic" by Brittney Spears
Evanescence - My Immortal
Jamie Cullum- "All At Sea"
mel yellin
105.3 Commercials
slackers- i love you but i hate you
Rollins Band - Disconnect
Missing - Evanescence
Usher- Yeah
Deadsy - She Likes Big Words
Ashlee Simpson-Pieces of Me
Lynyrd Skynyrd - Sweet Home Alabama
Chess Someone Else's Story
lets get it startedd
scanner on DNC frequencies
King 5 News at noon
Five For Fighting - Superman
in the begining - children of eden
Eminem - Stan (Yes, EMINEM!)
Pieces of Me~ Ashlee Simpson
the early november- "ever so sweet"
The Supersuckers - Bubble Gum And Beer
her space holiday
Limp Bizkit - Counterfeit
downfall
De La Soul "3 Feet High and Rising"
None

---

and finally, in case you were interested, the VBA for "blatherizer" i split a few > 80 char lines, they should work, but if it bombs, email me and I'll help. -srz

'BEGIN CODE
Sub PollLj()
On Error Resume Next
' take the text of your post, and
'1) copy it from your text editor
'2) "pastespecial" as text into cell "A1" of a worksheet
'3) call this macro (tools , macro, macros choose this macro and "run")
home = ThisWorkbook.Name
Count = 1

entrybook = ActiveWorkbook.Name
entry = ActiveSheet.Name
'read the journal entry and split it into cells
lrp = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Range("A1:a" & lrp).Select

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False

' pull the latest posts from livejournal.
' needs an active internet connection.
Windows(home).Activate

Sheets.Add
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
' this will remove blanks, a small XML header, and a small XML footer
Range("A1").Select
lr = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
Range("A1:A" & lr).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=*<rdf:li resource=*", Operator _
:=xlAnd
Selection.SpecialCells(xlCellTypeVisible).EntireRow.Delete
Range("A1:A6").Select
Selection.EntireRow.Delete
endodata = Range("A" & Range("a1").SpecialCells(xlCellTypeLastCell).End(xlUp).Row).Row
Range("A" & (endodata - 5), "A" & endodata).EntireRow.Delete

Windows(entrybook).Activate

Sheets.Add
bench = ActiveSheet.Name
For gsize = 5 To 0 Step -1

Sheets(entry).Activate
'reset usedrange (only needed in excel version 95 and 97)
Worksheets(ActiveWorkbook.ActiveSheet.Name).UsedRange
Set newRng = Worksheets(ActiveWorkbook.ActiveSheet.Name).UsedRange

lrp = Range("A1").SpecialCells(xlCellTypeLastCell).Address
Range("A1", lrp).Select
For Each word In Selection
If word.Interior.ColorIndex <> 15 Then
If word.Value <> Empty Then

For x = 0 To gsize
cnct = cnct & " " & Range(word.Address).Offset(0, x).Value
Next x

Windows(home).Activate
Range("A1").Select
Cells.Find(What:=cnct, After:=ActiveCell, MatchCase:=False).Select

If ActiveCell.Address <> "$A$1" Then
fund = ActiveCell.Value

Do Until m = "<link>"
m = Left(ActiveCell.Offset(cnt, 0).Value, 6)
If cnt > lr Then Exit Do
cnt = cnt 1
Loop

m = ""
link = ActiveCell.Offset(cnt - 1, 0).Value
cnt = 0

link = Right(link, (Len(link) - 6))
link = Left(link, (Len(link) - 7))
link = Right(link, (Len(link) - 7))
link = "http://" & link
'strip html specifics that will 'interrupt' the "title" attr we will create
fund = Application.WorksheetFunction.Substitute(fund, "<", "")
fund = Application.WorksheetFunction.Substitute(fund, ">", "")
fund = Application.WorksheetFunction.Substitute(fund, "/", "")
fund = Application.WorksheetFunction.Substitute(fund, "\", "")
fund = Application.WorksheetFunction.Substitute(fund, "&gt;", "")
fund = Application.WorksheetFunction.Substitute(fund, "&lt;", "")
fund = Application.WorksheetFunction.Substitute(fund, "&apos", "")
fund = Application.WorksheetFunction.Substitute(fund, "&quot;", "")
fund = Application.WorksheetFunction.Substitute(fund, cnct, Chr(42) & Chr(42) & _
chr(42) & cnct & Chr(42) & Chr(42) & Chr(42))

Windows(entrybook).Activate
Sheets(entry).Select
'& " title = " & Chr(34) & fund & Chr(34)
Range(word.Address, Range(word.Address).Offset(0, gsize).Address).Interior.ColorIndex = 15
Range(word.Address).Value = "<A href=" & Chr(34) & link & Chr(34) & " title = " _
& Chr(34) & fund & Chr(34) & ">" & cnct & "</A>"
If gsize > 0 Then Range(Range(word.Address).Offset(0, 1).Address, _
Range(word.Address).Offset(0, gsize).Address).Value = ""
Else
fund = ""
link = ""
End If

Windows(entrybook).Activate
Sheets(bench).Select

Range("a" & Count).Value = cnct
Range("b" & Count).Value = fund
Range("c" & Count).Value = link
Count = Count 1
Sheets(entry).Activate
End If
End If
cnct = ""

Next word
Next gsize
' at the end of this macro you should put the cursor in cell
' A1 and hit CNTL Shift End, which will highlight everything
' from the first to the last data bearing cell.
' this can be pasted into a livejournal.com/update.bml textbox
' and the resulting post should be indistinguishable from a
' normal entry, except it will be "blatherized."
End Sub
' END CODE

---