八、Delphi10.3读取JSON文件,并修改JSON数组一条内容后保存到文件
一、我们有一个JSON文件,如下:
{
"在野": [
{
"城池": 0,
"武将": 74,
"登场年": 190
},
{
"城池": 0,
"武将": 11,
"登场年": 208
},
{
"城池": 29,
"武将": 78,
"登场年": 198
}
],
"跟随": [
{
"父将": 182,
"子将": 176,
"登场年": 197
},
{
"父将": 222,
"子将": 224,
"登场年": 199
}
]
}
二、我们读取“在野”,代码如下:
//读取JSON文件内容
procedure TForm1.Button1Click(Sender: TObject);
var
m_Json, m_Json_Item: TJSONObject;
m_StringStream: TStringStream;
m_JsonArr: TJSONArray;
I: Integer;
begin
m_StringStream := TStringStream.Create('', TEncoding.UTF8);
m_StringStream.LoadFromFile(Edit1.Text);
m_Json := TJSONObject.Create;
m_Json := TJSONObject.ParseJSONValue(m_StringStream.DataString) as TJSONObject;
m_JsonArr := m_Json.Values['在野'] as TJSONArray;
// 第10个
for I := to m_JsonArr.Count - do
begin
m_Json_Item := m_JsonArr.Items[I] as TJSONObject;
Memo1.Lines.Add(Format('武将: %s ,登场年: %s ', [m_Json_Item.Values['武将'].Value, m_Json_Item.Values['登场年'].Value]));
end;
end; //修改JSON文件内容
procedure TForm1.Button2Click(Sender: TObject);
var
m_Json, m_Json_Item: TJSONObject;
m_StringStream: TStringStream;
m_JsonArr: TJSONArray;
begin
m_StringStream := TStringStream.Create('', TEncoding.UTF8);
m_StringStream.LoadFromFile(Edit1.Text); //读取JSON
m_Json := TJSONObject.Create;
m_Json := TJSONObject.ParseJSONValue(m_StringStream.DataString) as TJSONObject;
m_JsonArr := m_Json.Values['在野'] as TJSONArray; // 修改JSON数组内容
m_Json_Item := m_JsonArr.Items[] as TJSONObject;
m_Json_Item.RemovePair('武将');
m_Json_Item.AddPair('武将', '');
m_Json_Item.RemovePair('登场年');
m_Json_Item.AddPair('登场年', ''); //保存到文件
m_StringStream.Clear;
m_StringStream.WriteString(m_Json.ToString);
m_StringStream.SaveToFile(Edit1.Text);
end;
三、效果如下:
不忘初心,如果您认为这篇文章有价值,认同作者的付出,可以微信二维码打赏任意金额给作者(微信号:382477247)哦,谢谢。
八、Delphi10.3读取JSON文件,并修改JSON数组一条内容后保存到文件的更多相关文章
- 【Python】将对象存成json文件及从json取出对象
常用代码,单拎出来以备查. 对象存json文件: import json obj={'name':'张有财','age':39,'arr':[2,34,5,6,7,88,'李有钱']} with op ...
- Java读取json文件并对json数据进行读取、添加、删除与修改操作
转载:http://blog.csdn.net/qing_yun/article/details/46865863#t0 1.介绍 开发过程中经常会遇到json数据的处理,而单独对json数据进行 ...
- php读取excel文件 更新修改excel
php读取excel文件示例,还有更新修改功能. 代码: //模板存放目录 $dir = $DOCUMENT_ROOT.'/backoffice/admin/oemcheck/'; $template ...
- java读取url中json文件中的json数据
有时候需要远程从其他接口中获取json数据,如果遇到返回的json数据是一个文件而不直接是数据,那么可以通过以下方法进行读取: /** * 从数据接口获取到数据 * @return * @throws ...
- JsonResult序列化并保存json文件 以及对json文件读取反序列
项目中我们经常遇到一些经常访问的接口,并且更新及时度不是特别高,那么我们可以利用文件来做一些数据请求的缓存. 这里以微信公众号获取粉丝用户列表为例,我们把微信公众号查到的用户先缓存在文件中,这样在翻页 ...
- 从接口自动化测试框架设计到开发(二)操作json文件、重构json工具类
用例模板里的请求数据多,看起来很乱,所以可以通过访问另外一个文件的方式获取请求数据 把请求数据都放在一个json文件中 取出login的内容: import json fp = open('G:/un ...
- java读取txt文件的2中方法---并将内容(每一行以固定的字符分割切成2段)存到map中去
#java读取txt文件的第一种方法 /** * 方法:readTxt * 功能:读取txt文件并把txt文件的内容---每一行作为一个字符串加入到List中去 * 参数:txt文件的地址 * 返回: ...
- Java读取Excel文件转换成JSON并转成List——(七)
Jar包
- POI 读取Excel文件 并解析JSON数据
package skuPrice; import java.io.File; import java.io.FileInputStream; import java.io.FileNotFoundEx ...
随机推荐
- hadoop3.1.1高可用集群web端口9870
- 执行脚本,且以脚本名保存log
!/bin/bash path="/sys/devices/platform/soc/fd880000.i2c-pld/i2c-0/i2c-4/i2c-15/15-0060" f_ ...
- python 基础文件操作
实时刷新到硬盘里 f= open('hh','w',encoding='utf8') f.write('gyftyftft') f.write('hghgh\njkkjk') f.flush()#实时 ...
- 1-使用React的方式
认识 React React是一个用于构建用户界面的 JAVASCRIPT 库.(JQuery也是) React主要用于构建UI,很多人认为 React 是 MVC 中的 V(视图).mvvm Rea ...
- 十二 INPUT逻辑视图的配置,回显错误信息
Action接口中提供了五个逻辑视图的名称 SUCCESS ERROR LOGIN INPUT:input在某些拦截器会使用 NONE 配置逻辑视图:struts_demo2.xml,配置后出现错误信 ...
- C#的 IComparable 和 IComparer接口及ComparableTo方法的 区别(非常重要)
(1)https://blog.csdn.net/ios99999/article/details/77800819 C# IComparable 和 IComparer 区别 (2)https:// ...
- 解决Missing artifact com.microsoft.sqlserver:sqljdbc4:jar:4.0问题
当我们项目中用到的数据库为sql server时 我们一般在maven项目的pom.xml只添加依赖: <dependency> <groupId>com.micros ...
- jmeter分布式linux负载机,windows主控机
1.将参数化文件上传到linux服务器,放在linux上jmeter的bin路径下 2.设置server.rmi.ssl.disable=true 分别修改主控机和负载机的jmeter.propert ...
- vbox虚拟机vdi文件用VMware打开
转自:https://blog.51cto.com/dahui09/1863486 方法一: 使用VirtualBox 自带的VBoxManage来进行格式转换: 1.安装VBoxManage 2.使 ...
- Linux centosVMware vim 编辑模式、vim命令模式、vim实践
一.编辑模式.命令模式 在一般模式下输入:或/可进入命令模式.在该模式下可进行走索某个字符或字符串,也可保存.替换.退出.显示行号等. /word:在光标之后查找一个字符串word,按n向后继续搜索 ...