关于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字符串的拼接的更多相关文章

  1. 树形菜单的json字符串的拼接

    最近在学习权限管理, 要用到树形按钮, 但是字符串的拼接是一个难理解的问题, 然后从网上找了一个从前台用js来遍历组成这个json字符串, 很好! 但是没看懂... var data = [ {&qu ...

  2. 更新操作 关于json字符串的拼接、json字符串与json对象之间的转换

    更新操作  后台 /** * 更新人员 * @return "updateSdr" */ public String updateTheSdr(){ jsonstr = " ...

  3. json字符串的拼接,并转换为json对象

    <html> <head> <script> var qianzhui = "cc"; var test1=""; func ...

  4. json字符串手动拼接

    return "xxx{" + "xxx='" + xxx+ '\'' + ", ggg='" + ggg+ '\'' + ", ...

  5. Java实现微信菜单json字符串拼接

    Java实现微信菜单json字符串拼接 微信菜单拼接json字符串方法 >>>>>>>>>>>>>>>> ...

  6. IOS开发之——使用SBJson拼接Json字符串

    SBJson包的下载地址在上一篇文章中. 能够使用NSDictionary中的键值对来拼接Json数据,很方便,也能够进行嵌套,直接上代码: //開始拼接Json字符串 NSDictionary *d ...

  7. JSON字符串 拼接与解析

    常用方式: json字符串拼接(目前使用过两种方式): 1.运用StringBuilder拼接 StringBuilder json = new StringBuilder(); json.appen ...

  8. 利用FastJson,拼接复杂嵌套json数据&&直接从json字符串中(不依赖实体类)解析出键值对

    1.拼接复杂嵌套json FastJson工具包中有两主要的类: JSONObject和JSONArray ,前者表示json对象,后者表示json数组.他们两者都能添加Object类型的对象,但是J ...

  9. JQuery中根据表单元素动态拼接json 字符串

    // <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.o ...

随机推荐

  1. MySQL命令行查询乱码解决方法

    转自Agoly的博客,原文链接https://www.cnblogs.com/qmfsun/p/4846467.html 感谢博主Agoly这篇文章说的很详细很透彻. MySQL会出现中文乱码的原因不 ...

  2. Asp.net 项目部署的两个问题

    1:关于MVC中BundleCollection压缩js css文件 发布后获取失败的问题 原因是: 默认本地vs里面调试的时候,因为web.config文件里面有一个debug属性,当有此属性时,默 ...

  3. C# MVC分页简单介绍

    ASP.NET MVC中进行分页的方式有多种,这里介绍一种简单实用的方法 一:在实现分页之前,先添加“PagedList”和“PagedList.Mvc”两个组件,具体下载直接在NuGet程序包里收索 ...

  4. Selenium+PhantomJS替代方案

    问题描述: python3在使用selenium+PhantomJS动态抓取网页时,出现如下报错信息: UserWarning: Selenium support for PhantomJS has ...

  5. 20175315 实验二《Java面向对象程序设计》实验报告

    20175315 实验二<Java面向对象程序设计>实验报告 一.实验内容及步骤 1.初步掌握单元测试和TDD 单元测试 任务一:三种代码 用程序解决问题时,要学会写以下三种代码: 伪代码 ...

  6. lambda-基于谓词筛选值序列

    此方法通过使用延迟执行实现. 即时返回值为一个对象,该对象存储执行操作所需的所有信息. 只有通过直接调用对象的 GetEnumerator 方法或使用 Visual C# 中的 foreach(或 V ...

  7. JVM学习资料

      java虚拟机学习-深入理解JVM(1) java虚拟机学习-慢慢琢磨JVM(2) java虚拟机学习-慢慢琢磨JVM(2-1)ClassLoader的工作机制 java虚拟机学习-JVM内存管理 ...

  8. 使用SecureCRT做端口转发

    我的笔记本只能访问跳板机,跳板机是Linux系统,访问内网机器需要在跳板机内通过ssh命令访问,特别不方便,而且我们还需要访问Windows或web网站. 这是我们就可以做一个端口转发,通过自己的笔记 ...

  9. sortable.js 拖拽排序及配置项说明

    // 拖动排序 $(function() { /*排序*/ //排序 // Simple list ]; new Sortable(list, { group: "name", a ...

  10. linux下c通过虚拟地址映射读写文件的代码

    在代码过程中中,把开发过程中比较好的一些代码片段记录起来,如下的代码内容是关于 linux下c通过虚拟地址映射读写文件的代码,应该对小伙伴有些好处.#include<stdio.h>#in ...