如何读取txt文件。？

Question

我正在阅读使用vb6代码的文本文件。我的要求是，如果行以6开头，那么我需要读取该行，否则我必须离开该行并转到下一行。任何人都可以帮助我如何做到这一点？

if (start pos == 6) 
{ 
    //do 
} 
else 
{ 
    //do noting 
} 

我需要vb6中的帮助。

在此先感谢。

Answer 1

类似的东西

Dim nFileNum As Integer, sNextLine As String 
nFileNum = FreeFile 
Open "C:\log.txt" For Input As nFileNum 
Do While Not EOF(nFileNum) 
    Line Input #nFileNum, sNextLine 
    If Mid(sNextLine, 1, 1) = "6" Then 
     'here what you want 
    End If 
Loop 
Close nFileNum 

Answer 2

试试这个

Const ForReading = 1 
Const TristateUseDefault = -2 

Set oFS = CreateObject("Scripting.FileSystemObject") 
Set oFile = oFS.GetFile("yourfile.txt") 
Set oStream = oFile.OpenAsTextStream(ForReading, TristateUseDefault) 
Do While Not oStream.AtEndOfStream 
    sRecord=oStream.ReadLine 
    If Substring(sRecord, 1, 1) = "6" Then 
     ' do 
    Else 
     ' do nothing 
    End If 
Loop 
oStream.Close