【VB技巧】VB读取文件十六进制/Hex字符串

  • A+
所属分类:lcx

VB读取文件十六进制/Hex字符串,VB读取文件十六进制,VB读取文件Hex,VB读取文件十六进制Hex字符串。

VB读取文件十六进制/Hex字符串:

Public Function ByteLoad(ByVal N As String) As String '读取文件十六进制数据
'On Error GoTo Over
Dim Dat() As Byte, FileSize As Long, I '二进制数组,文件长度,临时容器
FileSize = FileLen(N) '获取文件长度
ReDim Dat(FileSize - 1) As Byte '定义二进制数组长度
Open N For Binary As #65 '打开读取
    Get #65, , Dat
Close
For Each I In Dat '枚举整个数组赋值给I
    ByteLoad = ByteLoad & Hex(I) & Replace(Space(2 - Len(Hex(I))), " ", "0") '补充位数,并累计结果
Next
Over:
End Function

示例:Msgbox ByteLoad("C:test.txt")

文章来源于lcx.cc:【VB技巧】VB读取文件十六进制/Hex字符串

相关推荐: 【文章】应用密码学: 裁决协议 自动执行协议

裁决协议     由于雇用仲裁者代价高昂,仲裁协议可以分成两个低级的子协议。一个是非仲裁子协议,这个子协议是想要完成协议的各方每次都必须执行的;另一个是仲裁子协议,仅在例外的情况下执行的,即有争议的时候才执行,这种特殊的仲裁者叫做裁决人(参见图2.1中的b)。…

发表评论

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