PB中二进制文件读取问题(原创)

最新推荐文章于 2022-07-12 13:22:06 发布

原创最新推荐文章于 2022-07-12 13:22:06 发布 · 3.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#loops #integer #string #编程 #c

编程专栏收录该内容

14 篇文章

订阅专栏

作者开发应用系统处理DBF文件数据时，因PB仅支持旧版本格式，需自行编程处理。编程中遇到二进制文件读写问题，给出按字节读入文件并转换成十进制字符的代码示例，最终实现数据转换显示。

笔者在开发一个应用系统时需要处理dbf文件数据，在PB中仅能够支持DBaseII,DBaseIII的数据格式，对于更新版本不被支持。因此需要自己编程进行处理。在编程过程中碰到二进制文件读写操作方面的问题，例如：按字节读入以下格式的文件并转换成十进制字符

AA 00 56 00 BB BB CC DD EE FF......

代码大概是这样的：

Integer li_filenum, loops, i,k,l
Long flen, bytes_read, new_pos
Blob b, tot_b, b1

SetPointer(hourglass!)
flen = FileLength("c:/file1.dat")
li_filenum = FileOpen("c:/file1.dat", &
streammode!, Read!, lockread!)
If flen > 32765 Then
If Mod(flen, 32765) = 0 Then
loops = flen/32765
Else
loops = (flen/32765) + 1
End If
Else
loops = 1
End If
new_pos = 1
For i = 1 To loops
bytes_read = FileRead(li_filenum, b)
tot_b = tot_b + b
Next
FileClose(li_filenum)