How do I search text files for a certain word using a macro. I need to
look for the word "SerialNo" and return the following 10 characters. I
will be repeating this for hundreds of files. For now, how do I do it
for a single file. Excel 97

f = "c:\test.txt"
filenumber = FreeFile
Open f For Input As filenumber
a = Input(FileLen(f), filenumber)
Close filenumber

LookFor = LCase("SerialNo")
b = InStr(LCase(a), LookFor)
If b 0 Then
MsgBox Mid(a, b + Len(LookFor), 10)
End If

Mishell


"Fan924" a écrit dans le message de news:
...
How do I search text files for a certain word using a macro. I need to
look for the word "SerialNo" and return the following 10 characters. I
will be repeating this for hundreds of files. For now, how do I do it
for a single file. Excel 97

What am I doing wrong?
I am getting
run time error 62, input past end of file
for line "a = Input(FileLen(f), filenumber)"

File is 32k in size and is not a text file.
It only works when I use file size of about 500.
--------------------------------------------------
Sub LookForNo()
Dim a As String
Dim f As String
Dim filenumber As String
f = "C:\My Documents\79.bak"
filenumber = FreeFile
Open f For Input As filenumber
'a = Input(500, filenumber)
a = Input(FileLen(f), filenumber)
Close filenumber
End Sub

You file is probably binary

Open pathname For mode [Access access] [lock] As [#]filenumber

You need to change you mode to binary in the open statement


from
Open f For Input As filenumber
to
Open f For Binary As filenumber


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=170778

Microsoft Office Help

Thanks Joel & Mishell