Создайте новый экземпляр класса System.Uri
с URL-адресом и используйте свойство Query
для получения части строки запроса.
Получив эту строку, введите String.Split
для символа '&'. Для каждой строки в результирующем массиве выполните String.Split
на '='
char. В результирующем массиве первая строка - это имя параметра запроса, вторая - значение (если есть). Проверьте, является ли имя интересующим вас, и если это так, получите значение.
Обновление : Мальчик, я не касался VB с 1999 года ...: -)
Вот код моего ответа. Я не понял, что URL, который вы хотите проанализировать, это страница URL. Для этого конкретного случая, Request.QueryString("id")
действительно будет лучшим решением.
Dim url As Uri = New Uri("http://localhost:49500/Learning/Chapitre.aspx?id=2")
Dim query As String = url.Query.Trim("?")
Dim parameters() As String = query.Split("&")
Dim tokens() As String
Dim value As String = ""
For index As Integer = 0 To parameters.Length - 1
tokens = parameters(index).Split("=")
If tokens(0).ToLower = "id" Then
If tokens.Length = 2 Then
value = tokens(1)
End If
Exit For
End If
Next
' At this point value contains the parameter value or
' is empty if the parameter has no value or if the parameter is not present