currently i need to develop an
application that can exctract information from few website..
this is what i have done up until now..
Imports System
Imports System.Text.RegularExpressions
Imports System.IO
Imports System.Net
Imports System.Web
Imports System.Data.SqlClient
Imports System.Threading
Imports System.Data.DataSet
Imports System.Data.OleDb
Module module1
Dim url As String
Dim hotelName As String = ""
Sub Main()
Dim url As String = ""
Console.Write("enter url: ")
url = Console.ReadLine()
extractor(url)
End Sub
Public Sub extractor(ByVal url As String)
Dim strConn As String = "Data Source = localhost; Initial Catalog = knowledgeBase; Integrated Security = True; Connection Timeout = 0;"
Dim conn As SqlConnection = New SqlConnection(strConn)
conn.Open()
Dim strSQL1 As String
Dim matchStn1 As String = ""
Dim matchstn2 As String = ""
Dim matchstn3 As String = ""
Dim matchstn4 As String = ""
Dim matchstn5 As String = ""
Dim matchstn6 As String = ""
Dim matchstn7 As String = ""
Dim matchstn8 As String = ""
Dim matchstn9 As String = ""
Dim matchstn10 As String = ""
Dim objRequest As WebRequest = HttpWebRequest.Create(url)
Dim objResponse As WebResponse = objRequest.GetResponse()
Dim objStreamReader As New StreamReader(objResponse.GetResponseStream())
Dim strpage As String = objStreamReader.ReadToEnd
Dim RegExStr As String = "<[^>]*>"
Dim R As New Regex(RegExStr)
Dim sourcestring As String = strpage
Dim re As Regex = New Regex("<h2 class=""name hotel""[^>]*>[\s\S]+?</h2>")
Dim mc As MatchCollection = re.Matches(sourcestring)
Dim mIdx As Integer = 0
For Each m As Match In mc
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchStn1 = m.Groups(groupIdx).Value
matchStn1 = R.Replace(matchStn1, " ")
matchStn1 = matchStn1.Trim()
Next
mIdx = mIdx + 1
Next
Dim re9 As Regex = New Regex("<li class=""cuisine""[^>]*>[^>]+</li>")
Dim mc9 As MatchCollection = re9.Matches(sourcestring)
Dim mIdx9 As Integer = 0
For Each m As Match In mc9
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchstn9 = m.Groups(groupIdx).Value
matchstn9 = R.Replace(matchstn9, " ")
matchstn9 = matchstn9.Trim()
Next
mIdx = mIdx + 1
Next
Dim re2 As Regex = New Regex("<span class=""street-address""[^>]*>[^>]+</span>")
Dim mc2 As MatchCollection = re2.Matches(sourcestring)
Dim mIdx2 As Integer = 0
For Each m As Match In mc2
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchstn2 = m.Groups(groupIdx).Value
matchstn2 = R.Replace(matchstn2, " ")
matchstn2 = matchstn2.Trim()
Next
mIdx2 = mIdx2 + 1
Next
Dim re3 As Regex = New Regex("<span class=""locality""[^>]*>[\s\S]+?</span>")
Dim mc3 As MatchCollection = re3.Matches(sourcestring)
Dim mIdx3 As Integer = 0
For Each m As Match In mc3
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchstn3 = m.Groups(groupIdx).Value
matchstn3 = R.Replace(matchstn3, " ")
matchstn3 = matchstn3.Trim()
Next
mIdx3 = mIdx3 + 1
Next
Dim re4 As Regex = New Regex("<span property=""v:postal-code""[^>]*>[\s\S]+?</span>")
Dim mc4 As MatchCollection = re4.Matches(sourcestring)
Dim mIdx4 As Integer = 0
For Each m As Match In mc4
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchstn4 = m.Groups(groupIdx).Value
matchstn4 = R.Replace(matchstn4, " ")
matchstn4 = matchstn4.Trim()
Next
mIdx4 = mIdx4 + 1
Next
Dim re5 As Regex = New Regex("<span class=""country-name""[^>]*>[\s\S]+?</span>")
Dim mc5 As MatchCollection = re5.Matches(sourcestring)
Dim mIdx5 As Integer = 0
For Each m As Match In mc5
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchstn5 = m.Groups(groupIdx).Value
matchstn5 = R.Replace(matchstn5, " ")
matchstn5 = matchstn5.Trim()
Next
mIdx5 = mIdx5 + 1
Next
Dim re10 As Regex = New Regex("<address class=""adr""[^>]*>[\s\S]+?</address>")
Dim mc10 As MatchCollection = re10.Matches(sourcestring)
Dim mIdx10 As Integer = 0
For Each m As Match In mc10
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchstn10 = m.Groups(groupIdx).Value
matchstn10 = R.Replace(matchstn10, " ")
matchstn10 = matchstn10.Trim()
strSQL1 = "insert into infoRestaurant (nameRestaurant, cuisine, streetAddress, locality, postalCode, countryName, addressFull, tel, attractionType) values (N" & _
FormatSqlParam(matchStn1) & ",N" & _
FormatSqlParam(matchstn9) & ",N" & _
FormatSqlParam(matchstn2) & ",N" & _
FormatSqlParam(matchstn3) & ",N" & _
FormatSqlParam(matchstn4) & ",N" & _
FormatSqlParam(matchstn5) & ",N" & _
FormatSqlParam(matchstn10) & ",N" & _
FormatSqlParam(matchstn6) & ",N" & _
FormatSqlParam(matchstn7) & ")"
Dim objCommand1 As New SqlCommand(strSQL1, conn)
objCommand1.ExecuteNonQuery()
Next
mIdx4 = mIdx4 + 1
Next
Dim re6 As Regex = New Regex("<span class=""tel""[^>]*>[\s\S]+?</span>")
Dim mc6 As MatchCollection = re6.Matches(sourcestring)
Dim mIdx6 As Integer = 0
For Each m As Match In mc6
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchstn6 = m.Groups(groupIdx).Value
matchstn6 = R.Replace(matchstn6, " ")
matchstn6 = matchstn6.Trim()
Next
mIdx6 = mIdx6 + 1
Next
Dim re7 As Regex = New Regex("<div><b>Attraction type:[^>]*>[\s\S]+?</div>")
Dim mc7 As MatchCollection = re7.Matches(sourcestring)
Dim mIdx7 As Integer = 0
For Each m As Match In mc7
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchstn7 = m.Groups(groupIdx).Value
matchstn7 = R.Replace(matchstn7, " ")
matchstn7 = matchstn7.Trim()
Next
mIdx7 = mIdx7 + 1
Next
Dim re8 As Regex = New Regex("(?=<p id).*(?<=</p>)")
Dim mc8 As MatchCollection = re8.Matches(sourcestring)
Dim mIdx8 As Integer = 0
For Each m As Match In mc8
For groupIdx As Integer = 0 To m.Groups.Count - 1
matchstn8 = m.Groups(groupIdx).Value
matchstn8 = R.Replace(matchstn8, " ")
matchstn8 = matchstn8.Trim()
Dim strSQL2 As String = "insert into feedBackRestaurant (feedBackView) values(N" + FormatSqlParam(matchstn8) + ")"
Dim objCommand2 As New SqlCommand(strSQL2, conn)
objCommand2.ExecuteNonQuery()
Next
mIdx8 = mIdx8 + 1
Next
objStreamReader.Close()
conn.Close()
End Sub
Public Function FormatSqlParam(ByVal strParam As String) As String
Dim newParamFormat As String
If strParam = String.Empty Then
newParamFormat = "'" & "NA" & "'"
Else
newParamFormat = strParam.Trim()
newParamFormat = "'" & newParamFormat.Replace("'", "''") & "'"
End If
Return newParamFormat
End Function
End Module
---problems--
problem that i face are
1. the database foreign key is not working here..someone told me that need some codes to be added..but i dunno how.
2. the data repeats as i run the
application. i guest it require update database function.but i hv no idea how.
3. i have to add in multithreading function as well..and last, how to make my
application is flexible eventhough the HTML code changes..can anyone help me??plzzz
website that i need to extract is http://www.tripadvisor.com/Tourism-g293951-Malaysia-Vacations.html i need the information about hotel, restaurant and attraction place..plzz..i need some help here..
