Open获取文件二进制数据的问题(字符编码)

laiwatch

1. Option Base 0
   
2. 
   
3. Public Type MD5_CTX
   
4.     z(1) As Long
   
5.     Buf(3) As Long
   
6.     inc(63) As Byte
   
7.     digest(15) As Byte
   
8. End Type
   
9. 
   
10. Public Declare Sub MD5Init Lib "Cryptdll.dll" (ByVal pContex As Long)
    
11. Public Declare Sub MD5Final Lib "Cryptdll.dll" (ByVal pContex As Long)
    
12. Public Declare Sub MD5Update Lib "Cryptdll.dll" (ByVal pContex As Long, ByVal lPtr As Long, ByVal nSize As Long)
    
13. 
    
14. Public Function ConvBytesToBinaryString(bytesIn() As Byte) As String
    
15.     Dim z As Long
    
16.     Dim nSize As Long
    
17.     Dim strRet As String
    
18.    
    
19.     nSize = UBound(bytesIn)
    
20.     For z = 0 To nSize
    
21.          strRet = strRet & Right$("0" & Hex(bytesIn(z)), 2)
    
22.     Next
    
23.     ConvBytesToBinaryString = strRet
    
24. End Function
    
25. 
    
26. Public Function GetMD5Hash(bytesIn() As Byte) As Byte()
    
27.     Dim ctx As MD5_CTX
    
28.     Dim nSize As Long
    
29.    
    
30.     nSize = UBound(bytesIn) + 1
    
31.    
    
32.     MD5Init VarPtr(ctx)
    
33.     MD5Update ByVal VarPtr(ctx), ByVal VarPtr(bytesIn(0)), nSize
    
34.     MD5Final VarPtr(ctx)
    
35.    
    
36.     GetMD5Hash = ctx.digest
    
37. End Function
    
38. 
    
39. Public Function GetMD5Hash_Bytes(bytesIn() As Byte) As String
    
40.     GetMD5Hash_Bytes = ConvBytesToBinaryString(GetMD5Hash(bytesIn))
    
41. End Function
    
42. 
    
43. Public Function GetMD5Hash_String(ByVal strIn As String) As String
    
44.     GetMD5Hash_String = GetMD5Hash_Bytes(StrConv(strIn, vbFromUnicode))
    
45. End Function
    
46. 
    
47. Public Function GetMD5Hash_File(ByVal strFile As String) As String
    
48.     Dim lFile As Long
    
49.     Dim bytes() As Byte
    
50.     Dim lSize As Long
    
51. '    Dim Buf() As Byte
    
52. '   Debug.Print InStr(strFile, "?")
    
53. '    Dim sk As New ADODB.Stream
    
54.    
    
55. '    Dim iRe As New ADODB.Recordset
    
56.   ' Cells(16, 3) = StrConv(strFile, vbNarrow)
    
57.     lSize = fso.GetFile(strFile).Size
    
58. '    strFilea = Replace(strFile, "?", ChrW(8226))
    
59.     If (lSize) Then
    
60.         lFile = FreeFile
    
61.         ReDim bytes(lSize - 1)
    
62. '        Debug.Print fso.GetAbsolutePathName(strFile)
    
63.         Open strFile For Binary Access Read As lFile
    
64. ''        With sk
    
65. ''        .Type = adTypeBinary
    
66. ''        .Open
    
67. ''        .LoadFromFile (strFile)
    
68. ''        End With
    
69.         Get lFile, , bytes
    
70. ''       Get sk, , bytes
    
71.         Close lFile
    
72. 'bytes = iRe
    
73. 'k = lSize - 1
    
74. 'iRe.Open
    
75. 'ReDim arr(0 To lSize - 1)
    
76. 'For I = 0 To iRe.RecordCount
    
77. 'arr(I) = iRe
    
78. 'iRe.MoveNext
    
79. 'Next
    
80. '
    
81. 'iRe.Close
    
82. 'sk.Close
    
83. 't = Timer
    
84. '  Dim I As Long
    
85. '  DoEvents
    
86. '  With CreateObject("ADODB.Stream")
    
87. '    .Mode = 3: .Type = 1: .Open: .LoadFromFile strFile
    
88. '    .Mode = 3
    
89. '    .Type = adTypeBinary
    
90. '    .Open
    
91. '    .LoadFromFile (strFile)
    
92. '    ReDim Buf(lSize - 1)
    
93. '    For I = 0 To lSize - 1: Buf(I) = AscB(.Read(1)): Next
    
94. '    For I = 0 To lSize - 1
    
95. '    Buf(I) = AscB(.Read(1))
    
96. 'Buf(I) = AscB(.Read(1))
    
97. '    Next
    
98. '    .Close
    
99. '  End With
    
100. '  MsgBox Format(Timer - t, "0.0000")
     
101. 'ReadBinary = Buf
     
102.         GetMD5Hash_File = GetMD5Hash_Bytes(bytes)
     
103. 'GetMD5Hash_File = GetMD5Hash_Bytes(Buf)
     
104.     End If
     
105.    
     
106. End Function
     
107. 
     
108. Sub kjii()
     
109. 'Dim arr(1) As String
     
110. 'arr(1) = Range("e10").Value
     
111. Cells(15, 3) = GetMD5Hash_File(Range("e10").Value)
     
112. 
     
113. End Sub
     
114. 
     
115. 'Function ReadBinary(FileName)
     
116. '  Dim I As Long
     
117. '  With CreateObject("ADODB.Stream")
     
118. '    .Mode = 3: .Type = 1: .Open: .LoadFromFile FileName
     
119. '    ReDim Buf(.Size - 1)
     
120. '    For I = 0 To .Size - 1: Buf(I) = AscB(.Read(1)): Next
     
121. '    .Close
     
122. '  End With
     
123. '  ReadBinary = Buf
     
124. 'End Function

复制代码

在这句"Open strFile For Binary Access Read As lFile"这里,当strFile变量包含一些其他的字符时候,将会出现错误
如strFile="C:\Users\Master\Desktop\Åúá¿éú2ú1¤×÷2¾\[大家网]Python基础教程(第2版)[www.TopSage.com].pdf"就会出现"文件名或文件号错误"的问题
字符.zip (15.89 KB, 下载次数: 2)

2019-10-5 12:58 上传

点击文件名下载附件