[VB.NET] UrlPatamsHandler

Module UrlPatamsHandler

    Sub Main()
        ' 只是改顏色比較好看
        Console.ForegroundColor = ConsoleColor.Green
        ' 欲處理的 Url
        Dim uri As String = "https://www.google.com.tw/search?q=ABC&oq=ABC&aqs=chrome..69i57j0l5.893j0j7&sourceid=chrome&es_sm=122&ie=UTF-8"
        ' 定義 params 二維陣列並交由 ReturnUrlParams 函式做處理
        Dim params(,) As String = ReturnUrlParams(uri)

        ' 輸出結果
        Console.WriteLine("Key" & vbTab & vbTab & "value")
        Console.WriteLine("=========================================")
        For i As Integer = 0 To params.GetLength(0) - 1 Step 1
            Console.WriteLine(params(i, 0) & vbTab & If(params(i, 0).Length >= 8, "", vbTab) & params(i, 1))
        Next : Console.ReadKey()
    End Sub

    ''' <summary>
    ''' 將 Url 的 Parameters 以二維字串陣列回傳
    ''' </summary>
    ''' <param name="URL">欲處理的 Url</param>
    ''' <returns></returns>
    Private Function ReturnUrlParams(ByVal URL As String)
        ' 切割每個 params
        Dim paramsValue() As String = URL.Split("?")(1).Split("&")

        ' 定義 params 二維陣列
        Dim params(paramsValue.Length - 1, 1) As String

        ' 賦值
        For i As Integer = 0 To paramsValue.Length - 1 Step 1
            params(i, 0) = paramsValue(i).Split("=")(0)
            params(i, 1) = paramsValue(i).Split("=")(1)
        Next

        ' 回傳
        Return params
    End Function

End Module