今天易班突然布置很多作业,花两小时临时写了个题库搜集器

夕木柠昔 · 发表于 2022-10-16 18:13:39

今天易班突然布置很多作业,花两小时临时写了个题库搜集器今晚等我有空做一个网页自动化自动填表+读表

屏幕截图 2022-10-16 180932.png

子程序名	返回值类型	公开	备注
_按钮3_被单击

json1.创建 (到文本 (读入文件 (取运行目录 () ＋ “\pz.ini”)))
编辑框4.内容＝ json1.到文本 (, 真)
' json_ju1.创建 ()
count1 ＝ 0

变量循环首 (0, 200 － 1, 1, i1)

json_ju2 ＝ json1.取成员 (“dx1_”, i1)

json_ju3 ＝ json1.取成员 (“dx2_”, i1)

json_ju4 ＝ json1.取成员 (“pd1_”, i1)

' 调试输出 (json_ju2.到文本 (, 真))

ttdx1 [i1 ＋ 1].tm ＝ json_ju2.取文本 (“tm”)

ttdx1 [i1 ＋ 1].pw ＝ json_ju2.取文本 (“pw”)

ttdx2 [i1 ＋ 1].tm ＝ json_ju3.取文本 (“tm”)

ttdx2 [i1 ＋ 1].pw ＝ json_ju3.取文本 (“pw”)

ttpd1 [i1 ＋ 1].pw ＝ json_ju4.取文本 (“pw”)

如果真 (ttdx1 [i1 ＋ 1].tm ≠ “”)

count1 ＝ count1 ＋ 1

如果真 (ttdx2 [i1 ＋ 1].tm ≠ “”)

count1 ＝ count1 ＋ 1

如果真 (ttpd1 [i1 ＋ 1].tm ≠ “”)

count1 ＝ count1 ＋ 1

变量循环尾 ()
_启动窗口.标题＝ “导入成功,当前有效条数为:” ＋到文本 (count1)

testt.e (161.74 KB, 下载次数: 12)

SHIWOOOO · 发表于 2024-2-19 09:13:05

好好好好

玄易 · 发表于 2022-10-26 21:06:43

支持开源~！感谢分享

littleplus · 发表于 2022-10-19 14:23:16

学习了，谢谢。

sinewtec · 发表于 2022-10-19 09:19:20

学习学习学习学习

Azmat · 发表于 2022-10-18 15:34:47

感谢分享，很给力！~

guyuelintian · 发表于 2022-10-17 23:51:05

开源都是好同志啊

张硕1 · 发表于 2022-10-17 21:30:48

666666666666666666666666666666

ermituofo · 发表于 2022-10-17 13:06:35

支持开源~！感谢分享

kantal · 发表于 2022-10-17 12:36:25

支持开源~！感谢分享

		自动登录	找回密码
密码			注册

[易源码分享] 今天易班突然布置很多作业,花两小时临时写了个题库搜集器