Get Text from MySpace Music show listings

[TheVig]

For example...here is one of my friends show listing page for myspace:
http://collect.myspace.com/index.cfm?fus...=294756645

Code:

Copy      Help

str friendID="294756645"
str url.format("http://collect.myspace.com/index.cfm?fuseaction=bandprofile.listAllShows&friendid=%s" friendID)
HtmlDoc d.InitFromWeb(url)
str s=d.GetHtml

HTML Looks like this for each entry:

Code:

Copy      Help

                            <hr color="#6699CC" width="100%" align="center" size="2" noshade />
                        
                            <table width="615" border="0" cellspacing="0" cellpadding="0" align="center">

                                <form action="http://events.myspace.com/index.cfm?fuseaction=mycalendar.saveevent&Mytoken=B35A30A0-8423-4E67-BB97557CB3C82B83906290030" method="post">
                                <input type="hidden" name="calEvtLocation" value="The Cup in Staten Island, NY">
                                <input type="hidden" name="calEvtTitle" value="Joey Figgiani at The Cup in Staten Island, NY">
                                
                                    <input type="hidden" name="calEvtStreet" value="388 Van Duzer Street">
                                
                                
                                    <input type="hidden" name="calEvtCity" value="Staten Island">
                                
                                <input type="hidden" name="calEvtState" value="New York">
                                <input type="hidden" name="calEvtZip" value="10304">
                                <input type="hidden" name="calEvtDateTime" value="01-22-2009 19:00">
                                <input type="hidden" name="fuseout" value="mycalendar">

                                <tr valign="top">
                                    <td><b>
                                    
                                            January, 22 2009
                                     07:00 PM</b> - <b>The Cup in Staten Island, NY</b></td>
                                    <td rowspan="2" align="right"><input type="Submit" value="Add to My Calendar" style="background-color:6699CC; border-width:1px; width:150 px; border-left-color:AEE4FF; border-top-color:AEE4FF; border-bottom-color:003366; border-right-color:003366; color:FFFFFF; font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; font-weight:bold;"></td>
                                </tr>
                                <tr valign="top">
                                    <td>388 Van Duzer Street, Staten Island, New York 10304 - FREE<br /><br />The first of many collective projects for me and my buddy, Steve and my first in NY in two years.  Hope to see you there...</td>

                                </tr>
                                </form>
                            </table>

Important stuff a little more clearly from HTML above:

Code:

Copy      Help

<input type="hidden" name="calEvtLocation" value="The Cup in Staten Island, NY">
<input type="hidden" name="calEvtTitle" value="Joey Figgiani at The Cup in Staten Island, NY">
<input type="hidden" name="calEvtStreet" value="388 Van Duzer Street">
<input type="hidden" name="calEvtCity" value="Staten Island">
<input type="hidden" name="calEvtState" value="New York">
<input type="hidden" name="calEvtZip" value="10304">
<input type="hidden" name="calEvtDateTime" value="01-22-2009 19:00">

Need to format each listing into a database of my own

Code:

Copy      Help

#compile CSqlite
;;NOTE For sBand the HTML contains the band name in the calEvtTitle with the calEvtLocation
;;sBand=calEvtTitle-calEvtLocation
;;Description and Cost look like they will be a little more difficult to grab.

str dbfile="$desktop$\Shows.db"
str sql

str sBand calEvtDateTime calEvtLocation calEvtStreet calEvtCity calEvtZip calEvtState sCost sDescription

CSqlite db1.Open(dbfile)
db1.Exec("CREATE TABLE IF NOT EXISTS 'Shows' ('Band','DateTime,'Venue','Address','City','Zip_Code','State','Cost','Description'")
sql.format("INSERT INTO 'Shows' VALUES ('%s','%s','%s','%s','%s','%s','%s','%s','%s')" 'sBand calEvtDateTime calEvtLocation calEvtStreet calEvtCity calEvtZip calEvtState sCost sDescription')
db1.Exec(sql)

Need all of the gigs on the schedule to be inputed into the database...this is way above me right night, but I am anxious to learn
Thanks,
Jimmy Vig