SMALL BASIC: File database searcher

Hi, SMALL BASIC programmer, welcome.

In this tutorial we will learned about how we can search multiple occurance of a keyword from a txt database.

'So the solution is read line per line
i = 1
TextWindow.WriteLine("Enter the file that you like to traverse? : ")
'file = TextWindow.Read()
file = "C:\Users\Totardo\Geneacology based on revelation.txt"
contain = File.ReadLine("C:\Users\Totardo\Geneacology based on revelation.txt",i)

While contain <> ""
  'TextWindow.WriteLine(contain)
  get_result = Text.GetIndexOf(contain,"Henokh")

  If get_result <> 0 Then
    TextWindow.WriteLine(contain)
  EndIf
  i = i + 1
  contain = File.ReadLine(file,i)

EndWhile