Question

Visual Basic - I need to make a program to search a text file that is in the debug. Found from "IO.File.ReadAllLines".  When the word is typed into a textbox and button pressed, the program should show which line the word first appeared in the text through a message box or another feature. If it is not found, the program will open a message box. I don't have the full code, please assist

Answer 1

//Form Interface

'Form1.vb

Imports System.IO
Public Class Form1
Dim reader As StreamReader

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
' Open file which is in debug folder
reader = My.Computer.FileSystem.OpenTextFileReader("C:\\Users\\naren\\source\\repos\\Search Word\\Search Word\\bin\\Debug\\input.txt")
Dim line As String
Dim word As String
Dim count As Integer
Dim found As Boolean
found = False
count = 0
' Read each line from file
While Not reader.EndOfStream
' update line counter
count = count + 1
line = reader.ReadLine()
word = TextBox1.Text
'Condition to check word
If line.Contains(word) Then
MsgBox("The word found in line " & count)
found = True
End If

End While
' if not found word
If Not found Then
MsgBox("The word is not found...")
End If

End Sub
End Class

//Output

//If you need any help regarding this solution ....... please leave a comment....... thanks