java json串拼接_json字符串的拼接

关于json字符串的解析与拼接，第一次接触，留下个笔记了。。。。。。。解析，是改的代码，拼接是纯的，解析就不说了，笔记一下拼接了

关于解析主要分三部分，一个是第一层处理，一个是第二层处理，一个是进行","的处理。其实再往深一层的也可以，我认为，那个代码得修改修改了。

Public Function yiceng(a(), b()) As String

Dim l As Integer

l = UBound(a) - LBound(a) + 1

Dim str As String

str = str & vbCrLf & Space(6) & "{"

For i = 0 To l - 1

If b(i) = "" Then

str = str & Chr(13) & Space(8) & """" & a(i) & """" & ":" & vbCrLf & Space(10) & "["

str = str & vbCrLf & Space(10) & "],"

Else

str = str & Chr(13) & Space(8) & """" & a(i) & """" & ":" & """" & b(i) & """" & ","

End If

Next

str = chuli(str)

str = str & Space(6) & "},"

yiceng = yiceng & str

End Function

Public Function erceng(str As String, a(), b()) As String

Dim l As String

l = UBound(a) - LBound(a) + 1

'查找[的位置，进行插入操作

Dim i As Integer

i = InStr(1, str, "]")

Dim qstr As String

Dim hstr As String

qstr = Mid(str, 1, i - 1)

hstr = Mid(str, i)

Dim instr As String

istr = yiceng(a(), b())

erceng = qstr & istr & hstr

'erceng = chuli(erceng)

End Function

'去掉倒数第一个逗号

Public Function chuli(str As String) As String

Dim y As Integer

y = InStrRev(str, ",")

qstr = Mid(str, 1, y - 1)

hstr = Mid(str, y + 1)

chuli = qstr & hstr

End Function

测试处理

Private Sub Command2_Click()

Dim a1()

Dim b1()

Dim c()

Dim d()

Dim a2()

Dim b2()

Dim a3()

Dim b3()

c() = Array("4a", "5a", "6a")

d() = Array("d", "e", "")

a1() = Array("1a", "2a", "3a")

b1() = Array("a", "b", "c")

a2() = Array("a", "a", "a")

b2() = Array("a1", "b1", "c1")

a3() = Array("aa", "aa", "aa")

b3() = Array("a1", "b1", "c1")

Dim stri As String

stri = yiceng(c(), d())

stri = erceng(stri, a1(), b1())

stri = erceng(stri, a2(), b2())

stri = erceng(stri, a3(), b3())

stri = chuli(stri)

stri = chuli(stri)

MsgBox stri

Text1.Text = stri

End Sub

在有子目录的地方对应位置为空，最后两回去“，”