Finding a matching string in multiple .txt files

[jmeuse2]

I am not very well versed in B4A yet. I would like to use an Input Dialog to enter a string and then search through 100 text files for a matching string. For example; I would like to get a True or False response if "text057.txt" contains a matching string (from the Input Dialog) anywhere in the document (without regard to case). I would appreciate if anyone could help point me in the right direction or share some code examples. Thank you.

 

[Erel]

Consider using a database instead.

You can use something like:

For Each f As String In File.ListFiles(File.Combine(File.DirRootExternal, "some_folder"))
   If f.EndsWith(".txt") Then
      Dim s As String = File.ReadString(File.Combine(File.DirRootExternal, "some_folder"), f)
      If s.IndexOf("value to search") > -1 Then
         'MATCHING FILE
      End If
   End If
Next

 

[jmeuse2]

Finding a matching string

Thank you for your quick reply. Your code is far more efficient than the programming punch card idea I had for it.

I filled in the blanks (no doubt incorrectly) and it keeps hanging up on the Line 'For Each f As String In File.ListFiles(File.Combine(File.DirRootExternal, "Keypads"))'. Is there a library I need? Thank you for your assistance Erel!

Sub Search_Click

For Each f As String In File.ListFiles(File.Combine(File.DirRootExternal, "Keypads")) 'Folder name
If f.EndsWith(".txt") Then
Dim s As String = File.ReadString(File.Combine(File.DirRootExternal, "Keypads"), f)
If s.IndexOf("test") > -1 Then
Search.Text = "True" 'MATCHING FILE
End If
End If
Next
End Sub

 

[Erel]

Please use [ code ] [ /code ] tags (without spaces) when posting code.

What do you mean with "keeps hanging"? Do you get an error message?
How many files are there in this folder?

 

[jmeuse2]

Finding a matching string

It works ok now. The error message indicated that the program was pausing on the Line

For Each f As String InFile.ListFiles(File.Combine(File.DirRootExternal, "Keypads"))

This was because I did not have the folder with the file on my cell phone, I errantly placed the folder with the file on the hard drive of my desktop computer. It's what happens when you quit VB6 cold turkey I guess. Thank you for this code.


Jeff

 

[jmeuse2]

testing code tags

codeFor Each f As String InFile.ListFiles(File.Combine(File.DirRootExternal , "Keypads"))/code

 

[jmeuse2]

testing code tags

For Each f As String InFile.ListFiles(File.Combine(File.DirRootExternal , "Keypads"))