很久也没来你这里了，呵呵

'从文件中读取数据<br />Private Function LoadFile(ByVal strFileName As String,bytArr() as Byte) As Long<br />    Dim intFile As Integer<br />    Dim lngDatLength As Single<br />    <br />    On Local Error Resume Next<br />    lngDatLength = 0<br />    If strFileName = "" Then<br />        LoadFile = 0<br />        Exit Function<br />    End If<br />    If Dir(strFileName, vbNormal) &lt;&gt; "" Then<br />        intFile = FreeFile()<br />        Open strFileName For Binary Access Read As intFile<br />        If Err Then<br />            Err.Clear<br />            LoadFile = 0<br />            Exit Function<br />        End If<br />        lngDatLength = LOF(intFile)<br />        If lngDatLength &gt; 0 Then<br />            ReDim bytArr(lngDatLength - 1)<br />            Get #intFile, , bytArr<br />            blnRet = True<br />        End If<br />        Close intFile<br />    End If<br />    LoadFile = lngDatLength<br />End Function<br /><br />调用方式：<br />dim bytDat() as Byte<br />dim lngRet as Long<br />lngRet = LoadFile("c:\abc.dat",bytDat)<br />if lngRet&gt;0 then<br />   msgbox "数据读入完成！长度为：" &amp; lngRet &amp; "字节"<br />else<br />    msgbox "数据读取错误!"<br />end if<br /><br />读完后数据在bytDat数组中

何熙 回复于 2008-05-29

用于读取一般内容是没问题的,但是如果你用来读取像big5,utf-8编码的文本时,读到内存中的内容是按unicode为的,这是因为VB6本身是unicode标准的.

你好,我在网上看到你发的一个用VB写入hex文件的程序,我不太懂vb,只好直接拿来用,可调试的时候,老说数据读取错误,怎么也解决不了,请问这个程序通过验证了吗?能否帮忙解决一下,谢谢<br />'从文件中读取数据<br />Private Function LoadFile(ByVal strFileName As String,bytArr() as Byte) As Long<br />    Dim intFile As Integer<br />    Dim lngDatLength As Single<br />    <br />    On Local Error Resume Next<br />    lngDatLength = 0<br />    If strFileName = "" Then<br />        LoadFile = 0<br />        Exit Function<br />    End If<br />    If Dir(strFileName, vbNormal) &lt;&gt; "" Then<br />        intFile = FreeFile()<br />        Open strFileName For Binary Access Read As intFile<br />        If Err Then<br />            Err.Clear<br />            LoadFile = 0<br />            Exit Function<br />        End If<br />        lngDatLength = LOF(intFile)<br />        If lngDatLength &gt; 0 Then<br />            ReDim bytArr(lngDatLength - 1)<br />            Get #intFile, , bytArr<br />            blnRet = True<br />        End If<br />        Close intFile<br />    End If<br />    LoadFile = lngDatLength<br />End Function<br /><br />调用方式：<br />dim bytDat() as Byte<br />dim lngRet as Long<br />lngRet = LoadFile("c:\abc.dat",bytDat)<br />if lngRet&gt;0 then<br />   msgbox "数据读入完成！长度为：" &amp; lngRet &amp; "字节"<br />else<br />    msgbox "数据读取错误!"<br />end if<br /><br />读完后数据在bytDat数组中