Imports System

Public Module Module1

​

    Sub Main()

        Task3_2()

    End Sub

    Public Sub Task3_2()

        Dim nChoice As Integer

        Console.WriteLine("1. Search for a term")

        Console.WriteLine("2. Search for a keyword in the description")

        Console.WriteLine("3. End")

        Console.WriteLine("Key In Choice")

        nChoice = Console.ReadLine()

        Do Until nChoice >= 1 And nChoice <= 3

            Console.WriteLine("Key In Choice")

            nChoice = Console.ReadLine()

        Loop

        Select Case nChoice

            Case Is = 1

                SearchTerm()

            Case Is = 2

                SearchDescription()

            Case Else

                Exit Sub

        End Select

        Console.ReadLine()

    End Sub

​

    Public Sub SearchTerm()

        Console.Write("Term:...")

        Dim sTerm As String

        sTerm = Console.ReadLine()

        'open the file

        'set the file name

        'we are going to discover what the real name of "My Documents" is

        'To do this we are going to use an external VB.net library:Environment

        Dim sFolderName As String

        sFolderName = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\PreRelease2015"

​

        'set the file name

        'Dim sFileName As String = "TestWrite_VBNET.txt"

​

        'use htm files as you can open and view in browser and 

        Dim sFileName As String = "Prerelease2015.txt"

​

        'prepend (put in front) the folder name to the file name.

        sFileName = sFolderName & "\" & sFileName

​

        'create the stream reader object

        Dim oStreamReader As StreamReader

        oStreamReader = New StreamReader(sFileName)

        Dim sLine As String

​

        'we are going to read all the lines

        'we do not know how many there are so we use a condition controlled loop

        'we keep reading until the end of the file

        'we can detect the end of file with 

        Dim sDescription As String

        Dim Found As Boolean = False

        Dim i As Integer

        Do While oStreamReader.EndOfStream = False And Found = False

            sLine = oStreamReader.ReadLine()

            'Console.WriteLine(sLine)

            If i Mod 2 = 0 Then

                If UCase(sLine) = UCase(sTerm) Then

                    Found = True

                    sDescription = oStreamReader.ReadLine()

                    Console.WriteLine("Found: " & sDescription)

                End If

            End If

            i = i + 1

        Loop

        oStreamReader.Close()

        If Found = False Then

            Console.WriteLine("Term:..." & sTerm)

            Console.WriteLine("Not Found")

        End If

    End Sub

​

    Public Sub SearchDescription()

        Console.WriteLine("Keyword:...")

        Dim sKeyword As String

        sKeyword = Console.ReadLine()

        'open the file

        'set the file name

        'we are going to discover what the real name of "My Documents" is

        'To do this we are going to use an external VB.net library:Environment

        Dim sFolderName As String

        sFolderName = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\PreRelease2015"

​

        'set the file name

        'Dim sFileName As String = "TestWrite_VBNET.txt"

​

        'use htm files as you can open and view in browser and 

        Dim sFileName As String = "Prerelease2015.txt"

​

        'prepend (put in front) the folder name to the file name.

        sFileName = sFolderName & "\" & sFileName

​

        'create the stream reader object

        Dim oStreamReader As StreamReader

        oStreamReader = New StreamReader(sFileName)

        'we are going to read all the lines

        'we do not know how many there are so we use a condition controlled loop

        'we keep reading until the end of the file

        'we can detect the end of file with 

        Dim sDescription As String

        Dim sTerm As String

        Dim Found As Boolean = False

        Do While oStreamReader.EndOfStream = False

            'this will fail if there is not an even number of lines in the file

            sTerm = oStreamReader.ReadLine

            sDescription = LCase(oStreamReader.ReadLine())

            If sDescription.Contains(LCase(sKeyword)) Then

                Found = True

                Console.WriteLine("Found for " & sTerm)

                Console.WriteLine(sDescription)

            End If

        Loop

        oStreamReader.Close()

        If Found = False Then

            Console.WriteLine("Not Found")

        End If

    End Sub

End Module