Delphi解析修改Json文件，基于superobject.pas（ISuperObject）

青春歌颂 發表於 2019-5-8 11:19:00

Delphi解析修改Json文件，基于superobject.pas（ISuperObject）

在经过一系列的波折后，还是觉得delphi读取并修改json文件来的方便；
在网络上找到一个delphi的三方库ISuperObject，添加到项目后直接引用就行；
下载地址
ISuperObject中几个常用的函数：
<ul>
<li>function SO(const s: SOString = ‘{}’): ISuperObject; overload; 此函数传入json数据字符串，并返回一个ISuperObject对象，这一般是我们解析json时使用的第一个函数，如jObj := SO(jsonstr)。</li>
<li>property O: ISuperObject read GetO write PutO; default; 如：jobj.O[‘username’]，此函数被一个ISuperObject对象调用，方括号内的字符串为json中的字段名称，返回一个ISuperObject对象。</li>
<li>property S: SOString read GetS write PutS; 此函数被一个ISuperObject对象调用，和O[‘username’]不同的是，它返回的是一个SoString，即一个字符串，使用方法 str := jObj.S[‘username’]; 同理的还有其他几个类似的函数，如I[‘age’]返回整数，B[‘isenable’]返回布尔型，A[‘users’]返回一个TSuperArray数组</li>
<li>AsString, AsBoolean, AsInteger,AsArray，ISuperObject的函数，用来把ISuperObject转换成相应的数据类型。</li>
</ul>
演示代码：
 
<div class="cnblogs_code">
<pre>//读取json文件
procedure TForm2.Button1Click(Sender: TObject);
var
rText: TextFile;
tmp: UTF8String;
begin
AssignFile(rText, 'C:\Users\admin\Desktop\F.txt');
reset(rText);
while not EOF(rText) do
begin
readln(rText, tmp);
Res := Res + tmp;
end;
closefile(rText);
Memo1.Lines.Add(Res);
application.MessageBox('加载成功！', '提示', MB_OK);
end;</pre>
</div>
<div class="cnblogs_code">
<pre>//处理JSON字符串，按照固定结构读取
procedure TForm2.Button2Click(Sender: TObject);
var
jRet, jUsers: ISuperObject;
aryUsers: TSuperArray;
gridStartTime, gridEndTime, resultStartTime, resultEndTime, WindSpeedBorder,
WindDirectBorder: string;
po, pof, poh, posp: Tpoint;
num, count, I, J: integer;
aryers, arrline, arrbar, arrspeed: TSuperArray;
Tlist: TStringlist;
begin
jRet:=TSuperObject.Create(stObject);
Tlist := TStringlist.Create;
Tlist.Delimiter := ',';
jRet := SO(Res);
gridStartTime := jRet.O['gridStartTime'].AsString();
Memo1.Lines.Add(gridStartTime);
gridEndTime := jRet.O['gridEndTime'].AsString();
Memo1.Lines.Add(gridEndTime);
resultStartTime := jRet.O['resultStartTime'].AsString();
Memo1.Lines.Add(resultStartTime);
resultEndTime := jRet.O['resultEndTime'].AsString();
Memo1.Lines.Add(resultEndTime);
WindSpeedBorder := jRet.O['WindSpeedBorder'].AsString();
Memo1.Lines.Add(WindSpeedBorder);
WindDirectBorder := jRet.O['WindDirectBorder'].AsString();
Memo1.Lines.Add(WindDirectBorder);

aryers := jRet.O['WindDirectLine'].O['coordinates'].AsArray();
count := aryers.Length;
for I := 0 to count - 1 do
begin
arrline := aryers.O['mWindDirectBaseLine'].AsArray();
for J := 0 to arrline.Length - 1 do
begin
 // Tlist.DelimitedText := arrline.O['p'].AsString();
 // po:=point(strtoint(Tlist),strtoint(Tlist));
 Memo1.Lines.Add(arrline.O['p'].AsString());
end;
arrbar := aryers.O['mWindDirectBars'].AsArray();
for J := 0 to arrbar.Length - 1 do
begin
 // Tlist.DelimitedText := arrbar.O['f'].O['p'].AsString();
 // pof:=point(strtoint(Tlist),strtoint(Tlist));
 // Tlist.DelimitedText := arrbar.O['h'].O['p'].AsString();
 // poh:=point(strtoint(Tlist),strtoint(Tlist));
 Memo1.Lines.Add('f: ' + arrbar.O['f'].O['p'].AsString()
 + ' h: ' + arrbar.O['h'].O['p'].AsString());
end;
end;

aryers := jRet.O['WindSpeedLine'].O['coordinates'].AsArray();
count := aryers.Length;
for I := 0 to count - 1 do
begin
arrspeed := aryers.AsArray();
for J := 0 to arrspeed.Length - 1 do
begin
 // Tlist.DelimitedText := arrspeed.O['p'].AsString();
 // posp:=point(strtoint(Tlist),strtoint(Tlist));
 Memo1.Lines.Add(arrspeed.O['p'].AsString());
end;
end;
application.MessageBox('处理完成！', '提示', MB_OK);
end;</pre>
</div>
<div class="cnblogs_code">
<pre>//修改JSON文件并保存
procedure TForm2.Button3Click(Sender: TObject);
var
jfields, jitems, jo, jRet: ISuperObject;
date: string;
num, count, I, J: integer;
txt:TextFile;
aryers, arrline, arrbar, arrspeed: TSuperArray;
begin
jRet := SO(Res);
if jRet = nil then
 application.MessageBox('读取失败！', '提示', MB_OK);
//date := FormatDateTime('yyyy-MM-dd hh:nn:ss', Now());
jRet.S['gridStartTime'] := date;
jRet.S['gridEndTime'] := date;
jRet.S['resultStartTime'] := date;
jRet.S['resultEndTime'] := date;
jRet.S['WindSpeedBorder'] := date;
jRet.S['WindDirectBorder'] := date;
jRet.I['gridMethod']:=2;
count:=jRet.O['WindDirectLine'].A['coordinates'].Length;
for I := 0 to count - 1 do
begin
 num:= jRet.O['WindDirectLine'].A['coordinates'].A['mWindDirectBaseLine'].Length;
 for J := 0 to num - 1 do
 begin
 jRet.O['WindDirectLine'].A['coordinates'].A['mWindDirectBaseLine'].S['p']:=inttostr(I)+' ,'+inttostr(J);
 end;
end;
Assignfile(txt,'E:\p.gal');//指定文件路径
rewrite(txt); //创建并打开一个新文件（或覆盖原有文件）
Writeln(txt,jRet.AsString());
Closefile(txt); //关闭打开的文件

application.MessageBox(Pchar(jRet.O['gridStartTime'].AsString()), '提示', MB_OK);
end;</pre>
</div>
注意：
<ul>
<li>读取文件时如果json文件中包含中文格式，那么在读取时必须保证为获取字段为UTF8String类型。</li>
<li> jRet.O['WindSpeedLine'].A['coordinates'].AsArray().add(jo);//对与数组嵌套的json，可以通过这种方式添加。</li>
<li>读取或者声明的jo := SO();不能用clear()清空，否则add(jo)就会成为空数据。</li>
</ul>
　　
  
来源：https://www.cnblogs.com/motao9527/p/10830725.html

頁: [1]

琼殿技术论坛's Archiver

Delphi解析修改Json文件，基于superobject.pas（ISuperObject）