need help to get variables from web to program
can anyone help me with code for program who would take name, price and end time from for example http://www.aukcije.hr/item.php?id=768168, (for example name is USB memory stik 1GB novi, price Trenutna cijena : 60,00 kn and end time Aukcija završava za : 9 dana, 23h:27m:15s), i have maked code but it dosnt work like it should :S
Imports System.Net
Imports System.Data
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Public Shared Function GetPageAsString(ByVal address As String) As String
Dim request As HttpWebRequest
Dim response As HttpWebResponse = Nothing
Dim reader As StreamReader
Dim result As String
Try
Try
' Create the web request
request = DirectCast(WebRequest.Create(address), HttpWebRequest)
' Get response
response = DirectCast(request.GetResponse(), HttpWebResponse)
' Get the response stream into a reader
reader = New StreamReader(response.GetResponseStream())
' Read the whole contents and return as a string
result = reader.ReadToEnd()
Finally
If Not response Is Nothing Then response.Close()
End Try
Catch ex As Exception
End Try
Return result
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = GetPageAsString(TextBox1.Text) '<-url
Dim str1 As String = " <td height=""25"" valign=""top"" bgcolor=""#f3f3f3"">"
Dim str2 As String = "</td>"
' Declare iteration variable
Dim s As String
' Loop through words in string
Dim arr As String() = SplitWords(TextBox2.Text)
' Display each word. Note that punctuation is handled correctly.
For Each s In arr
Dim b As Integer = 0
Dim a As String = s
If a = "Trenutna" Then b += 1
If a = "kn</span>" Then b += 1
If b > 0 Then TextBox3.Text += a
If b = 2 Then GoTo bbb
Next
bbb:
End Sub
Private Function SplitWords(ByVal s As String) As String()
Return Regex.Split(s, "\W+")
End Function
End Class