comment lire le fichier txt.

Question

Je lis le fichier texte en utilisant le code vb6. Mes exigences sont si la ligne commence par 6 alors j'ai besoin de lire cette ligne sinon je dois quitter cette ligne et aller à la ligne suivante. quelqu'un peut-il m'aider à faire cela?

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

J'ai besoin de cette aide dans vb6.

Merci d'avance.

Answer 1

Quelque chose comme ça

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

Essayez cette

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