Imports System

Imports System.IO

Imports Microsoft.VisualBasic

Public Module Module1

        Sub Main()

​

        LoadMenu()

​

        Console.ReadLine()

​

    End Sub

​

    Sub LoadMenu()

​

        Dim Choice As String

        Console.WriteLine("Type W to Create the file")

        Console.WriteLine("Type A to Append to the file")

        Console.WriteLine("Type S to Search the file")

        Console.WriteLine("Type Q to Quit")

        Choice = Console.ReadLine

​

        Select Case Choice.ToUpper

            Case "Q"

                Environment.Exit(0)

            Case "W"

                CreateAppendData(1)

            Case "A"

                CreateAppendData(2)

            Case "S"

                SearchFile()

        End Select

​

​

    End Sub

​

    Sub CreateAppendData(ByVal Type As Integer)

​

        If Type = 1 Then 

            'Create

            'use or create this file

            FileOpen(1, "SportsMembership.txt", OpenMode.Output)

        Else

            'open for append

            FileOpen(1, "SportsMembership.txt", OpenMode.Append)

        End If

​

        'Dim Looper As Integer

        Dim MembershipNumber As Integer = 0

        Dim DateOfVisit As String

​

        'Capture the membership number

        Console.WriteLine("Enter a 6 Digit Membership Number : Enter -1 for Menu")

        MembershipNumber = Console.ReadLine

​

        'We can validate here

​

        'Capture the date of visit

        Console.WriteLine("Enter the date in this format 'dd/mm/yy'")

        DateOfVisit = Console.ReadLine

​

        'We can validate here

​

        'concatenate

        Dim strCode As String = (MembershipNumber & DateOfVisit)

​

        'write to the file

        PrintLine(1, strCode)

​

        If Type = 1 Then

            Console.WriteLine("File Created")

        Else

            Console.WriteLine("File Appended")

        End If

​

        'close the file

        FileClose(1)

​

        LoadMenu()

​

    End Sub

​

​

    Sub SearchFile()

​

        'open for input

        FileOpen(1, "SportsMembership.txt", OpenMode.Input)

​

        Dim MemNum As Integer

        Console.WriteLine("Enter the membership number to search for")

        MemNum = Console.ReadLine

​

        'validate here

​

        Dim memberFound As Boolean = False

​

        Console.WriteLine(vbCrLf & "User Membership Number : " & MemNum & " visited on the following dates : -" & vbCrLf)

​

        While Not EOF(1)

​

            Dim _line As String = (Left(LineInput(1), 14)) ' take the whole line forst before you split to avoid errors

​

            'Console.WriteLine(_line) 'use to test

​

            If MemNum = (Mid(_line, 1, 6)) Then 'member found

​

                memberFound = True

​

                'write out the dates visited

                Console.WriteLine(Mid(_line, 7, 8))

​

            End If

​

        End While

​

        If Not memberFound = True Then

            Console.WriteLine("Member Not Found")

        End If

​

        'close the file

        FileClose(1)

​

        Console.WriteLine() 'add a space below

​

        LoadMenu()

​

    End Sub

End Module