VB6.0 组织json对象并生成json字符串

帮一客户修改VB6程序，需要将一些文本转换成json数组并输出。经过一番研究，决定用插件实现。

1. 安装插件Chilkat

Chilkat Full-Version Software Components Downloads (chilkatsoft.com)

选择 Chilkat ActiveX Components

win32和x64的版本，实测我的Win10 x64系统用win32版本是有效的。

2. 添加引用

工程 > 引用，勾选 Chilkat ActiveX v9.5.0, 确定

3. 代码

'组织数据格式》》》》》》》》》》》》
Dim textToShow As String
textToShow = TextLEDInfo.TextDim font As String
Dim color As String
Dim bgColor As String
Dim type1 As String
'格式统一设定
font = "2"
color = "0"
bgColor = "7"
type1 = "1"Dim wordArray As New ChilkatJsonArrayFor I = 0 To Len(textToShow) - 1Dim word As Stringword = Mid(textToShow, I + 1, 1) 'Mid()下标从1开始'组织jsonDim success As Longsuccess = wordArray.AddObjectAt(I)Dim obj As ChilkatJsonObjectSet obj = wordArray.ObjectAt(I)success = obj.UpdateString("word", word)success = obj.UpdateString("font", font)success = obj.UpdateString("color", color)success = obj.UpdateString("bgColor", bgColor)success = obj.UpdateString("type", type1)
Next'wordArray.EmitCompact = 0 换行，此处不需要
TextBoxContent.Text = wordArray.Emit()

效果：

实测有效，问题解决。

VB6.0 组织json对象并生成json字符串相关推荐

highcharts ajax 数据格式,Highcharts ajax获取json对象动态生成报表生成 .
最近做个项目,项目经理想做一个统计报表,在网上查看些资料就选用Highchars 这里和大家分享下使用心得. 重点说明此代码是针对一个报表显示多个项对比显示. 直接贴代码:web端 $(documen ...
JSON对象转化为JSON字符串
在进行前端开发的时候,有时我们会遇到要将json对象转化为json字符串,那么该如何进行转化呢??? 我们可以用JSON对象的stringify()和parse()方法. JSON.stringify ...
Java对象转换成JSON对象/JSON对象转换成JSON字符串/JSON字符串转换成JS对象
文章目录后端部分前端部分后端部分 Option op = new Option("海淀","hd");//java对象转换json对象 JSONObjec ...
Json对象转换成Json数组
问题在写单元测试是报错如下: JSON解析错误:不能将JavaUTIL.AARYLIST实例反序列化到StaskObjo对象令牌中代码: 自己解决了挺长时间,也没研究出什么好的办法,最后问朴世超组 ...
JS转json对象为格式化json字符串
JS转json对象为格式化json字符串 JSON.stringify(jsonObj, null, 4)
js中 json对象的转化 JSON.parse()
JSON.parse() 方法用来解析JSON字符串,json.parse()将字符串转成json对象.构造由字符串描述的JavaScript值或对象.提供可选的reviver函数用以在返回之前对所得 ...
php返回json数组元素,php生成返回json对象数组（json支持中文）
php生成返回json对象数组注意两种方法生成的对象数组在结构上的区别 $jarr=array( 'total' => 239, 'list' => array( array( 'cod ...
JSON数据格式----- JavaScript与JSON、JavaScript的JSON对象、构建JSON格式数据
JavaScript与JSON JSON是一种语法,用来序列化对象.数组等的.它只是基于JavaScript语法 [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-zWMc ...
iOS json解析和生成json串
1.生成json字符串 NSData * jsonData = [NSJSONSerialization dataWithJSONObject:detailDic options:0 error:ni ...
android怎么根据标题解析json,如何在android中解析没有json对象标题的json数组？
首先,我创建了解析器类JSONParser.java package com.example.myparse; import java.io.BufferedReader; import java.i ...

VB6.0 组织json对象并生成json字符串

1. 安装插件Chilkat

2. 添加引用

3. 代码

VB6.0 组织json对象并生成json字符串相关推荐

最新文章

热门文章