1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Public strpage As String
Public Function ReadPage(ByVal url As String) As String
Dim objRequest As WebRequest = "url")
Dim objResponse As WebResponse = objRequest.GetResponse()
Dim objStreamReader As New StreamReader(objResponse.GetResponseStream())
Dim strPage As String = objStreamReader.ReadToEnd
objStreamReader.Close()
Return strPage
End Function
Public hNom As Hashtable
Public Function FillHash()
Dim myMatches As MatchCollection
Dim myRegex As New Regex("^(;tel"""">)(.*)(</a>)$")
Dim hNom As New Hashtable
Dim t As String = strpage
myMatches = myRegex.Matches(t)
Dim i As Integer = 0
Dim successfulMatch As Match
For Each successfulMatch In myMatches
i = i + 1
hNom.Add(CStr(i).ToString, CStr(successfulMatch.Value).ToString)
Next |
Partager