procedure TForm1.VisitDirJsonTree(const AJsonObj: ISuperObject); var i: Integer; oItem: TSuperAvlEntry; begin for oItem in AJsonObj.AsObject do begin if oItem.Value.DataType = stObject then VisitDirJsonTree(oItem.Value) else if oItem.Value.DataType =
<span style="font-size:14px;">一直想找如何解析JSON数据的说,今天终于找到有人发帖子了.之前有人说用superobject,Tlkjson,delphi json library,delphi web unit等等.其实我是想找比较简单的解析方式.解析简单的json.下面是转载的坦然的源码. </span> unit Unit1; interface uses Winapi.Windows, Winapi.Messages, S
一.文件存储 1. TXT文本存储 例:知乎发现页面,获得数据存成TXT文本 import requests from pyquery import PyQuery as pq url="https://www.zhihu.com/explore" headers={'User-Agent':'ozilla/5.0 (iPhone; CPU iPhone OS 11_3 like Mac OS X) AppleWebKit/605.1.15 (KHTML, like Gecko) Mo
用于将数据存取到文件中: 1:Json的存数据到文件: import json info = { "name":"hjc", "age":22 } with open("a1.txt","w",encoding="utf-8") as f: f.write(json.dumps(info)) 2.Json的取数据 import json with open("a1.txt&qu