Finding a string in a file

[shultz]

Hi,

To find a string in another string I use the function

InStr(1, txtLine, "Not Found", vbTextCompare)

Is there a function to find whether a particular string exists or not in a specified file. I want to give a txt file(or any other file) as input and find out for the existance of the string.

thanks a lot.

 

[pgk]

Hi,
Can't you just read all the data in the file into a string variable and search that text string using InStr? Hope it helps. Let me know what happens.
With regards,
PGK

 

[CCLINT]

Dim iFileNum As Integer
Dim str As String
iFileNum = FreeFile

Open "C:\myFile.Txt" For Input As #iFileNum

str = Input(LOF(iFileNum), #iFileNum)

Close #iFileNum

'Return position if text is found
Debug.Print InStr(1, str, "FindThisText", vbTextCompare)
[/b][/i][/u]*******************************************************[sub]
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!