换给思路,因POST数据量大.想从精易模块换成鱼刺

zhangx1aoxi

继上个帖子(无人回复)后的思路,
换给思路,因POST数据量大.加编码转换,导致5W5千条数据.需要15分-20分钟内(json到超级列表框)..想从精易模块换成鱼刺.(测试了的.拿城南post的鱼刺和精易编程助手对比了的.)
网站是需要U盾才可以登录的,.大神们只需要看代码即可. 优化代码或者用鱼刺代替.(curl访问不了网页返回数据901)

  

子程序名	返回值类型	公开	备 注
功能_数据访问	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
ADD_数据包	类_POST数据类
局_提交数据	文本型
ADD_协yi头	类_POST数据类
局_提交协yi头	文本型
局_结果	字节集
局_返回	文本型

' https://www.whqcgs:8443/query/list
局_网址 ＝ “https://www.whqcgs:8443/query/list”
局_方式 ＝ 1
ADD_数据包.添加 (“page”, 编辑框8.内容) ' **** 这个可以默认,页面数
ADD_数据包.添加 (“rows”, 编辑框7.内容)  ' *** 这里是下载的条数, 55000
ADD_数据包.添加 (“borrowerName”, “”)
ADD_数据包.添加 (“borrowerType”, “”)
ADD_数据包.添加 (“custName”, “”)
ADD_数据包.添加 (“isAgree”, “”)
ADD_数据包.添加 (“loanstatus”, “”)
ADD_数据包.添加 (“status”, “”)
ADD_数据包.添加 (“idno”, “”)
ADD_数据包.添加 (“x-ss-token”, 编辑框1.内容)  ' **** 网页的TOKEN
ADD_数据包.添加 (“i18n”, “”)
ADD_数据包.添加 (“x-ss-uuid”, “73afe3fa-add1-414f-b204-27a8716de53f”)
局_提交数据 ＝ ADD_数据包.获取Post数据 ()
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36”)
ADD_协yi头.添加 (“X-Requested-With”, “XMLHttpRequest”)
局_提交协yi头 ＝ ADD_协yi头.获取协yi头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协yi头, , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)

子程序名	返回值类型	公开	备 注
数据访问

变量名	类 型	静态	数组	备 注
de	文本型
json	类_json
成员数	整数型
计次	整数型
日期	文本型
经销商	文本型
客户名称	文本型
证件号码	文本型
融资申请ID	文本型
担保结果	文本型
索引	整数型
_按钮1_被单击	整数型
融资审批状态	文本型
担保确认审批状态	文本型
i	整数型
客户ID	文本型
总单条数	文本型

json.解析 (功能_数据访问 ())
成员数 ＝ json.成员数 (“data”)
计次循环首 (超级列表框3.取列数 (), )
超级列表框3.删除表项 (0)
计次循环尾 ()
计次循环首 (成员数, 计次)
日期 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].creationDate”)
经销商 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].custName”)
客户名称 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].borrowerName”)
证件号码 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].idno”)
融资申请ID ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].loanappid”)
客户ID ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].borrowerId”)
融资审批状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].loanstatus”)
担保确认审批状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].status”)
担保结果 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].opinion”)
如果真 (融资审批状态 ＝ “0”)
融资审批状态 ＝ “新建”
如果真 (融资审批状态 ＝ “1”)
融资审批状态 ＝ “审批通过”
如果真 (融资审批状态 ＝ “2”)
融资审批状态 ＝ “审批中”
如果真 (融资审批状态 ＝ “3”)
融资审批状态 ＝ “已拒绝”
如果真 (融资审批状态 ＝ “4”)
融资审批状态 ＝ “已退回”
如果真 (融资审批状态 ＝ “5”)
融资审批状态 ＝ “已撤消”
如果真 (融资审批状态 ＝ “6”)
融资审批状态 ＝ “APP提交待处理”
如果真 (融资审批状态 ＝ “7”)
融资审批状态 ＝ “秒批订单APP待处理”
如果真 (担保确认审批状态 ＝ “0”)
担保确认审批状态 ＝ “新建”
如果真 (担保确认审批状态 ＝ “1”)
担保确认审批状态 ＝ “审批通过”
如果真 (担保确认审批状态 ＝ “2”)
担保确认审批状态 ＝ “审批中”
如果真 (担保确认审批状态 ＝ “3”)
担保确认审批状态 ＝ “已拒绝”
如果真 (担保确认审批状态 ＝ “4”)
担保确认审批状态 ＝ “已退回”
如果真 (担保确认审批状态 ＝ “5”)
担保确认审批状态 ＝ “已撤消”
如果真 (担保确认审批状态 ＝ “6”)
担保确认审批状态 ＝ “APP提交待处理”
如果真 (担保确认审批状态 ＝ “7”)
担保确认审批状态 ＝ “秒批订单APP待处理”

索引 ＝ 超级列表框3.插入表项 (, , , , , )
超级列表框3.置标题 (索引, 0, 时间_到文本 (到时间 (日期), 1, 1))
超级列表框3.置标题 (索引, 1, 时间_到文本 (到时间 (日期), 1, 3))
超级列表框3.置标题 (索引, 2, 经销商)
超级列表框3.置标题 (索引, 3, 客户名称)
超级列表框3.置标题 (索引, 4, 证件号码)
超级列表框3.置标题 (索引, 5, 融资申请ID)
超级列表框3.置标题 (索引, 6, 客户ID)
超级列表框3.置标题 (索引, 7, 融资审批状态)
超级列表框3.置标题 (索引, 8, 担保确认审批状态)
超级列表框3.置标题 (索引, 9, 担保结果)
融资审批状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].loanstatus”)
如果真 (融资审批状态 ＝ “0”)
融资审批状态 ＝ “新建”
如果真 (融资审批状态 ＝ “1”)
融资审批状态 ＝ “审批通过”
如果真 (融资审批状态 ＝ “2”)
融资审批状态 ＝ “审批中”
如果真 (融资审批状态 ＝ “3”)
融资审批状态 ＝ “已拒绝”
如果真 (融资审批状态 ＝ “4”)
融资审批状态 ＝ “已退回”
如果真 (融资审批状态 ＝ “5”)
融资审批状态 ＝ “已撤消”
如果真 (融资审批状态 ＝ “6”)
融资审批状态 ＝ “APP提交待处理”
如果真 (融资审批状态 ＝ “7”)
融资审批状态 ＝ “秒批订单APP待处理”
担保确认审批状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].status”)
如果真 (担保确认审批状态 ＝ “0”)
担保确认审批状态 ＝ “新建”
如果真 (担保确认审批状态 ＝ “1”)
担保确认审批状态 ＝ “审批通过”
如果真 (担保确认审批状态 ＝ “2”)
担保确认审批状态 ＝ “审批中”
如果真 (担保确认审批状态 ＝ “3”)
担保确认审批状态 ＝ “已拒绝”
如果真 (担保确认审批状态 ＝ “4”)
担保确认审批状态 ＝ “已退回”
如果真 (担保确认审批状态 ＝ “5”)
担保确认审批状态 ＝ “已撤消”
如果真 (担保确认审批状态 ＝ “6”)
担保确认审批状态 ＝ “APP提交待处理”
如果真 (担保确认审批状态 ＝ “7”)
担保确认审批状态 ＝ “秒批订单APP待处理”

计次循环尾 ()
透明标签4.标题 ＝ “总单数 ” ＋ 到文本 (超级列表框3.取表项数 ())
超级列表框3.保证显示 (超级列表框3.取表项数 ())

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 功能_数据访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_数据包, 类_POST数据类<br /> .局部变量 局_提交数据, 文本型<br /> .局部变量 ADD_协yi头, 类_POST数据类<br /> .局部变量 局_提交协yi头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> <br /> ' https://www.whqcgs:8443/query/list<br /> 局_网址 ＝ “https://www.whqcgs:8443/query/list”<br /> 局_方式 ＝ 1<br /> ADD_数据包.添加 (“page”, 编辑框8.内容) '**** 这个可以默认,页面数<br /> ADD_数据包.添加 (“rows”, 编辑框7.内容)  '*** 这里是下载的条数, 55000<br /> ADD_数据包.添加 (“borrowerName”, “”)<br /> ADD_数据包.添加 (“borrowerType”, “”)<br /> ADD_数据包.添加 (“custName”, “”)<br /> ADD_数据包.添加 (“isAgree”, “”)<br /> ADD_数据包.添加 (“loanstatus”, “”)<br /> ADD_数据包.添加 (“status”, “”)<br /> ADD_数据包.添加 (“idno”, “”)<br /> ADD_数据包.添加 (“x-ss-token”, 编辑框1.内容)  '**** 网页的TOKEN <br /> ADD_数据包.添加 (“i18n”, “”)<br /> ADD_数据包.添加 (“x-ss-uuid”, “73afe3fa-add1-414f-b204-27a8716de53f”)<br /> <br /> 局_提交数据 ＝ ADD_数据包.获取Post数据 ()<br /> ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36”)<br /> ADD_协yi头.添加 (“X-Requested-With”, “XMLHttpRequest”)<br /> <br /> 局_提交协yi头 ＝ ADD_协yi头.获取协yi头数据 ()<br /> <br /> 局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协yi头, , , , , , , , , , , )<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br /> 返回 (局_返回)<br /> <br /> .子程序 数据访问<br /> .局部变量 de, 文本型<br /> .局部变量 json, 类_json<br /> .局部变量 成员数, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 日期, 文本型<br /> .局部变量 经销商, 文本型<br /> .局部变量 客户名称, 文本型<br /> .局部变量 证件号码, 文本型<br /> .局部变量 融资申请ID, 文本型<br /> .局部变量 担保结果, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 _按钮1_被单击, 整数型<br /> .局部变量 融资审批状态, 文本型<br /> .局部变量 担保确认审批状态, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 客户ID, 文本型<br /> .局部变量 总单条数, 文本型<br /> <br /> json.解析 (功能_数据访问 ())<br /> <br /> 成员数 ＝ json.成员数 (“data”)<br /> .计次循环首 (超级列表框3.取列数 (), )<br />     超级列表框3.删除表项 (0)<br /> .计次循环尾 ()<br /> <br /> <br /> .计次循环首 (成员数, 计次)<br />     日期 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].creationDate”)<br />     经销商 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].custName”)<br />     客户名称 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].borrowerName”)<br />     证件号码 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].idno”)<br />     融资申请ID ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].loanappid”)<br />     客户ID ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].borrowerId”)<br />     融资审批状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].loanstatus”)<br />     担保确认审批状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].status”)<br /> <br />     担保结果 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].opinion”)<br />     .如果真 (融资审批状态 ＝ “0”)<br />         融资审批状态 ＝ “新建”<br /> <br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “1”)<br />         融资审批状态 ＝ “审批通过”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “2”)<br />         融资审批状态 ＝ “审批中”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “3”)<br />         融资审批状态 ＝ “已拒绝”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “4”)<br />         融资审批状态 ＝ “已退回”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “5”)<br />         融资审批状态 ＝ “已撤消”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “6”)<br />         融资审批状态 ＝ “APP提交待处理”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “7”)<br />         融资审批状态 ＝ “秒批订单APP待处理”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “0”)<br />         担保确认审批状态 ＝ “新建”<br /> <br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “1”)<br />         担保确认审批状态 ＝ “审批通过”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “2”)<br />         担保确认审批状态 ＝ “审批中”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “3”)<br />         担保确认审批状态 ＝ “已拒绝”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “4”)<br />         担保确认审批状态 ＝ “已退回”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “5”)<br />         担保确认审批状态 ＝ “已撤消”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “6”)<br />         担保确认审批状态 ＝ “APP提交待处理”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “7”)<br />         担保确认审批状态 ＝ “秒批订单APP待处理”<br />     .如果真结束<br /> <br /> <br />     索引 ＝ 超级列表框3.插入表项 (, , , , , )<br />     超级列表框3.置标题 (索引, 0, 时间_到文本 (到时间 (日期), 1, 1))<br />     超级列表框3.置标题 (索引, 1, 时间_到文本 (到时间 (日期), 1, 3))<br />     超级列表框3.置标题 (索引, 2, 经销商)<br />     超级列表框3.置标题 (索引, 3, 客户名称)<br />     超级列表框3.置标题 (索引, 4, 证件号码)<br />     超级列表框3.置标题 (索引, 5, 融资申请ID)<br />     超级列表框3.置标题 (索引, 6, 客户ID)<br />     超级列表框3.置标题 (索引, 7, 融资审批状态)<br />     超级列表框3.置标题 (索引, 8, 担保确认审批状态)<br />     超级列表框3.置标题 (索引, 9, 担保结果)<br /> <br /> <br />     融资审批状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].loanstatus”)<br />     .如果真 (融资审批状态 ＝ “0”)<br />         融资审批状态 ＝ “新建”<br /> <br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “1”)<br />         融资审批状态 ＝ “审批通过”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “2”)<br />         融资审批状态 ＝ “审批中”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “3”)<br />         融资审批状态 ＝ “已拒绝”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “4”)<br />         融资审批状态 ＝ “已退回”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “5”)<br />         融资审批状态 ＝ “已撤消”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “6”)<br />         融资审批状态 ＝ “APP提交待处理”<br />     .如果真结束<br />     .如果真 (融资审批状态 ＝ “7”)<br />         融资审批状态 ＝ “秒批订单APP待处理”<br />     .如果真结束<br />     担保确认审批状态 ＝ json.取通用属性 (“data[” ＋ 到文本 (计次 － 1) ＋ “].status”)<br />     .如果真 (担保确认审批状态 ＝ “0”)<br />         担保确认审批状态 ＝ “新建”<br /> <br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “1”)<br />         担保确认审批状态 ＝ “审批通过”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “2”)<br />         担保确认审批状态 ＝ “审批中”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “3”)<br />         担保确认审批状态 ＝ “已拒绝”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “4”)<br />         担保确认审批状态 ＝ “已退回”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “5”)<br />         担保确认审批状态 ＝ “已撤消”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “6”)<br />         担保确认审批状态 ＝ “APP提交待处理”<br />     .如果真结束<br />     .如果真 (担保确认审批状态 ＝ “7”)<br />         担保确认审批状态 ＝ “秒批订单APP待处理”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 透明标签4.标题 ＝ “总单数 ” ＋ 到文本 (超级列表框3.取表项数 ())<br /> 超级列表框3.保证显示 (超级列表框3.取表项数 ())

Siempre

.版本 2

http.Open (“POST”, 局_网址)
http.SetXMLHttpRequest ()
ADD_数据包.添加 (“page”, 编辑框8.内容)
ADD_数据包.添加 (“rows”, 编辑框7.内容)
ADD_数据包.添加 (“borrowerName”, “”)
ADD_数据包.添加 (“borrowerType”, “”)
ADD_数据包.添加 (“custName”, “”)
ADD_数据包.添加 (“isAgree”, “”)
ADD_数据包.添加 (“loanstatus”, “”)
ADD_数据包.添加 (“status”, “”)
ADD_数据包.添加 (“idno”, “”)
ADD_数据包.添加 (“x-ss-token”, 编辑框1.内容)
ADD_数据包.添加 (“i18n”, “”)
ADD_数据包.添加 (“x-ss-uuid”, “73afe3fa-add1-414f-b204-27a8716de53f”)

局_提交数据 ＝ ADD_数据包.获取Post数据 ()
http.SetRequestHeader (“User-Agent”, “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36”)
http.SetRequestHeader (“X-Requested-With”, “XMLHttpRequest”)
http.Send (局_提交数据)


' 局_提交协yi头 ＝ ADD_协yi头.获取协yi头数据 ()
局_返回 ＝ http.GetResponseTextU2A ()
' 局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协yi头, , , , , , , , , , , )
' 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)

zhangx1aoxi

自己抢个沙发.!

liang124

沙发 坐等大佬

国王软件

简单点还行，他们提一嘴，要改点啥，就得花玛尼了

zhangx1aoxi

国王软件 发表于 2022-8-1 15:33
简单点还行，他们提一嘴，要改点啥，就得花玛尼了

只是优化下代码，或者用另外模块替换，应该不需要吧，