将文件以16进制方式打开显示在文本中、

淡然出尘

示例

[Visual Basic] 纯文本查看 复制代码

'有关设置 text1 commmand1
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
Private Sub Command1_Click()
Text1.Text = ByteLoad("E:\UCW\UC壁纸 127款全 UCW文件\bamboo_360x640\00.jpg")
End Sub

--------------------------------
期待新的 更好的思路及源码分享 跟帖有加分啊 以作集思广益、

小歆

楼主 第13行的“over：”多余了吧...

LeoSky

一股脑 弄上来，建议楼主弄成 每行16个，最好每行前面都有偏移量

673010347

什么文件？

1354669803

支持师傅做个16进制编辑器

Demo

我做的那个文件类型识别器有这个功能