Imports System

imports microsoft.visualbasic

​

Public Module Module1

​

    Public Sub Main()

        dim ChosenDate as string

        console.writeline("Enter date DD/MM/YYYY")

        ChosenDate = console.readline()

        dim file as IO.StreamReader

        file = New IO.StreamReader("")

        dim found as boolean = false

        dim lineFromFile As String

​

        Do

            lineFromFile = file.ReadLine()

            Dim parcedLine = lineFromFile.Split(" ")

            If (parcedLine(0).Equals(ChosenDate)) Then

                found = True

                If parcedLine(1).ToLower().Equals("false") Then

                    Console.WriteLine("no discount")

                Else

                    Console.WriteLine("discount")

                End If

​

            End If

        Loop While Not (found) Or Not (file.EndOfStream())

​

        If (Not (found)) Then

            Console.WriteLine("date not found")

​

        End If

        file.close()

    End Sub

End Module

​