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
在有子目录的地方对应位置为空,最后两回去“,”
json字符串的拼接的更多相关文章
- 树形菜单的json字符串的拼接
最近在学习权限管理, 要用到树形按钮, 但是字符串的拼接是一个难理解的问题, 然后从网上找了一个从前台用js来遍历组成这个json字符串, 很好! 但是没看懂... var data = [ {&qu ...
- 更新操作 关于json字符串的拼接、json字符串与json对象之间的转换
更新操作 后台 /** * 更新人员 * @return "updateSdr" */ public String updateTheSdr(){ jsonstr = " ...
- json字符串的拼接,并转换为json对象
<html> <head> <script> var qianzhui = "cc"; var test1=""; func ...
- json字符串手动拼接
return "xxx{" + "xxx='" + xxx+ '\'' + ", ggg='" + ggg+ '\'' + ", ...
- Java实现微信菜单json字符串拼接
Java实现微信菜单json字符串拼接 微信菜单拼接json字符串方法 >>>>>>>>>>>>>>>> ...
- IOS开发之——使用SBJson拼接Json字符串
SBJson包的下载地址在上一篇文章中. 能够使用NSDictionary中的键值对来拼接Json数据,很方便,也能够进行嵌套,直接上代码: //開始拼接Json字符串 NSDictionary *d ...
- JSON字符串 拼接与解析
常用方式: json字符串拼接(目前使用过两种方式): 1.运用StringBuilder拼接 StringBuilder json = new StringBuilder(); json.appen ...
- 利用FastJson,拼接复杂嵌套json数据&&直接从json字符串中(不依赖实体类)解析出键值对
1.拼接复杂嵌套json FastJson工具包中有两主要的类: JSONObject和JSONArray ,前者表示json对象,后者表示json数组.他们两者都能添加Object类型的对象,但是J ...
- JQuery中根据表单元素动态拼接json 字符串
// <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.o ...
随机推荐
- JavaScript在div后添加删除div
var idd = 'str'; $('.task-done-detail-content-p7').click(function () { var id = this.id; if(idd !== ...
- 项目Alpha冲剂(3/10)
1.项目燃尽图 2.今日进度描述 项目进展 完成数据库和服务器的连接部分,完成了一些应用的基本功能. 问题困难 完成了服务器的成功配置,同时实现了客户端与服务器的连接 心得体会 进度有明显的变化,成员 ...
- 题解-COCI-2015Norma
Problem SPOJ-NORMA2 & bzoj3745 题意概要:给定一个正整数序列 \(\{a_i\}\),求 \[\sum_{i=1}^n\sum_{j=i}^n(j-i+1)\mi ...
- 【Selenium】各浏览器(firefox,chrome,ie)驱动下载地址汇总
前两天使用Selenium分布式时,总抛出异常.更新成最新驱动可以解决.其中chrome异常如下, "platform": "WINDOWS" File &qu ...
- maven的配置-2019-4-13
一.Maven的优点 1. 依赖管理 jar 包管理 2.一键构建 (编译-----测试------打包-----安装-----部署 ) 什么是项目构建? 指的是项目从编译-----测试------ ...
- JSX的替代方案(译文)
原文链接:https://blog.bloomca.me/2019/02/23/alternatives-to-jsx.html JSX作为一种流行的模板语言,在各种框架都得到了广泛的应用.但是,如果 ...
- P2419 [USACO08JAN]牛大赛Cow Contest(dfs走天下/)
题目描述 FJ的N(1 <= N <= 100)头奶牛们最近参加了场程序设计竞赛:).在赛场上,奶牛们按1..N依次编号.每头奶牛的编程能力不尽相同,并且没有哪两头奶牛的水平不相上下,也就 ...
- 在ubuntu18 安装nginx过程,以及遇到的错误!
1.下载 nginx下载的地址:https://nginx.org/en/download.html 2.解压 指定一个目录下面放置下载的文件,然后解压文件 命令:tar zxvf nginx-1.6 ...
- mysql 函数学习(常用)
1.时间函数(组1) SELECT CURRENT_DATE() AS date, CURRENT_TIME() AS `time`, CURRENT_TIMESTAMP() AS `timestam ...
- Python之MySQL库表操作
一:库操作 1.1 增 # 语法 # create database 库名 default charset utf8; create database db1 default charset utf8 ...