Good morning all!
I had a quiet evening. My youngest daughter called from camp again and is still begging to come home. Jean is suppose to go get her today but we shall see. The nurse said she is having fun so who knows what might happen.
I spent a good portion of the evening organizing my music files for my Zune. To this point I have just thrown everything into a single playlist and hit the shuffle button. But yesterday I went out and bought an exercise machine (no nothing to do with me turning ….. 29 …. LOL) and realized I would need a playlist for music that would go well with a workout. (By the way if you have suggestions for that kind of music I would love to hear them) so I began organizing them into different playlists. Wow you never realize how much music you have till you start going through it all! As I was playing snippets of lots of the songs of course Jean just looked at me like I was crazy. Everything from the Beastie Boys to Streisand………..I know I know fit me for a strait jacket!
Public Sub ExtractLinks(ByVal sText As String)
Dim r As New Regex("(?i)href=\s*\x22*(?<save>.+?)[\s>\x22]")
Dim mc As MatchCollection = r.Matches(sText)
Dim m As Match
For Each m In mc
Dim s As String = m.Groups("save").Value
If s.IndexOf("#") <> 0 Then