Database Search

TechHome

User Samples

• !! Getting started with MSIE !!!
• !! Webpage Element Explorer !!
• Accessing Download File Dialog Box
• Accessing New IE Window
• Analyze HTML Sample Code
• Automate Input into Form
• Automate name change in Yahoo Mail Account
• BeforeNavigate2 Example
• Calander in MSIE
• Cannot Find Form Name
• Check a Radio Button on Web Page
• Check Checkbox in Web Page
• Check if URL is Open in IE
• Click Form Buttons
• Click on Button with No Name and No ID
• Click on Input Type Image
• Convert HTML Hex to Unicode String
• Dealing with iFrames
• Delete Temporary Internet Files Cache
• Determine if Check box is checked on Webpage
• DHMTL Type Ahead Search
• DHTML Download Webpage Complete
• DHTML Reference Link
• Display a Browser Print Preview Page
• Display data in a Columnar or Grid format
• Distinguish between IE window and a Windows Explorer window
• Download Complete Webpage
• Embed an Active X Object into MSIE
• Example of Using the IE Object Interface.
• Example of using the IE Object Interface
• ExecCommand Saveas dialog problem
• Execute a Java Script from a Webpage
• Execute JScript function via OLE
• Extract Column from HTML Table
• Fiind Unnamed Form
• Find a Link in a Webpage then Click on it
• Find Current MSIE Window Object Handle
• Fire a ONMOUSEOVER MSIE Event via Ole
• Geocoder Return Latitude and Longitude for an Address
• Get Current Open MSIE Screen
• Get Data From a Webpage
• Get Objects in MSIE Form
• Get page contents in IE
• Get text from HTML pages
• Get Webpage Links
• Getting an OLE document handle for an open MSIE window
• Gmail Login
• Go Back to Previous Web Page
• Grab Url of Active Window
• How to Access Frame Object in InternetExplorer
• How to Check a Checkbox When They All Have the Same Name
• How to Click on a URL link on a Web Page
• How to Launch IE with Several Tabs
• How to Test if Page is Loaded under IE4
• HTML Analysis
• HTML Extender Replacement code
• HTML to Text conversion with Internet Explorer 5
• IE Analyzer
• IE9 Click or Focus Methods Fail
• Ignore Java script code in webbpage
• Insert Data into IE Web Form INPUT Controls
• Internet Explorer No Title Bar Or Options
• Internet Explorer OLE Developer Scripts
• Inventory Frames
• Launch Application from HTML Page
• List Links on a Webpage
• Locate a String on a Webpage
• Log onto the WebBoard via OLE
• MSIE Context menu Example
• MSIE Download URL Example
• MSIE OLE Popup Killer
• Navigate Url Error
• OLE - Reading a web page
• OLE Event Examples
• OLE Get User Input from HTML Form
• OLE HTTPS Download with Client Certificate
• OLE MSIE Enter Userid and Password
• OLE MSIE Hints
• OLE to Return Links and Anchors on Webpage
• Open MSIE with OLE
• Quick Explanation of the Internet Application Object Model
• Read Java Script From a Web Page
• Reading Text in Multiple MSIE Frames
• Remove Title Bar from IE
• Save As Complete Web Page
• Saving data with MSIE and OLE
• See What Buttons Pushed in MSIE
• Select Option and Button Example
• Set Focus on HTML Form Control
• Setting Focus on an HTML Control
• SHDOCVW dll
• Spanish OLE-MSIE UDFs
• UAC Manifest Setting Triggers 1129 Error
• URL monitor
• Use DHTML to Create a Dialog to View a Report
• Users Collection of OLE MSIE Scripts
• Using MSIE from a WinBatch front end
• Using WB OLE to Automate MSIE and Dynamic HTML
• WebPage Inventory
• WebPage Link Lister
• WindowOnTop Problem With IE9
• Working with Multiple Tabs in Internet Explorer
• Zoom IE Window

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Get Data From a Webpage

Question:

I am looking for the price of 'pbcp'

Answer:

; Winbatch 2004F and MSIE 5...

#DefineSubRoutine startMSIE(url)
   Browser = ObjectOpen("InternetExplorer.Application")
   Browser.addressbar = @FALSE
   Browser.statusbar = @FALSE
   Browser.menubar = @FALSE
   Browser.toolbar = @FALSE
   browser.visible = @TRUE
   browser.navigate(url)
   ; wait until page loads...
   WaitForPageLoad()
   ; setup the document object...
   BrowserDoc = Browser.Document
   BrowserBody = BrowserDoc.Body 
   all = browserdoc.all
   Return(browser)
#EndSubRoutine

#DefineSubroutine WaitForPageLoad()  ; assume Browser
   While browser.busy || browser.readystate == 1
      TimeDelay(0.5)
   EndWhile
   While browser.Document.ReadyState != "complete"
      TimeDelay(0.5)
   EndWhile
   return
#EndSubroutine





url = "http://quote.bloomberg.com/apps/quote?ticker=pbcp"

br = startMSIE(url)

DaPrice = "Unknown"
PriceFound = @FALSE

TablesCollection = browserdoc.GetElementsByTagName("TABLE")
For x = 26 To 26    ;   bloomberg keeps the price info in the 27th table (26th for zero-based subscript)
   ThisTable = TablesCollection.item(x)
   CellsCollection = ThisTable.GetElementsByTagName("TD")
   For y = 0 To CellsCollection.length-1
      ThisCell = CellsCollection.item(y)
            SpanCollection = ThisCell.GetElementsByTagName("SPAN")
            If SpanCollection
               For z = 0 To SpanCollection.length-1 ;;
                  ThisSpan = SpanCollection.item(z)
                  If StrIndex(ThisSpan.innerText, "Price", 1, @FWDSCAN) ;<-- what we're looking for...
                     PriceValueSpan = SpanCollection.item(z+1)            ;<-- price is in the next span...
							PriceFound = @TRUE
                     DaPrice = PriceValueSpan.innerText
                     ObjectClose(PriceValueSpan)
                  EndIf
                  ObjectClose(ThisSpan)
               Next
               ObjectClose(SpanCollection)
            EndIf
      ObjectClose(ThisCell)
      If PriceFound Then Break
   Next
   ObjectClose(ThisTable)
   If PriceFound Then Break
Next

Message("Debug", DaPrice)

Exit

Article ID:   W16634

File Created: 2005:02:18:12:21:42

Last Updated: 2005:02:18:12:21:42