Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 340,165 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 3,951 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Get the selling price of an eBay Item

Returns a string representation of the price of an eBay item.

Submitted By: RodgerB

Actions:

Rating:

Views: 2,279

Language: VB.NET

Last Modified: December 11, 2007

Instructions: 1) Copy and Paste the Function into a Class.
2) Read how to call the function below.

Snippet

''' <summary>
''' Gets the price of the ebay item getting sold.
''' </summary>
''' <param name="URL">The URL to get the price from.</param>
''' <returns>A String Result of the cost of the item.</returns>
''' <remarks></remarks>
Public Function getEbayPrice(ByRef URL As String) As String
' Declare the variables
Dim wrq As Net.WebRequest = Net.WebRequest.Create(URL)
Dim wrp As Net.WebResponse = wrq.GetResponse()
Dim sr As IO.StreamReader = New IO.StreamReader(wrp.GetResponseStream())
Dim Line As String = sr.ReadLine()
' Loop through and find the HTML line with the value we need.
' When we find it, we will remove the text we don't need, resulting
' in the selling price.
Do Until Line Is Nothing
If Line.Contains("DetailsCurrentBidValue") Then
Line = Line.Remove(0, InStr(Line, "DetailsCurrentBidValue") + 47)
Line = Line.Remove(InStr(Line, "<") - 2)
sr.Close()
wrp.Close()
Return Line
End If
Line = sr.ReadLine
Loop
' Clean Up.
sr.Close()
wrp.Close()
' Return False because we didn't find the value.
Return False
End Function
' Example usage of the function.
MessageBox.Show(getEbayPrice("http://cgi.ebay.com/Cute-BFF-LOL-BRB-Chat-Texting-Hot-Topic-Emo-T-Shirt-Tee_W0QQitemZ120192899461QQihZ002QQcategoryZ63869QQssPageNameZWDVWQQrdZ1QQcmdZViewItem"))

Copy & Paste

''' <summary>
    ''' Gets the price of the ebay item getting sold.
    ''' </summary>
    ''' <param name="URL">The URL to get the price from.</param>
    ''' <returns>A String Result of the cost of the item.</returns>
    ''' <remarks></remarks>

Public Function getEbayPrice(ByRef URL As String) As String
    ' Declare the variables
    Dim wrq As Net.WebRequest = Net.WebRequest.Create(URL)
    Dim wrp As Net.WebResponse = wrq.GetResponse()
    Dim sr As IO.StreamReader = New IO.StreamReader(wrp.GetResponseStream())

Dim Line As String = sr.ReadLine()

' Loop through and find the HTML line with the value we need.
    ' When we find it, we will remove the text we don't need, resulting
    ' in the selling price.
    Do Until Line Is Nothing
        If Line.Contains("DetailsCurrentBidValue") Then
            Line = Line.Remove(0, InStr(Line, "DetailsCurrentBidValue") + 47)
            Line = Line.Remove(InStr(Line, "<") - 2)
            sr.Close()
            wrp.Close()
            Return Line
        End If
        Line = sr.ReadLine
    Loop

' Clean Up.

sr.Close()
    wrp.Close()

' Return False because we didn't find the value.
    Return False
End Function

' Example usage of the function.
MessageBox.Show(getEbayPrice("http://cgi.ebay.com/Cute-BFF-LOL-BRB-Chat-Texting-Hot-Topic-Emo-T-Shirt-Tee_W0QQitemZ120192899461QQihZ002QQcategoryZ63869QQssPageNameZWDVWQQrdZ1QQcmdZViewItem"))