首页 > 其他 > 详细

VB6.0 文件日志读取

时间:2016-01-15 20:22:55      阅读:231      评论:0      收藏: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


同样也可以实现一次全部读取文件内容;

VB6.0 文件日志读取

原文:http://www.cnblogs.com/Janzen/p/5133977.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!