VS 宏 之 轉換Json資料格式。

IE9+，Chrome ，會按Json的Key排序。 這個做法，對需要順序的資料來說，是個災難。

自定義一個格式，進行資料傳遞，格式如下：

1. 字元串

2. 沒有樹級結構。

3. 沒有 { } 标志。

4. 每一個對象用 “，” 分隔。

5. 每一個鍵值對用 “：” 分隔。

Sub Json2MyStringJson()
        Dim strJson As String
        Dim ja As String()      'json array
        Dim jsa As String()     ' json sub array

        Dim retVal As New List(Of String)()
        Dim pja As String()     ' p proced json array
        Dim pjsa As String()    ' p proced json sub array

        strJson = DTE.ActiveDocument.Selection.Text

        strJson = strJson.Trim()

        If (strJson.StartsWith("{") And strJson.EndsWith("}")) Then


            strJson = strJson.Substring(1, strJson.Length - 2).Trim()

            ja = strJson.Split(",".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)

            For Each a In ja

                jsa = a.Trim().Split(":".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)

                retVal.Add(jsa(0).Trim().Trim(""""c) + ":" + jsa(1).Trim().Trim(""""c))
            Next


            DTE.ActiveDocument.Selection.Text = """" + String.Join(",", retVal.ToArray()) + """"
        Else : MsgBox("Json轉換器要求格式 { 内容 } ")
        End If
    End Sub      

作者：NewSea        如無特别标記說明，均為NewSea原創，版權私有，翻載必糾。歡迎交流，轉載，但要在頁面明顯位置給出原文連接配接。謝謝。