VB6.0 文件日志读取

 1 Private Sub ReadWriteLog()
 2 
 3 Dim fsObj As New Scripting.FileSystemObject
 4 Dim fileTextStream As Scripting.TextStream
 5 Dim fileText As String
 6 Dim filePath As String
 7 Dim context As String
 8 Dim flag As Long
 9 Dim totalLen As Long
10 
11 filePath = "C:\Logfile20160115.txt"
12 
13 If Not fsObj.FileExists(filePath) Then
14     MsgBox "No File Exist"
15 Exit Sub
16 End If
17 
18 Set fileTextStream = fsObj.OpenTextFile(filePath)
19  ‘‘fileText = fileTextStream.ReadAll ‘‘read all context
20 
21 While Not fileTextStream.AtEndOfLine
22     context = fileTextStream.ReadLine
23     totalLen = Len(context)
24     flag = InStrRev(context, ":")
25     context = Right$(context, totalLen - flag - 1)
26     
27     MsgBox "Message value : " & context
28 Wend
29 
30 fileTextStream.Close
31 
32 Set fileTextStream = Nothing
33 Set fsObj = Nothing
34 
35 End Sub