Imports System.Text.RegularExpressions
Module Example
Public Sub Main()
Dim url As String = "
http://www.contoso.com:8080/letters/readme.html"
Dim r As New Regex("^(?<proto>\\w+)://[^/]+?(?<port>:\\d+)?/")
Dim m As Match = r.Match(url)
If m.Success Then
Console.WriteLine(r.Match(url).Result("${proto}${port}"))
End If
End Sub
End Module
\' The example displays the following output:
\' http:8080
ขอตัวอย่าง codeแบบนี้ ในภาษา asp หรือ vbScript หรือ JavaScript หน่อยนะครับ พอดีwebเก่าแล้วต้องใช้ 3ภาษานี้เท่านั้น
ขอตัวอย่าง codeแบบนี้ ในภาษา asp (classic)หรือ vbScript หรือ JavaScript หน่อยนะครับ
Module Example
Public Sub Main()
Dim url As String = "http://www.contoso.com:8080/letters/readme.html"
Dim r As New Regex("^(?<proto>\\w+)://[^/]+?(?<port>:\\d+)?/")
Dim m As Match = r.Match(url)
If m.Success Then
Console.WriteLine(r.Match(url).Result("${proto}${port}"))
End If
End Sub
End Module
\' The example displays the following output:
\' http:8080
ขอตัวอย่าง codeแบบนี้ ในภาษา asp หรือ vbScript หรือ JavaScript หน่อยนะครับ พอดีwebเก่าแล้วต้องใช้ 3ภาษานี้เท่านั้น