【VB】二进制方式读取文本/文件Byte数组

  • A+
所属分类:lcx

VB二进制读取文本/文件Byte数组:

Public Function ByteLoad(ByVal N As String) As Byte() '读取文件二进制数据
On Error GoTo Over
Dim Dat() As Byte, FileSize As Long '二进制数组,文件长度
FileSize = FileLen(N) '获取文件长度
ReDim Dat(FileSize - 1) As Byte '定义二进制数组长度
Open N For Binary As #65 '打开读取
    Get #65, , Dat
Close
ByteLoad = Dat '赋值
Over:
End Function

使用方法:

Dim F() As Byte()
F() = ByteLoad("C:test.txt")

文章来源于lcx.cc:【VB】二进制方式读取文本/文件Byte数组

相关推荐: 我所知道的黑暗创投圈

和标题同名的那家创投服务的同学不用太紧张,不要以为你们取巧取了个这样的名字就能做三个代表了。我就不细说你们创始人在某个投资人的内部会上被台下群喷“你们的模式根本就没意义”这件事了。 孵化器?中国要做YC?别让我笑了 这个其实是我动笔写这篇文章的真正原因,因为我…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: