1. 读取SJIS格式文件
引用“Microsoft ActiveX Data Object 2.5 Library”或更高版本
Option Explicit
Function ReadFileSJIS(ByVal prmStrFullPath As String)
Dim strLineBuf As String
'Dim ts As ADODB.Stream
Dim ts As Object
'Set ts = New ADODB.Stream
Set ts = CreateObject("ADODB.Stream")
ts.Type = adTypeText
ts.Charset = "SJIS"
ts.LineSeparator = adCRLF
ts.Open
'File load
ts.LoadFromFile (prmStrFullPath)
Do While Not (ts.EOS)
strLineBuf = ts.ReadText(adReadLine)
Debug.Print strLineBuf
Loop
ts.Close
End Function
2. 读取二进制格式文件
Option Explicit
Function ReadFileBinary(ByVal prmStrFullPath As String)
Dim strLineBuf As String
Open prmStrFullPath For Input As #1
Do While Not EOF(1)
Line Input #1, strLineBuf
Debug.Print strLineBuf
'Debug.Print Application.WorksheetFunction.Dec2Hex(strLineBuf)
'Exit Do
Loop
Close #1
End Function