数据处理求救

frankiy

錵錵

时间有限 只写了一部分，剩下的部分你照抄就行了
一键处理.e (1.04 MB, 下载次数: 0)

2025-11-16 04:15 上传

点击文件名下载附件

真冬

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序1 ()

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
lsbjk	字节集		0
i1	整数型
wjh	整数型
a	文本型		0
sy	整数型
gkh	整数型		9999,7
a1	整数型
b	文本型		0
i2	整数型
bcd	整数型
wjhwz	整数型

清除数组 (lsbjk)
加入成员 (lsbjk, 到字节集 (编辑框_错分.内容))
加入成员 (lsbjk, 到字节集 (编辑框_卡件.内容))
加入成员 (lsbjk, 到字节集 (编辑框_已查验.内容))
加入成员 (lsbjk, 到字节集 (编辑框_未查验.内容))
加入成员 (lsbjk, 到字节集 (编辑框_责任员工.内容))
加入成员 (lsbjk, 到字节集 (编辑框_责任领导.内容))
计次循环首 (取数组成员数 (lsbjk), i1)
wjh ＝ 打开内存文件 ()
写出字节集 (wjh, lsbjk [i1])
移到文件首 (wjh)
判断循环首 (是否在文件尾 (wjh, ) ＝ 假)
a ＝ 分割文本 (读入一行 (wjh), 字符 (9), )
如果真 (取数组成员数 (a) ＞ 1)
判断 (i1 ≤ 4)
a1 ＝ 到整数 (a [1])
gkh [a1] [i1] ＝ gkh [a1] [i1] ＋ 到整数 (a [2])
gkh [a1] [7] ＝ 1


b ＝ 分割文本 (a [1], “-”, )
如果真 (取数组成员数 (b) ＞ 1)
bcd ＝ wjhwz ＋ 取文本长度 (b [1]) ＋ 1 ＋ 3
变量循环首 (到整数 (b [1]), 到整数 (b [2]), 1, i2)
gkh [i2] [i1] ＝ bcd
变量循环尾 ()


wjhwz ＝ 取读写位置 (wjh)
判断循环尾 ()
wjhwz ＝ 0
关闭文件 (wjh)
如果真 (i1 ≥ 5)
lsbjk [i1] ＝ 子字节集替换 (lsbjk [i1], { 13 }, { 0 }, , ) ＋ { 0 }

计次循环尾 ()
超级列表框_员工解锁.禁止重画 ()
超级列表框_员工解锁.全部删除 ()
计次循环首 (取数组下标 (gkh, 1), i1)
如果真 (gkh [i1] [7] ＞ 0)
sy ＝ 超级列表框_员工解锁.插入表项 (, 到文本 (i1), , , , )
计次循环首 (取数组下标 (gkh, 2) － 1, i2)
如果真 (gkh [i1] [i2] ＝ 0)
到循环尾 ()
判断 (i2 ≥ 5)
超级列表框_员工解锁.置标题 (sy, i2, 指针到文本 (取变量数据地址 (lsbjk [i2]) ＋ gkh [i1] [i2]))
超级列表框_员工解锁.置标题 (sy, i2, 到文本 (gkh [i1] [i2]))

计次循环尾 ()

计次循环尾 ()
超级列表框_员工解锁.允许重画 ()

子程序名	返回值类型	公开	备 注
_编辑框_错分_内容被改变

子程序1 ()

子程序名	返回值类型	公开	备 注
_编辑框_卡件_内容被改变

子程序1 ()

子程序名	返回值类型	公开	备 注
_编辑框_已查验_内容被改变

子程序1 ()

子程序名	返回值类型	公开	备 注
_编辑框_未查验_内容被改变

子程序1 ()

子程序名	返回值类型	公开	备 注
_编辑框_责任员工_内容被改变

子程序1 ()

子程序名	返回值类型	公开	备 注
_编辑框_责任领导_内容被改变

子程序1 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 子程序1 ()<br /> <br /> .子程序 子程序1<br /> .局部变量 lsbjk, 字节集, 静态, "0"<br /> .局部变量 i1, 整数型<br /> .局部变量 wjh, 整数型<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 sy, 整数型<br /> .局部变量 gkh, 整数型, , "9999,7"<br /> .局部变量 a1, 整数型<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 i2, 整数型<br /> .局部变量 bcd, 整数型<br /> .局部变量 wjhwz, 整数型<br /> <br /> 清除数组 (lsbjk)<br /> 加入成员 (lsbjk, 到字节集 (编辑框_错分.内容))<br /> 加入成员 (lsbjk, 到字节集 (编辑框_卡件.内容))<br /> 加入成员 (lsbjk, 到字节集 (编辑框_已查验.内容))<br /> 加入成员 (lsbjk, 到字节集 (编辑框_未查验.内容))<br /> 加入成员 (lsbjk, 到字节集 (编辑框_责任员工.内容))<br /> 加入成员 (lsbjk, 到字节集 (编辑框_责任领导.内容))<br /> .计次循环首 (取数组成员数 (lsbjk), i1)<br />     wjh ＝ 打开内存文件 ()<br />     写出字节集 (wjh, lsbjk [i1])<br />     移到文件首 (wjh)<br />     .判断循环首 (是否在文件尾 (wjh, ) ＝ 假)<br />         a ＝ 分割文本 (读入一行 (wjh), 字符 (9), )<br />         .如果真 (取数组成员数 (a) ＞ 1)<br />             .判断开始 (i1 ≤ 4)<br />                 a1 ＝ 到整数 (a [1])<br />                 gkh [a1] [i1] ＝ gkh [a1] [i1] ＋ 到整数 (a [2])<br />                 gkh [a1] [7] ＝ 1<br />             .默认<br /> <br />                 b ＝ 分割文本 (a [1], “-”, )<br />                 .如果真 (取数组成员数 (b) ＞ 1)<br />                     bcd ＝ wjhwz ＋ 取文本长度 (b [1]) ＋ 1 ＋ 3<br />                     .变量循环首 (到整数 (b [1]), 到整数 (b [2]), 1, i2)<br />                         gkh [i2] [i1] ＝ bcd<br /> <br />                     .变量循环尾 ()<br />                 .如果真结束<br /> <br />             .判断结束<br /> <br />         .如果真结束<br />         wjhwz ＝ 取读写位置 (wjh)<br />     .判断循环尾 ()<br />     wjhwz ＝ 0<br />     关闭文件 (wjh)<br />     .如果真 (i1 ≥ 5)<br />         lsbjk [i1] ＝ 子字节集替换 (lsbjk [i1], { 13 }, { 0 }, , ) ＋ { 0 }<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 超级列表框_员工解锁.禁止重画 ()<br /> 超级列表框_员工解锁.全部删除 ()<br /> .计次循环首 (取数组下标 (gkh, 1), i1)<br />     .如果真 (gkh [i1] [7] ＞ 0)<br />         sy ＝ 超级列表框_员工解锁.插入表项 (, 到文本 (i1), , , , )<br />         .计次循环首 (取数组下标 (gkh, 2) － 1, i2)<br />             .如果真 (gkh [i1] [i2] ＝ 0)<br />                 到循环尾 ()<br />             .如果真结束<br />             .判断开始 (i2 ≥ 5)<br />                 超级列表框_员工解锁.置标题 (sy, i2, 指针到文本 (取变量数据地址 (lsbjk [i2]) ＋ gkh [i1] [i2]))<br />             .默认<br />                 超级列表框_员工解锁.置标题 (sy, i2, 到文本 (gkh [i1] [i2]))<br />             .判断结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 超级列表框_员工解锁.允许重画 ()<br /> <br /> <br /> .子程序 _编辑框_错分_内容被改变<br /> <br /> 子程序1 ()<br /> <br /> .子程序 _编辑框_卡件_内容被改变<br /> <br /> 子程序1 ()<br /> <br /> .子程序 _编辑框_已查验_内容被改变<br /> <br /> 子程序1 ()<br /> <br /> .子程序 _编辑框_未查验_内容被改变<br /> <br /> 子程序1 ()<br /> <br /> .子程序 _编辑框_责任员工_内容被改变<br /> <br /> 子程序1 ()<br /> <br /> .子程序 _编辑框_责任领导_内容被改变<br /> <br /> 子程序1 ()

真冬

tj5523

虽然有点看懂了，但是太乱了，拒绝回答

shenying408

例子大约就是这样，你自己改改就能用

mdj198665

这差不多让别人帮你写出一个完整个代码了哦...