Imports System.IO

​

Public Module Module1

​

    Sub Main()

        Q3()

    End Sub

​

    Sub Q1() 'Simple Read.

        Dim oSR as New StreamReader("\\study\Users\17767\file 1\text.txt")

        Dim sLine = oSR.ReadLine()

        Console.Writeline(sLine)

        Console.Readline

    End Sub

​

    Sub Q2() 'AdvancedRead.

        Dim oSR as New StreamReader("\\study\Users\17767\file 1\new text.txt")

        Dim sLine(2) = oSR.ReadLine()

        For i = 0 to 2

            Console.Writeline(sLine(i))

            Console.Readline()

         End Sub

​

    Sub Q3() 'SimpleSearch.

        Dim oSR as New StreamReader("\\study\Users\17767\file 1\new text.txt")

        Dim sLine(9) = oSR.Readline

        Dim input as Char

        For i = 0 to 9

            Console.Writeline(sLine(i))

        Next

​

        For i = 0 to 9

            If input = sLine(9) Then

                Console.Writeline("Found")

            Else

                Console.Writeline("Not Found")

            End If

​

            Console.Readline

         End Sub

End Module

​