VB中如何以16进制读取文件

VB6.0可以二进制方式全部读取文件，然后将每字节用Hex函数循环转换为16进制字符串形式，拼接成字符串显示与富文本框。

Hex 函数，返回代表十六进制数值的 String。

Get 语句，将一个已打开的磁盘文件读入一个变量之中。

实现代码：

Private Sub Command1_Click()

    Dim strWj As String

    Dim aryContent() As Byte

    Dim i As Long

    Dim j As Long

    CommonDialog1.CancelError = True ' 设置“CancelError”为 物闹True

    On Error GoTo ErrHandler

    CommonDialog1.Flags = cdlOFNHideReadOnly    ' 设置标志

    ' 设置过滤器

    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

    CommonDialog1.FilterIndex = 2    '厅简 指定缺省的过滤器

    CommonDialog1.ShowOpen  扮蚂裤  ' 显示“打开”对话框

    ' 显示选定文件的名字

    'MsgBox CommonDialog1.FileName

    Open CommonDialog1.FileName For Binary As #1

        ReDim aryContent(LOF(1) - 1)

        Get #1, , aryContent

    Close #1

    For i = 0 To UBound(aryContent)

        strWj = strWj & Right("00" & Hex(aryContent(i)), 2) & " "

        DoEvents

    Next

    RichTextBox1 = strWj

ErrHandler:

    ' 用户按了“取消”按钮

    Exit Sub

End Sub

效果：

cad2008解压出来后就有两个文件夹：弯蔽1）AutoCAD.2008cdl 2）AutoCAD.2008cd2。

首先就是要将：AutoCAD.2008cd2里面的所有文件复制（是埋改州不是复制歼皮AutoCAD.2008cd2，而是是里面的所有文件），在AutoCAD.2008cd2里面的文件Application Data\Autodestk\Textures\Concrete.Cast-In-Place.Exposed Aggregate.Medium.jpg.就会在AutoCAD.2008cd1.

问题就会解决了！

VB可以Get 语句一次全部读入任何文件字节流。

Get 语句，将一个已打开的磁盘文件读入一个变量之中数明。

以下是读入文本文件的代码，显示于RichTextBox控件。

Private Sub Command1_Click()

Dim strWj As String

Dim aryContent() As Byte

CommonDialog1.CancelError = True ' 设置“CancelError”为 True

On Error GoTo ErrHandler

CommonDialog1.Flags = cdlOFNHideReadOnly' 设置标志

' 设置过滤器颤毕档

CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" &"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

CommonDialog1.FilterIndex = 2'茄乱 指定缺省的过滤器

CommonDialog1.ShowOpen' 显示“打开”对话框

' 显示选定文件的名字

'MsgBox CommonDialog1.FileName

Open CommonDialog1.FileName For Binary As #1

ReDim aryContent(LOF(1) - 1)

Get #1, , aryContent

Close #1

strWj = StrConv(aryContent, vbUnicode)

RichTextBox1 = strWj

Exit Sub

ErrHandler:

' 用户按了“取消”按钮

Exit Sub

End Sub

---