My group box is causing problems when searching for a text line in a text file.

Question

I am developing a booking system, so for this I need to ensure that no two clients can book the same appointment slot. So, on testing my code which prevents double booking, the system doesn't seem to find the text line being searched for in the text file
when it (purposefully) should.
I have tried isolating the problem using breakpoints, and I've found that when the 'SearchLine' (referring to my code below) does not include the 'TimeComboBox.text' piece and instead this value is written into the code, the system is able to find the SearchLine
without any problems. But, when assigning the group box's value to a variable and using this in the SearchLine instead, or without even using a loop and just doing a simple line by line search, the program can't find this line of text in the file.
I'm lost for ideas. I have tried everything I can think of. Could anyone make any suggestions as for what is the problem with my group box? (I'll explain the code beneath it).
'Setting the value of the SearchLine (which is a String)
SearchLine = String.Concat(DateTimePicker1.Value.Date & " " & TimeComboBox.text)
Dim FoundApp As Boolean
Dim objReader As New System.IO.StreamReader(basicfilepath & "Text Files\Client Booked Appointment DatesTimes.txt")
FoundApp = False
'Reading the file's contents and checking for the SearchLine
Do While (objReader.Peek() <> -1) or (FoundApp = True)
If (TextLine = SearchLine) Then
'Line contains SearchLine. Appointment already exists.
FoundApp = True
Else
'Line doesn't contain SearchLine. Carry on searching.
Msgbox("Line not found.")
End if
Loop
Explanation
When the line is searched for, the 'FoundApp' value must be set to 'True' when it is found. If it is not found, it remains false.
To isolate the problem, I've displayed the SearchLine in a message box in the past to make sure that the correct line of text is being searched for.
In basic terms, my program is searching for the exact line of text which exists in the text file, but for some reason it is not coming up as 'Found'. The error occurs when the group box's value is used. The text file which is being read is
definitely correct. Please help, any suggestions would be appreciated.
Thank you

Answer 1

Hi
It would appear that your snippet doesn't actually read the file at all.
Here is my test which works fine.
Option Strict On
Option Infer Off
Option Explicit On
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim SearchLine As String = "18:09:38 : XTaskSettings.Load PARAMS: begin"
Dim FoundApp As Boolean = False
Dim TextLine As String = Nothing
Dim objReader As New IO.StreamReader(Application.StartupPath & "\Data\Report Q1.txt")
FoundApp = False
Do While (objReader.Peek() <> -1) Or (FoundApp = True)
' this was missing
TextLine = objReader.ReadLine
If (TextLine = SearchLine) Then
'Line contains SearchLine. Appointment already exists.
FoundApp = True
MsgBox("Line found.")
Else
'Line doesn't contain SearchLine. Carry on searching.
MsgBox("Line not found.")
End If
Loop
End Sub
End Class
Regards Les, Livingston, Scotland