QQwry.dat 实际是dbf文件数据库 ，

将QQwry.dat 改为QQwry.dbf 就可以看到里面的数据

易语言读取 dbf数据库源码很多 百度一下就可以

附源码 如下

-------------------------------------------------

.版本 2

.程序集 _模块_字节集模块, , , ** 不要更改此处 字节集.ec

.子程序 取十进制, 整数型, , 将非十进制的标准格式文本转换成十进制整数值

.参数 欲转换的值, 文本型, , 欲转换的值，文本型！

.参数 数值类型, 整数型, 可空, 0，#十六进制；1，#十进制(默认)；2，#八进制；3，#二进制

' ** 本子程序功能由系统自动转交对应模块实现，可以删除但不能修改。

.子程序 还原为字节集, 字节集, , 将一串十六进制文本还原为字节集

.参数 文本, 文本型, , 如“00BFAD00AFD4FD4F9E054F9FF91FC5FF2076FBAFDB071044”，或者是“{206,210,202,199}”之类

.参数 十六进制, 逻辑型, 可空, 如果未指明则为十六进制文本，如果为假则为十进制文本

' ** 本子程序功能由系统自动转交对应模块实现，可以删除但不能修改。

.子程序 查看字节集, 文本型, , 以文本表示字节集，适合于字节集的调试用

.参数 字节集, 字节集, , 要查看的字节集

' ** 本子程序功能由系统自动转交对应模块实现，可以删除但不能修改。

.子程序 字节集到十六进制, 文本型, , 将字节集用16进制表示

.参数 字节集, 字节集, , 用于转换的字节集

' ** 本子程序功能由系统自动转交对应模块实现，可以删除但不能修改。

---------------------------------------------------------------------------

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.局部变量 file, 整数型

.局部变量 字节集, 字节集

.局部变量 i, 整数型

.局部变量 文本字符串, 文本型

.局部变量 j, 整数型

.局部变量 字节, 字节集

.局部变量 记录数, 整数型

.局部变量 文件头长度, 整数型

.局部变量 记录长度, 整数型

.局部变量 字段数, 整数型

.局部变量 字段, 字节集

.局部变量 字段名, 文本型

.局部变量 字段类型, 文本型

.局部变量 字段长度, 整数型

.局部变量 小数位, 整数型

.局部变量 记录字节集, 字节集

.局部变量 字段类型数组, 文本型, , 0

.局部变量 字段长度数组, 整数型, , 0

.局部变量 记录, 文本型

.局部变量 k, 整数型

通用对话框1.打开 ()

file ＝ 打开文件 (通用对话框1.文件名, , )

字节集 ＝ 读入字节集 (file, 32)

记录数 ＝ 计算数量 (取字节集中间 (字节集, 5, 4))

文件头长度 ＝ 计算数量 (取字节集中间 (字节集, 9, 2))

记录长度 ＝ 计算数量 (取字节集中间 (字节集, 11, 2))

字段数 ＝ (文件头长度 － 33) ÷ 32

编辑框1.加入文本 (“记录数：” ＋ 到文本 (记录数) ＋ #换行符)

编辑框1.加入文本 (“记录长度：” ＋ 到文本 (记录长度) ＋ #换行符)

编辑框1.加入文本 (“字段数：” ＋ 到文本 (字段数) ＋ #换行符 ＋ #换行符 ＋ “数据库结构如下：” ＋ #换行符)

移到文件首 (file)

字节集 ＝ 读入字节集 (file, 文件头长度)

编辑框1.加入文本 (“字段名” ＋ 字符 (9) ＋ “字段类型” ＋ 字符 (9) ＋ “字段长度” ＋ 字符 (9) ＋ “小数位” ＋ 字符 (9) ＋ #换行符 ＋ #换行符)

.计次循环首 (字段数, i)

字段 ＝ 取字节集中间 (字节集, 32 ＋ (i － 1) × 32 ＋ 1, 32)

字段名 ＝ 取字节集数据 (取字节集左边 (字段, 11), 10)

字段类型 ＝ 取字节集数据 (取字节集中间 (字段, 12, 1), 10)

字段长度 ＝ 取字节集数据 (取字节集中间 (字段, 17, 1), 3)

小数位 ＝ 取字节集数据 (取字节集中间 (字段, 18, 1), 3)

编辑框1.加入文本 (字段名 ＋ 字符 (9) ＋ 字段类型 ＋ 字符 (9) ＋ 到文本 (字段长度) ＋ 字符 (9) ＋ 到文本 (小数位) ＋ #换行符)

加入成员 (字段类型数组, 字段类型)

加入成员 (字段长度数组, 字段长度)

.计次循环尾 ()

编辑框1.加入文本 (#换行符)

移到文件首 (file)

移动读写位置 (file, , 文件头长度)

.计次循环首 (记录数, i)

记录字节集 ＝ 读入字节集 (file, 记录长度)

记录 ＝ “”

k ＝ 2

.计次循环首 (字段数, j)

记录 ＝ 记录 ＋ 删全部空 (到文本 (取字节集中间 (记录字节集, k, 字段长度数组 [j]))) ＋ “ ”

k ＝ k ＋ 字段长度数组 [j]

.计次循环尾 ()

编辑框1.加入文本 (记录 ＋ #换行符)

.计次循环尾 ()

信息框 (“共有” ＋ 到文本 (记录数) ＋ “条记录！”, 0, )

.子程序 计算数量, 整数型

.参数 字节集, 字节集

.局部变量 i, 整数型

.局部变量 l, 整数型

.局部变量 结果, 字节集

.局部变量 数值, 整数型

l ＝ 取字节集长度 (字节集)

.计次循环首 (l, i)

结果 ＝ 结果 ＋ 取字节集中间 (字节集, l － i ＋ 1, 1)

.计次循环尾 ()

数值 ＝ 取十进制 (字节集到十六进制 (结果), 0)

返回 (数值)

取消

评论