search file

[alexk102]

I'm making a program that will search if text1.text is in a file. and if it is it will print it in a textbox called textbox. Please help me and I would appreciate it if it was detailed.

[Mark Sreeves]

here's one way:

Private Sub Command1_Click()

TextBox.Text = SearchFile(filename, Text1.Text)

End Sub

Private Function SearchFile(filename As String, SearchText As String) As String
Dim fnum As Byte
Dim strTemp As String

fnum = FreeFile
Open filename For Binary As fnum
  strTemp Space(LOF(nfum))
  Get #fnum, , strTemp
Close fnum

If InStr(strTemp, SearchText) > 0 Then
  SearchFile = strTemp
End If


End Function

[andymac]

Hi,
I have a similar problemm, except that I need to search in a file that could be 50Mb. Does anybody have a nice fast way of doing this rather than creating a 50Mb string !

cheers

Andy

[kedaman]

Try to get parts of it, not the whole file.

[andymac]

Hi,
Thanks for the info. I'd started down the wrong track in loading the data as a byte array. I've switched to a binary read with a reasonable size string (64K) and using Instr to find the locations and it now works very well.

thanks for the info

cheers

Andy