EDB_操作模块源码

揰掵佲

据说,1亿数据1秒查询!

  

窗口程序集名	保 留	保 留	备 注
模块入口
变量名	类 型	数组	备 注
集_数据库	字节集
集_是否打开	逻辑型
集_字段信息	EDB字段信息	0
集_数据偏移	长整数型
集_长度数组	整数型	8
集_当前记录	整数型
集_数据库缓存	字节集
集_字段总长	整数型
集_数据库路径	文本型

子程序名	返回值类型	公开	备 注
EDB_打开	逻辑型	√
参数名	类 型	参考	可空	数组	备 注
数据库路径	文本型				数据库路径

变量名	类 型	静态	数组	备 注
局_长度	整数型
局_标志	文本型
局_字段名偏移	整数型
局_字段总长	整数型
局_字段数	整数型
局_计次	整数型
局_字段信息	EDB字段信息

清除数组 (集_字段信息)
集_数据库 ＝ 读入文件 (数据库路径)
集_数据库路径 ＝ 数据库路径
局_长度 ＝ 取字节集长度 (集_数据库)
如果真 (局_长度 ＜ 112)
集_数据库 ＝ {  }
返回 (假)
局_标志 ＝ 到文本 (取字节集左边 (集_数据库, 4))
如果真 (局_标志 ≠ “WEDB”)
集_数据库 ＝ {  }
返回 (假)
'
局_字段数 ＝ 集_数据库 [113]
计次循环首 (局_字段数, 局_计次)
局_字段名偏移 ＝ (局_计次 － 1) × 72 ＋ 117
局_字段信息.字段名 ＝ 到文本 (取字节集中间 (集_数据库, 局_字段名偏移, 20))
局_字段信息.字段类型 ＝ 集_数据库 [局_字段名偏移 ＋ 20]
如果 (局_字段信息.字段类型 ≥ #字节型 且 局_字段信息.字段类型 ＜ #子程序指针型 )
局_字段信息.字段长度 ＝ 集_长度数组 [局_字段信息.字段类型]
判断 (局_字段信息.字段类型 ＝ #文本型 )
局_字段信息.字段长度 ＝ 集_数据库 [局_字段名偏移 ＋ 28] ＋ 集_数据库 [局_字段名偏移 ＋ 29] × 256
集_数据库 ＝ {  }
返回 (假)


加入成员 (集_字段信息, 局_字段信息)
计次循环尾 ()
集_数据偏移 ＝ 局_字段数 × 72 ＋ 117
局_计次 ＝ 0
局_字段总长 ＝ 0
计次循环首 (取数组成员数 (集_字段信息), 局_计次)
局_字段总长 ＝ 局_字段总长 ＋ 集_字段信息 [局_计次].字段长度
计次循环尾 ()
集_字段总长 ＝ 局_字段总长
集_数据库缓存 ＝ 取空白字节集 (集_字段总长)
集_当前记录 ＝ 0
集_是否打开 ＝ 真
返回 (真)

子程序名	返回值类型	公开	备 注
EDB_取记录数	整数型	√

变量名	类 型	静态	数组	备 注
局_记录数	整数型

如果真 (集_是否打开 ＝ 真)
局_记录数 ＝ 集_数据库 [17] ＋ 集_数据库 [18] × 256 ＋ 集_数据库 [19] × 65536 ＋ 集_数据库 [20] × 16777216
返回 (局_记录数)
返回 (0)

子程序名	返回值类型	公开	备 注
EDB_读_文本	文本型	√
参数名	类 型	参考	可空	数组	备 注
字段位置	整数型				字段位置

变量名	类 型	静态	数组	备 注
局_记录偏移	整数型
局_长度	整数型
局_返回	字节集
局_计次	整数型

如果真 (集_是否打开 ＝ 真)
局_记录偏移 ＝ (集_当前记录 － 1) �� (集_字段总长 ＋ 4) ＋ 集_数据偏移  '
局_长度 ＝ 4
计次循环首 (字段位置 － 1, 局_计次)
局_长度 ＝ 局_长度 ＋ 集_字段信息 [局_计次].字段长度
计次循环尾 ()
局_返回 ＝ 取字节集中间 (集_数据库, 局_记录偏移 ＋ 局_长度, 集_字段信息 [字段位置].字段长度)
返回 (到文本 (局_返回))
返回 (“”)

子程序名	返回值类型	公开	备 注
EDB_线程读_文本	文本型	√
参数名	类 型	参考	可空	数组	备 注
记录位置	整数型
字段位置	整数型				字段位置

变量名	类 型	静态	数组	备 注
局_记录偏移	整数型
局_长度	整数型
局_返回	字节集
局_计次	整数型

如果真 (集_是否打开 ＝ 真)
局_记录偏移 ＝ (记录位置 － 1) �� (集_字段总长 ＋ 4) ＋ 集_数据偏移  '
局_长度 ＝ 4
计次循环首 (字段位置 － 1, 局_计次)
局_长度 ＝ 局_长度 ＋ 集_字段信息 [局_计次].字段长度
计次循环尾 ()
局_返回 ＝ 取字节集中间 (集_数据库, 局_记录偏移 ＋ 局_长度, 集_字段信息 [字段位置].字段长度)
返回 (到文本 (局_返回))
返回 (“”)

子程序名	返回值类型	公开	备 注
EDB_写_文本		√
参数名	类 型	参考	可空	数组	备 注
字段位置	整数型				字段位置
文本内容	文本型				文本内容

变量名	类 型	静态	数组	备 注
局_记录偏移	整数型
局_长度	整数型
局_返回	字节集
局_计次	整数型

如果真 (集_是否打开 ＝ 真)
局_记录偏移 ＝ (集_当前记录 － 1) �� (集_字段总长 ＋ 4) ＋ 集_数据偏移  '
局_长度 ＝ 4
计次循环首 (字段位置 － 1, 局_计次)
局_长度 ＝ 局_长度 ＋ 集_字段信息 [局_计次].字段长度
计次循环尾 ()
局_返回 ＝ 到字节集 (文本内容)
如果真 (取字节集长度 (局_返回) ≤ 集_字段信息 [字段位置].字段长度)
计次循环首 (取字节集长度 (局_返回), 局_计次)
集_数据库 [局_记录偏移 ＋ 局_长度 ＋ 局_计次 － 1] ＝ 局_返回 [局_计次]
计次循环尾 ()

子程序名	返回值类型	公开	备 注
EDB_跳过		√

如果真 (集_是否打开 ＝ 真)
集_当前记录 ＝ 集_当前记录 ＋ 1

子程序名	返回值类型	公开	备 注
EDB_到首记录		√

如果真 (集_是否打开 ＝ 真)
集_当前记录 ＝ 1

子程序名	返回值类型	公开	备 注
EDB_加空记录		√
参数名	类 型	参考	可空	数组	备 注
记录数量	整数型

变量名	类 型	静态	数组	备 注
局_记录数	整数型
局_记录数字节集	字节集
局_计次	整数型
局_数据偏移	整数型
局_尾记录偏移	整数型
局_计次2	整数型

如果真 (集_是否打开 ＝ 真)
如果真 (记录数量 ＞ 0)
局_记录数 ＝ 集_数据库 [17] ＋ 集_数据库 [18] × 256 ＋ 集_数据库 [19] × 65536 ＋ 集_数据库 [20] × 16777216
集_当前记录 ＝ 局_记录数 ＋ 1  '
局_记录数 ＝ 局_记录数 ＋ 记录数量  '
局_记录数字节集 ＝ 到字节集 (局_记录数)
计次循环首 (4, 局_计次)
集_数据库 [16 ＋ 局_计次] ＝ 局_记录数字节集 [局_计次]
计次循环尾 ()
集_数据库 ＝ 集_数据库 ＋ 取空白字节集 ( (集_字段总长 ＋ 4) × 记录数量)  '
局_尾记录偏移 ＝ 集_数据库 [21] ＋ 集_数据库 [22] × 256 ＋ 集_数据库 [23] × 65536 ＋ 集_数据库 [24] × 16777216
局_记录数 ＝ 局_尾记录偏移 ＋ 记录数量  '
局_记录数字节集 ＝ 到字节集 (局_记录数)
计次循环首 (4, 局_计次)
集_数据库 [20 ＋ 局_计次] ＝ 局_记录数字节集 [局_计次]
计次循环尾 ()
计次循环首 (记录数量, 局_计次)
局_数据偏移 ＝ (集_当前记录 － 1) �� (集_字段总长 ＋ 4) ＋ 集_数据偏移  '
局_记录数字节集 ＝ 到字节集 (局_尾记录偏移)
计次循环首 (4, 局_计次2)
集_数据库 [局_数据偏移 ＋ 局_计次2 － 1] ＝ 局_记录数字节集 [局_计次2]
计次循环尾 ()
局_尾记录偏移 ＝ 局_尾记录偏移 ＋ 1
集_当前记录 ＝ 集_当前记录 ＋ 1
计次循环尾 ()

子程序名	返回值类型	公开	备 注
EDB_更新记录		√

如果真 (集_是否打开 ＝ 真)
写到文件 (集_数据库路径, 集_数据库)

子程序名	返回值类型	公开	备 注
EDB_关闭		√

如果真 (集_是否打开 ＝ 真)
写到文件 (集_数据库路径, 集_数据库)
集_数据库 ＝ {  }
集_是否打开 ＝ 假

数据类型名	公开	备 注
EDB字段信息
成员名	类 型	传址	数组	备 注
字段名	文本型
字段类型	整数型
字段长度	整数型

.版本 2<br /> <br /> .程序集 模块入口<br /> .程序集变量 集_数据库, 字节集<br /> .程序集变量 集_是否打开, 逻辑型<br /> .程序集变量 集_字段信息, EDB字段信息, , "0"<br /> .程序集变量 集_数据偏移, 长整数型<br /> .程序集变量 集_长度数组, 整数型, , "8"<br /> .程序集变量 集_当前记录, 整数型<br /> .程序集变量 集_数据库缓存, 字节集<br /> .程序集变量 集_字段总长, 整数型<br /> .程序集变量 集_数据库路径, 文本型<br /> <br /> .子程序 EDB_打开, 逻辑型, 公开<br /> .参数 数据库路径, 文本型, , 数据库路径<br /> .局部变量 局_长度, 整数型<br /> .局部变量 局_标志, 文本型<br /> .局部变量 局_字段名偏移, 整数型<br /> .局部变量 局_字段总长, 整数型<br /> .局部变量 局_字段数, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_字段信息, EDB字段信息<br /> <br /> 清除数组 (集_字段信息)<br /> 集_数据库 ＝ 读入文件 (数据库路径)<br /> 集_数据库路径 ＝ 数据库路径<br /> 局_长度 ＝ 取字节集长度 (集_数据库)<br /> .如果真 (局_长度 ＜ 112)<br />     集_数据库 ＝ {  }<br />     返回 (假)<br /> .如果真结束<br /> 局_标志 ＝ 到文本 (取字节集左边 (集_数据库, 4))<br /> .如果真 (局_标志 ≠ “WEDB”)<br />     集_数据库 ＝ {  }<br />     返回 (假)<br /> .如果真结束<br /> ' <br /> 局_字段数 ＝ 集_数据库 [113]<br /> .计次循环首 (局_字段数, 局_计次)<br />     局_字段名偏移 ＝ (局_计次 － 1) × 72 ＋ 117<br />     局_字段信息.字段名 ＝ 到文本 (取字节集中间 (集_数据库, 局_字段名偏移, 20))<br />     局_字段信息.字段类型 ＝ 集_数据库 [局_字段名偏移 ＋ 20]<br />     .如果 (局_字段信息.字段类型 ≥ #字节型 且 局_字段信息.字段类型 ＜ #子程序指针型)<br />         局_字段信息.字段长度 ＝ 集_长度数组 [局_字段信息.字段类型]<br />     .否则<br />         .判断开始 (局_字段信息.字段类型 ＝ #文本型)<br />             局_字段信息.字段长度 ＝ 集_数据库 [局_字段名偏移 ＋ 28] ＋ 集_数据库 [局_字段名偏移 ＋ 29] × 256<br />         .默认<br />             集_数据库 ＝ {  }<br />             返回 (假)<br />         .判断结束<br /> <br />     .如果结束<br /> <br />     加入成员 (集_字段信息, 局_字段信息)<br /> .计次循环尾 ()<br /> 集_数据偏移 ＝ 局_字段数 × 72 ＋ 117<br /> 局_计次 ＝ 0<br /> 局_字段总长 ＝ 0<br /> .计次循环首 (取数组成员数 (集_字段信息), 局_计次)<br />     局_字段总长 ＝ 局_字段总长 ＋ 集_字段信息 [局_计次].字段长度<br /> .计次循环尾 ()<br /> 集_字段总长 ＝ 局_字段总长<br /> 集_数据库缓存 ＝ 取空白字节集 (集_字段总长)<br /> 集_当前记录 ＝ 0<br /> 集_是否打开 ＝ 真<br /> 返回 (真)<br /> <br /> .子程序 EDB_取记录数, 整数型, 公开<br /> .局部变量 局_记录数, 整数型<br /> <br /> .如果真 (集_是否打开 ＝ 真)<br />     局_记录数 ＝ 集_数据库 [17] ＋ 集_数据库 [18] × 256 ＋ 集_数据库 [19] × 65536 ＋ 集_数据库 [20] × 16777216<br />     返回 (局_记录数)<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 EDB_读_文本, 文本型, 公开<br /> .参数 字段位置, 整数型, , 字段位置<br /> .局部变量 局_记录偏移, 整数型<br /> .局部变量 局_长度, 整数型<br /> .局部变量 局_返回, 字节集<br /> .局部变量 局_计次, 整数型<br /> <br /> .如果真 (集_是否打开 ＝ 真)<br />     局_记录偏移 ＝ (集_当前记录 － 1) × (集_字段总长 ＋ 4) ＋ 集_数据偏移  ' <br />     局_长度 ＝ 4<br />     .计次循环首 (字段位置 － 1, 局_计次)<br />         局_长度 ＝ 局_长度 ＋ 集_字段信息 [局_计次].字段长度<br />     .计次循环尾 ()<br />     局_返回 ＝ 取字节集中间 (集_数据库, 局_记录偏移 ＋ 局_长度, 集_字段信息 [字段位置].字段长度)<br />     返回 (到文本 (局_返回))<br /> .如果真结束<br /> 返回 (“”)<br /> <br /> .子程序 EDB_线程读_文本, 文本型, 公开<br /> .参数 记录位置, 整数型<br /> .参数 字段位置, 整数型, , 字段位置<br /> .局部变量 局_记录偏移, 整数型<br /> .局部变量 局_长度, 整数型<br /> .局部变量 局_返回, 字节集<br /> .局部变量 局_计次, 整数型<br /> <br /> .如果真 (集_是否打开 ＝ 真)<br />     局_记录偏移 ＝ (记录位置 － 1) × (集_字段总长 ＋ 4) ＋ 集_数据偏移  ' <br />     局_长度 ＝ 4<br />     .计次循环首 (字段位置 － 1, 局_计次)<br />         局_长度 ＝ 局_长度 ＋ 集_字段信息 [局_计次].字段长度<br />     .计次循环尾 ()<br />     局_返回 ＝ 取字节集中间 (集_数据库, 局_记录偏移 ＋ 局_长度, 集_字段信息 [字段位置].字段长度)<br />     返回 (到文本 (局_返回))<br /> .如果真结束<br /> 返回 (“”)<br /> <br /> .子程序 EDB_写_文本, , 公开<br /> .参数 字段位置, 整数型, , 字段位置<br /> .参数 文本内容, 文本型, , 文本内容<br /> .局部变量 局_记录偏移, 整数型<br /> .局部变量 局_长度, 整数型<br /> .局部变量 局_返回, 字节集<br /> .局部变量 局_计次, 整数型<br /> <br /> .如果真 (集_是否打开 ＝ 真)<br />     局_记录偏移 ＝ (集_当前记录 － 1) × (集_字段总长 ＋ 4) ＋ 集_数据偏移  ' <br />     局_长度 ＝ 4<br />     .计次循环首 (字段位置 － 1, 局_计次)<br />         局_长度 ＝ 局_长度 ＋ 集_字段信息 [局_计次].字段长度<br />     .计次循环尾 ()<br />     局_返回 ＝ 到字节集 (文本内容)<br />     .如果真 (取字节集长度 (局_返回) ≤ 集_字段信息 [字段位置].字段长度)<br />         .计次循环首 (取字节集长度 (局_返回), 局_计次)<br />             集_数据库 [局_记录偏移 ＋ 局_长度 ＋ 局_计次 － 1] ＝ 局_返回 [局_计次]<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 EDB_跳过, , 公开<br /> <br /> .如果真 (集_是否打开 ＝ 真)<br />     集_当前记录 ＝ 集_当前记录 ＋ 1<br /> .如果真结束<br /> <br /> <br /> .子程序 EDB_到首记录, , 公开<br /> <br /> .如果真 (集_是否打开 ＝ 真)<br />     集_当前记录 ＝ 1<br /> .如果真结束<br /> <br /> <br /> .子程序 EDB_加空记录, , 公开<br /> .参数 记录数量, 整数型<br /> .局部变量 局_记录数, 整数型<br /> .局部变量 局_记录数字节集, 字节集<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_数据偏移, 整数型<br /> .局部变量 局_尾记录偏移, 整数型<br /> .局部变量 局_计次2, 整数型<br /> <br /> .如果真 (集_是否打开 ＝ 真)<br />     .如果真 (记录数量 ＞ 0)<br />         局_记录数 ＝ 集_数据库 [17] ＋ 集_数据库 [18] × 256 ＋ 集_数据库 [19] × 65536 ＋ 集_数据库 [20] × 16777216<br />         集_当前记录 ＝ 局_记录数 ＋ 1  ' <br />         局_记录数 ＝ 局_记录数 ＋ 记录数量  ' <br />         局_记录数字节集 ＝ 到字节集 (局_记录数)<br />         .计次循环首 (4, 局_计次)<br />             集_数据库 [16 ＋ 局_计次] ＝ 局_记录数字节集 [局_计次]<br />         .计次循环尾 ()<br />         集_数据库 ＝ 集_数据库 ＋ 取空白字节集 ((集_字段总长 ＋ 4) × 记录数量)  ' <br />         局_尾记录偏移 ＝ 集_数据库 [21] ＋ 集_数据库 [22] × 256 ＋ 集_数据库 [23] × 65536 ＋ 集_数据库 [24] × 16777216<br />         局_记录数 ＝ 局_尾记录偏移 ＋ 记录数量  ' <br />         局_记录数字节集 ＝ 到字节集 (局_记录数)<br />         .计次循环首 (4, 局_计次)<br />             集_数据库 [20 ＋ 局_计次] ＝ 局_记录数字节集 [局_计次]<br />         .计次循环尾 ()<br />         .计次循环首 (记录数量, 局_计次)<br />             局_数据偏移 ＝ (集_当前记录 － 1) × (集_字段总长 ＋ 4) ＋ 集_数据偏移  ' <br />             局_记录数字节集 ＝ 到字节集 (局_尾记录偏移)<br />             .计次循环首 (4, 局_计次2)<br />                 集_数据库 [局_数据偏移 ＋ 局_计次2 － 1] ＝ 局_记录数字节集 [局_计次2]<br />             .计次循环尾 ()<br />             局_尾记录偏移 ＝ 局_尾记录偏移 ＋ 1<br />             集_当前记录 ＝ 集_当前记录 ＋ 1<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 EDB_更新记录, , 公开<br /> <br /> .如果真 (集_是否打开 ＝ 真)<br />     写到文件 (集_数据库路径, 集_数据库)<br /> .如果真结束<br /> <br /> <br /> .子程序 EDB_关闭, , 公开<br /> <br /> .如果真 (集_是否打开 ＝ 真)<br />     写到文件 (集_数据库路径, 集_数据库)<br />     集_数据库 ＝ {  }<br />     集_是否打开 ＝ 假<br /> .如果真结束<br /> <br /> .版本 2<br /> <br /> .数据类型 EDB字段信息<br />     .成员 字段名, 文本型<br />     .成员 字段类型, 整数型<br />     .成员 字段长度, 整数型<br /> <br /> <br />

游客，如果您要查看本帖隐藏内容请回复

liulisheng

做得太好了　　　

htvusyzt

感谢您的奉献，看不懂啊

wwwcsf12

zhichikaiyuan

dmnbjusx

看看是不是真的!~~~