Как сформировать полные URL-адреса из неполных URL-адресов, найденных на веб-странице?
Вопрос
Я могу получить текст веб-страницы, скажем, https://stackoverflow.com/questions с некоторыми реальными и составленными ссылки по теме:
/questions /tags /questions?sort=votes /questions?sort=active randompage.aspx ../coolhomepage.aspx
Зная, что моя исходная страница была https://stackoverflow.com/questions , есть ли в .Net способ разрешить ссылки на эту страницу?
https://stackoverflow.com/questions https://stackoverflow.com/tags https://stackoverflow.com/questions?sort=votes https://stackoverflow.com/questions?sort=active https://stackoverflow.com/questions/randompage.aspx https://stackoverflow.com/coolhomepage.aspx
Это похоже на то, как браузер достаточно умен, чтобы разрешать ссылки.
=========================== Обновление - использование решения Дэвида:
'Regex to match all <a ... /a> links Dim myRegEx As New Regex("\<\s*a (?# Find opening <a tag) " & _ ".+?href\s*=\s*['""] (?# Then all to href=' or "" ) " & _ "(?<href>.*?)['""] (?# Then all to the next ' or "" ) " & _ ".*?\> (?# Then all to > ) " & _ "(?<name>.*?)\<\s*/a\s*\> (?# Then all to </a> ) ", _ RegexOptions.IgnoreCase Or _ RegexOptions.IgnorePatternWhitespace Or _ RegexOptions.Multiline) 'MatchCollection to hold all the links that are matched Dim myMatchCollection As MatchCollection myMatchCollection = myRegEx.Matches(Me._RawPageText) 'Loop through all matches and evaluate the value of the href attribute. For i As Integer = 0 To myMatchCollection.Count - 1 Dim thisLink As String = "" thisLink = myMatchCollection(i).Groups("href").Value() 'This checks for Javascript and Mailto links. 'This is not complete. There are others to check I just haven't encountered them yet. If thisLink.ToLower.StartsWith("javascript") Then thisLink = "JAVASCRIPT: " & thisLink ElseIf thisLink.ToLower.StartsWith("mailto") Then thisLink = "MAILTO: " & thisLink Else Dim baseUri As New Uri(Me.URL) If Not thisLink.ToLower.StartsWith("http") Then 'This is a partial URL so we will assume that it's relative to our originating URL Dim myUri As New Uri(baseUri, thisLink) thisLink = "RELATIVE LOCAL LINK: RESOLVED: " & myUri.ToString() & " ORIGINAL: " & thisLink Else 'The link starts with HTTP, determine if part of base host or is outside host. Dim ThisUri As New Uri(thisLink) If ThisUri.Host.ToLower = baseUri.Host.ToLower Then thisLink = "INSIDE COMPLETE LINK: " & thisLink Else thisLink = "OUTSIDE LINK: " & thisLink End If End If End If 'I'm storing the found links into a Generic.List(Of String) 'This link has descriptive text added to it. 'TODO: Make collection to hold only unique internal links. Me._Links.Add(thisLink) Next
Решение
Вы имеете в виду, как это?
Uri baseUri = new Uri("http://www.contoso.com");
Uri myUri = new Uri(baseUri, "catalog/shownew.htm");
Console.WriteLine(myUri.ToString());
Образец предоставлен http://msdn.microsoft.com/en- нас / библиотека / 9hst1w91.aspx
Другие советы
Если вы имеете в виду серверную сторону, вы можете использовать ResolveUrl()
:
string url = ResolveUrl("~/questions");
Я не понимаю, что вы имеете в виду под " решать " в этом контексте, но вы можете попробовать вставить базовый элемент HTML. Так как вы спросили, как браузер с этим справится.
" тег <base>
указывает адрес по умолчанию или цель по умолчанию для всех ссылок на странице. "