Reading Text file

[VBKNIGHT]

What is the fastest way of reading text file?
if for example i will search a word "The" in a paragraph using vb6.

[Hollie]

temp = InStr(1, "Original$", "Search$")

temp will return the number of occurences of your search$ in your original$ (textfile)

[paulw]

Oops, no it won't Hollie. InStr returns the position of the first occurence of the string.

Cheers,

P.

[Hollie]

sorry!


H.

[HeSaidJoe]

Hollie...it's good practice to test before you post.

Everyone makes errors, so don't sweat it.

'not tested for speed but it gets the job done

Option Explicit
'remove option compare text if you want the seach to be case aware
Option Compare Text

'contents of file
'I was drinking tea in the beverage room of the house

Private Sub Command1_Click()

    Dim sfile As String, intNum As Integer, myString As String
    intNum = FreeFile
    sfile = "C:\my Documents\myfile.txt"
    
    Open sfile For Input As intNum
       myString = StrConv(InputB(LOF(intNum), intNum), vbUnicode)
     Close intNum
     
   Dim myFind As String, myLen As String, iCount As Integer
   Dim mySearch As String
   
   mySearch = "the"
   For iCount = 1 To Len(myString)
      myLen = InStr(1, myString, mySearch)
    Next
'the balance of the file including "the first the"
    myString = Right(myString, Len(myString) - (CInt(myLen) - 1))
    MsgBox myString
    
    
End Sub

[VBKNIGHT]

thanks for all your help...

Anybody who could suggest superfast text reading? how about u kedaman?