[HELP] Parsing multiple items

from WinCustomize Forums
I'm working on a Yellow Pages widgets and have been able to get info from the website but now I'm having trouble getting multiple entries to display. I've tried looking at the newsfeed widget which helped me get this far but as the results aren't in XML i can't use the xmlstripper function.

Any help would be much appreciated. Thankyou.

Code
  5. Sub Object_OnScriptEnter
  7. Object.SetTimer 568,600000
  11. 'Clean widget for startup
  13. DesktopX.Object("widget_phonebook_name").Text = "---"
  15. DesktopX.Object("widget_phonebook_number").Text = ""
  17. DesktopX.Object("widget_phonebook_address").Text = ""
  21. DesktopX.Object("widget_phonebook_name2").Text = "---"
  23. DesktopX.Object("widget_phonebook_number2").Text = ""
  25. DesktopX.Object("widget_phonebook_address2").Text = ""
  29. DesktopX.Object("widget_phonebook_name3").Text = "---"
  31. DesktopX.Object("widget_phonebook_number3").Text = ""
  33. DesktopX.Object("widget_phonebook_address3").Text = ""
  37. DesktopX.Object("widget_phonebook_listingno").Text = "- of -"
  41. Object_OnTimer568
  43. End Sub
  47. Sub Object_OnTimer568
  49. If System.InternetConnected Then
  53. postcode = DesktopX.Object("widget_phonebook_postcode").Text
  55. businessname = DesktopX.ScriptObject("widget_phonebook_businessname").Control.Text
  59. Set http = CreateObject("Microsoft.XmlHttp")
  61. http.Open "GET", "http://www.yellowpages.com.au/search/postSearchEntry.do?businessType=&businessName=" & businessname & "&locationClue=" & postcode & "&serviceArea=true", False
  63. http.send ""
  67. phonedata = http.responseText
  69. phonedata = Replace(phonedata, Chr(34), "")
  71. phonedata = Replace(phonedata, "&", "&")
  73. phonedata = Replace(phonedata, "'", "'")
  75. htmlstring = ""
  79. '----
  83. 'Strips the searched business info from webpage
  85. If InStr(phonedata, "listingDets") > 0 Then
  87. phoneinfo = Mid(phonedata, InStr(phonedata, "listingNotes"), 1000)
  89. End If
  93. 'Calls business name
  95. If InStr(phonedata, "namefree") > 0 Then
  97. phonename = Mid(phoneinfo, InStr(phoneinfo, "namefree"),500)
  101. 'Gets length of searched business
  103. tempname = InStr(10, phonename, "<")
  105. namelen = Len(tempname)
  109. 'Sets business name
  111. phonename = Mid(phonename, 10, tempname - 10)
  115. If Len(phonename) > 15 Then
  117. phonename = Mid(phonename, 1, 15) & " ..."
  119. End If
  123. DesktopX.Object("widget_phonebook_name").Text = phonename
  125. End If
  129. '----
  133. 'Calls business number
  135. If InStr(phonedata, "ph:") > 0 Then
  137. phonenumber = Mid(phonedata, InStr(phonedata, "ph:"),50)
  141. 'Gets length of business number
  143. tempnumber = InStr(5, phonenumber, " ")
  145. numberlen = Len(tempnumber)
  149. 'Sets business number
  151. phonenumber = Mid(phonenumber, 5, tempnumber - 5)
  153. DesktopX.Object("widget_phonebook_number").Text = phonenumber
  155. End If
  159. '----
  163. 'Send business address
  165. If InStr(phonedata, "listingInfo") > 0 Then
  167. phoneaddress = Mid(phonedata, InStr(phonedata, "listingInfo"),100)
  171. 'Gets length of business address
  173. tempaddress = InStr(13, phoneaddress, "<")
  177. 'Sets business address
  179. phoneaddress = Mid(phoneaddress, 13, tempaddress - 13)
  181. DesktopX.Object("widget_phonebook_address").Text = phoneaddress
  183. End If
  187. 'Sends number of business listings
  189. If InStr(phonedata, "listingCount") > 0 Then
  191. phonecount = Mid(phonedata, InStr(phonedata, "listingCount"),100)
  195. 'Gets length of business address
  197. tempcount = InStr(14, phonecount, "<")
  201. 'Sets business address
  203. phonecount = Mid(phonecount, 14, tempcount - 14)
  205. DesktopX.Object("widget_phonebook_listingno").Text = phonecount
  207. End If
  211. End If
  215. End Sub
  219. 'Called when the script is terminated
  221. Sub Object_OnScriptExit
  225. End Sub
desktopx
2,763 views 0 replies