search about statement in text file

[mse07]

hi for all

i want to search about specified statement in text file via command button

if i click button and the program find this statement it show message box

for example :

the name of file is ssdd.txt

and the statement that write in this file is welcome to vb .

i want if the program find this statement it show message box

how ican do that .

thanks for all

[dorinbogdan]

Try this sample in a function (I dont have VB installed to check the syntax):

...
dim f as integer
dim strLine as string
f = freefile
 
    open "c:\ssdd.txt" for output as #f
 
    while not EOF(f)
         Line Input #1, strLine 
        if instr(1, strLine, "welcome to vb") <> 0 then
             msgbox strLine
        endif
    wend
    close #f
 
....
 

[Killer42]

dorinbogdan, the only problem I see is that you opened for Output - should have been Input.

Let's hope the file wasn't anything important. :)

[dorinbogdan]

You're right. Thanks for correction.

[mse07]

thanks for you but the problem is :

my file is auto create where i execute batch file it is created

and your codes explain how i create file and how to search in this file

and my problem is how to search in that auto create file .

thank you .

[dorinbogdan]

Hmm, The code doesn't create the file, it just opens an existing file, whose name must be known.
You just must replace "c:\ssdd.txt" with the correct path\filename in:
open "c:\ssdd.txt" for input as #f

Let me know if not enough.

[mse07]

but my path file is not .txt it is .log

thank you

[hariharanmca]

but my path file is not .txt it is .log

thank you

.txt,.log,.ini,.bat will open in .txt format

[mse07]

.txt,.log,.ini,.bat will open in .txt format

that is right i try and do that

but how to search about statement in line 13 for example in text file .
thank you .

[hariharanmca]

that is right i try and do that

but how to search about statement in line 13 for example in text file .
thank you .

use while and a increment flag if the flag is 13 then use that statement

[mse07]

use while and a increment flag if the flag is 13 then use that statement

i am sorry

can you explain that by code

thank you .

[dorinbogdan]

 
............
Dim lngLine as long
    lngLine = 0
    while not EOF(f)
        lngLine = lngLine + 1
         Line Input #1, strLine 
        if lngLine = 13 Then 
            If instr(1, strLine, "about") <> 0 then
                 msgbox strLine
             end if
        end if
    wend
............
 

[hariharanmca]

i am sorry

can you explain that by code

thank you .

Private Sub readFile()
Dim f As Integer
Dim LineFlag As Long
Dim strLine As String
f = FreeFile
 
    Open "c:\ssdd.txt" For Input As #f
LineFlag = 0
    While Not EOF(f)
        LineFlag = LineFlag + 1
        Line Input #1, strLine
        If LineFlag = 5 Then
            If InStr(1, strLine, "welcome to vb") <> 0 Then
                MsgBox strLine
            Else
                Exit Sub
            End If
        End If
    Wend
    Close #f
 
 
End Sub

[mse07]

the program give me error

run time error (input past end of file )

why?

[hariharanmca]

the program give me error

run time error (input past end of file )

why?

in which line you are getting this error

[mse07]

Line Input #1, strLine

[dorinbogdan]

See also this article

[hariharanmca]

See also this article

yes this will solve the problem