SEARCH FOR STRING ON A TEXT FILE 1

[villica]

Hi everyone. is it possible to search for a string on text file before it gets imported to access.

The string is "no data to print'.
If found I don't want to import the file.

Any ideas, suggestions

villica

 

[PHV]

Have a look here:

http://msdn.microsoft.com/library/en-us/script56/html/af4423b2-4ee8-41d6-a704-49926cd4d2e8.asp

You may consider the ReadAll method coupled with the InStr function.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[CautionMP]

villica,
I can't tell you why, but I'm not a big fan of the [tt]FileSystemObject[/tt] recomended by [navy]PHV[/navy] so here is an alternative:

Function DataInFile(FileName As String) As Boolean
Dim intFile As Integer
Dim strLine As String
intFile = FreeFile
Open FileName For Input As #intFile
Do
  Line Input #intFile, strLine
  If InStr(strLine, "no data to print") <> 0 Then
    DataInFile = True
    Exit Do
  End If
Loop Until EOF(intFile)
Close #intFile
End Function

In your code you can use it in an [tt]If..Then[/tt] statement to determine if the [tt]FileName[/tt] needs to be imported.

Hope this helps,
CMP

(GMT-07:00) Mountain Time (US & Canada)