nend Posted March 24, 2009 Posted March 24, 2009 (edited) Just a small function voor getting the biography from a artist. CODE#include <INet.au3> $artist = "Drop kick murphys" ConsoleWrite(Get_biography($artist) & @CRLF) Func Get_biography($artist) $link = _INetGetSource ("http://www.last.fm/music/" & $artist & "/+wiki") $countstart = StringInStr($link, "<h1>Biography", 0, 1) + 139 $start = StringTrimLeft($link, $countstart) $total = StringLen($start) $countend = StringInStr($start, "-- #wiki -->", 0, 1) $Content = StringTrimRight($start, $total - $countend + 10) If $Content = "" Then Return EndIf $Content = StringStripCr($Content) $Content = StringRegExpReplace($Content, '<head>(.|\n)+?</head>','') $Content = StringRegExpReplace($Content, '<script>(.|\n)+?</script>','') $Content = StringRegExpReplace($Content, '<(.|\n)+?>','') $Content = StringReplace($Content, '<','<') $Content = StringReplace($Content, '>','>') $Content = StringReplace($Content, ' ',' ') $Content = StringReplace($Content, '©','©') $Content = StringReplace($Content, '‘','') $Content = StringReplace($Content, '’','') $Content = StringReplace($Content, '“','') $Content = StringReplace($Content, '”','') $Content = StringReplace($Content, '&','&') $Content = StringReplace($Content, '. ','. ' & @CRLF) $Content = StringReplace($Content, 'â','') $Content = StringReplace($Content, 'â','-') $Content = StringReplace($Content, '\r',' ') while StringInStr($Content,' ') $Content = StringReplace($Content, ' ',' ') wend $Content = StringReplace($Content, ' ' & @Lf,@Lf) while StringInStr($Content,@Lf & @Lf) $Content = StringReplace($Content, @Lf & @Lf, @Lf) wend $Content = StringStripWS($Content, 3) Return($Content) Endfunc Edited March 24, 2009 by nend
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now