[SOLVED]Search Text File

[chemicalNova]

I think you need to explain it better. If this is solved (which I don't think it is since the bottom post has a new question on it), please state it better. I personally don't understand.

Phreak

[BefunMunkToloGen]

Heres what I have

Private Sub tSearch_Timer()
txt.Caption = "Searching for ukf_infantry.pbo..."
Dim CSIDL As Long
Dim DefPath As String
DefPath = GetFolderPath(CSIDL_PROGRAM_FILES)
DefFold = DefPath & "\Codemasters\OperationFlashpoint\@ECP\Addons\"
Dim tempStr As String, Ret As Long
tempStr = String(MAX_PATH, 0)
Ret = SearchTreeForFile(DefFold, HOWD I PUT OUTPUT HERE??, tempStr)
If Ret <> 0 Then
With lst
.AddItem HOWD I PUT OUTPUT HERE?? & " - " & DefFold & "ukf_infantry"
End With
Else
End If
tSearch.Enabled = False
End Sub
 
Private Sub txtSearch_Click()
txtSearch.Enabled = False
Open (App.Path & "\flz.22") For Input As #1
 Do While Not EOF(1)
  Line Input #1, TLine
 Loop
Close #1
defFol.Enabled = False
tSearch.Enabled = True
End Sub

I want it to search for the first line, third line, fifth line etc of what is in the text file. So basically, can i turn each line found from the text file into a global string?

[vbasicgirl]

as you are going through the loop, have a counter keeping record of which line you are on then check if the number is odd, if it is then add it to the string.

do you want an array or one long string of what you find ?

casey.

[BefunMunkToloGen]

Say line one of the text is EXAMPLE i want to make that line into a string so i can do something like

Search examplestringname.

?? lol

[vbasicgirl]

correct me if i am wrong, are you searching the textfile and if the line(filename) is a .pbo extension then add it to a listbox ?, if so then try this.

Dim TLine As String
 
Open (App.Path & "\flz.22") For Input As #1
 Do While Not EOF(1)
  Line Input #1, TLine
   If Right$(TLine, 4) = ".pbo" Then
    List1.AddItem TLine
   End If
 Loop
Close #1

casey.

[BefunMunkToloGen]

No. Heres the situation. I need a programme to find out if a person has files missing in a certain folder. So if they don't have that file then it's added to the list. All the files are .pbo.

[vbasicgirl]

if the certain folder is the same one all the time then use the Dir() function aswell to check if it exists, if it doesnt then add the item.

Dim TLine As String
 
Open (App.Path & "\flz.22") For Input As #1
 Do While Not EOF(1)
  Line Input #1, TLine
   If Dir$("C:\thepath\tothe\folder\" & TLine) = "" Then
    List1.AddItem TLine
   End If
 Loop
Close #1

is this it or am i just confused

casey.