VB.Net by API/System/Uri
Содержание
Uri.AbsolutePath
<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim aUri As New Uri("http://www.vbex.ru/") Console.WriteLine(aUri.AbsoluteUri) Console.WriteLine(aUri.AbsolutePath)
End Sub
End Class
</source>
Uri.AbsoluteUri
<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim aUri As New Uri("http://www.vbex.ru/") Console.WriteLine(aUri.AbsoluteUri) Console.WriteLine(aUri.AbsolutePath)
End Sub
End Class
</source>
Uri.CheckHostName
<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main Select Case Uri.CheckHostName("www.vbex.ru") Case UriHostNameType.Basic Console.WriteLine("Basic") Case UriHostNameType.Dns Console.WriteLine("Dns") Case UriHostNameType.IPv4 Console.WriteLine("IPv4") Case UriHostNameType.IPv6 Console.WriteLine("IPv6") Case UriHostNameType.Unknown Console.WriteLine("Unknown") End Select End Sub
End Class
</source>
Uri.Port
<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main Dim myURI As New Uri("http://www.vbex.ru:8080") Console.WriteLine(myURI.Host) Console.WriteLine(myURI.AbsolutePath) Console.WriteLine(myURI.AbsoluteUri) Console.WriteLine(myURI.Port.ToString) Console.WriteLine(myURI.Scheme) End Sub
End Class
</source>
Uri.Scheme
<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main Dim myURI As New Uri("http://www.vbex.ru:8080") Console.WriteLine(myURI.Host) Console.WriteLine(myURI.AbsolutePath) Console.WriteLine(myURI.AbsoluteUri) Console.WriteLine(myURI.Port.ToString) Console.WriteLine(myURI.Scheme) End Sub
End Class
</source>
Uri.UserEscaped
<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main Dim URL As System.Uri URL = New System.Uri("http://www.vbex.ru/index.htm?key=value") Console.WriteLine("AbsolutePath: " & URL.AbsolutePath) Console.WriteLine("AbsoluteUri: " & URL.AbsoluteUri) Console.WriteLine("Authority: " & URL.Authority) Console.WriteLine("Host: " & URL.Host) Console.WriteLine("Port: " & URL.Port) Console.WriteLine("LocalPath: " & URL.LocalPath) Console.WriteLine("IsDefaultPort: " & URL.IsDefaultPort) Console.WriteLine("IsFile: " & URL.IsFile) Console.WriteLine("PathAndQuery: " & URL.PathAndQuery) Console.WriteLine("Query: " & URL.Query) Console.WriteLine("Scheme: " & URL.Scheme) Console.WriteLine("UserEscaped: " & URL.UserEscaped) Console.WriteLine("UserInfo: " & URL.UserInfo) End Sub
End Class
</source>
Uri.UserInfo
<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main Dim URL As System.Uri URL = New System.Uri("http://www.vbex.ru/index.htm?key=value") Console.WriteLine("AbsolutePath: " & URL.AbsolutePath) Console.WriteLine("AbsoluteUri: " & URL.AbsoluteUri) Console.WriteLine("Authority: " & URL.Authority) Console.WriteLine("Host: " & URL.Host) Console.WriteLine("Port: " & URL.Port) Console.WriteLine("LocalPath: " & URL.LocalPath) Console.WriteLine("IsDefaultPort: " & URL.IsDefaultPort) Console.WriteLine("IsFile: " & URL.IsFile) Console.WriteLine("PathAndQuery: " & URL.PathAndQuery) Console.WriteLine("Query: " & URL.Query) Console.WriteLine("Scheme: " & URL.Scheme) Console.WriteLine("UserEscaped: " & URL.UserEscaped) Console.WriteLine("UserInfo: " & URL.UserInfo) End Sub
End Class
</source>