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

柔光的暖阳◎ 2022-11-05 12:57 268阅读 0赞

关于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

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

发表评论取消回复

表情：

评论列表（有 0 条评论，268人围观）

还没有评论，来说两句吧...

相关阅读

相关 java拼接字符串(Java集合拼接字符串)

什么是java格式化字符串格式化是根据业务需要进行的。像时间字符串或者特殊意思的ID，对他们进行格式化后能更方便的进行比较、转换或者理解。而格式化就是根据特定的格式进行

喜欢ヅ旅行/ 2023年09月25日 08:24/ 0 赞/ 101 阅读

相关 mysql 拼接json

最近是和mysql杠上了。由于需要将公司数据中台中的数据同步到我们自己的mysql库中，并且使用的是将sql结果集全量同步过来的方式，就促使我在用平台的时候，接触到了大量的sq

Myth丶恋晨/ 2023年01月20日 02:59/ 0 赞/ 36 阅读

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

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

柔光的暖阳◎/ 2022年11月05日 12:57/ 0 赞/ 269 阅读

相关 Java递归拼接json树形结构

有个需求需要后端生成json树，找了一个大佬的文章，没看懂，自己写一个吧 [https://blog.csdn.net/qq12547345/article/details/

我不是女神ヾ/ 2022年09月10日 08:15/ 0 赞/ 253 阅读

相关 js拼接json

<table class="finance"> <tr class="finance\_color"> <td>时间</td> <td>价格</td> </tr

ゞ浴缸里的玫瑰/ 2022年07月11日 06:52/ 0 赞/ 353 阅读

相关 C#将DataTable拼接为Json字符串

这里只是拼接方法，也可以扩展到DataSet： public string DataTableToJson(System.Data.DataTable dt)

╰半夏微凉°/ 2022年06月11日 00:24/ 0 赞/ 549 阅读

相关 jQuery拼接json字符串和json数组（自定义Jsonp）

/ myJsonp:json数组 myJsonp1：没有复选框时用的方法，json字符串 myJsonp2：有复选框时用的方法，jso

「爱情、让人受尽委屈。」/ 2022年05月09日 15:14/ 0 赞/ 423 阅读

相关前台js拼接json字符串传递后台

有时候前台传递到后台数据多了，可以在前台把数据拼接成json字符串传递到后台，后台可以在转为list对象集合，会简单很多。前台拼接json字符串代码（这里是循环遍历获取ta

迷南。/ 2022年02月02日 10:51/ 1 赞/ 645 阅读

相关 Java拼接字符串拼接双引号

Java拼接字符串拼接双引号 String sql = "<![CDATA[<?xml version="1.0" encoding="utf-8"?>";

忘是亡心i/ 2021年10月23日 09:13/ 0 赞/ 1223 阅读

相关 js：字符串拼接成json对象

介绍：将json对象\["jobcode":"111","goodunits":"000","rejectUnits":"222"\],拼成

小咪咪/ 2021年10月08日 07:44/ 0 赞/ 592 阅读