Sorting a text file | C# Online Compiler

Sorting a text file by Kevin Guo

Imports System
Public Module Module1
Dim folder As String
        folder = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim filename As String = "colours.txt"
        filename = folder & "\" & filename
        Dim oreader As System.IO.StreamReader
        oreader = New IO.StreamReader(filename, True)
        Dim sLine As String
        Dim Colour(6) As String
        For i = 0 To 6
            sLine = oreader.ReadLine()
            Colour(i) = sLine
        Next
        Dim temp As String
        For i = 0 To Colour.GetUpperBound(0) - 1
            For j = 0 To Colour.GetUpperBound(0) - 1
                If Colour(j) > Colour(j + 1) Then
                    temp = Colour(j)
                    Colour(j) = Colour(j + 1)
                    Colour(j + 1) = temp
                End If
            Next j
        Next i
        Dim ostreamer As System.IO.StreamWriter
        ostreamer = New IO.StreamWriter(filename, True)
        For i = 0 To 5
            ostreamer.WriteLine(Colour(i))
        Next
        Do While oreader.EndOfStream = False
            sLine = oreader.ReadLine()
            Console.WriteLine(sLine)
        Loop
        Console.ReadLine()
        oreader.Close()
	End Sub
End Module

'Not sure how to do this

​x
 
Imports System
Public Module Module1
Dim folder As String
        folder = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim filename As String = "colours.txt"
        filename = folder & "\" & filename
        Dim oreader As System.IO.StreamReader
        oreader = New IO.StreamReader(filename, True)
        Dim sLine As String
        Dim Colour(6) As String
        For i = 0 To 6
            sLine = oreader.ReadLine()
            Colour(i) = sLine
        Next
        Dim temp As String
        For i = 0 To Colour.GetUpperBound(0) - 1
            For j = 0 To Colour.GetUpperBound(0) - 1
                If Colour(j) > Colour(j + 1) Then
                    temp = Colour(j)
                    Colour(j) = Colour(j + 1)
                    Colour(j + 1) = temp
                End If
            Next j
        Next i
        Dim ostreamer As System.IO.StreamWriter
        ostreamer = New IO.StreamWriter(filename, True)
        For i = 0 To 5
            ostreamer.WriteLine(Colour(i))
        Next
        Do While oreader.EndOfStream = False
            sLine = oreader.ReadLine()
            Console.WriteLine(sLine)
        Loop
        Console.ReadLine()
        oreader.Close()
    End Sub
End Module
​
'Not sure how to do this

Compilation error (line 4, col 0): Declaration expected.
Compilation error (line 6, col 0): Declaration expected.
Compilation error (line 8, col 0): Declaration expected.
Compilation error (line 11, col 0): Statement cannot appear outside of a method body/multiline lambda.
Compilation error (line 12, col 0): Declaration expected.
Compilation error (line 13, col 0): Declaration expected.
Compilation error (line 14, col 0): Syntax error.
Compilation error (line 16, col 0): Statement cannot appear outside of a method body/multiline lambda.
Compilation error (line 17, col 0): Statement cannot appear outside of a method body/multiline lambda.
Compilation error (line 18, col 0): Statement cannot appear outside of a method body/multiline lambda.
Compilation error (line 19, col 0): Declaration expected.
Compilation error (line 20, col 0): Declaration expected.
Compilation error (line 21, col 0): Declaration expected.
Compilation error (line 22, col 0): 'End If' must be preceded by a matching 'If'.
Compilation error (line 23, col 0): Syntax error.
Compilation error (line 24, col 0): Syntax error.
Compilation error (line 26, col 0): Declaration expected.
Compilation error (line 27, col 0): Statement cannot appear outside of a method body/multiline lambda.
Compilation error (line 28, col 0): Declaration expected.
Compilation error (line 29, col 0): Syntax error.
Compilation error (line 30, col 0): Statement cannot appear outside of a method body/multiline lambda.
Compilation error (line 31, col 0): Declaration expected.
Compilation error (line 32, col 0): Declaration expected.
Compilation error (line 33, col 0): Statement cannot appear outside of a method body/multiline lambda.
Compilation error (line 34, col 0): Declaration expected.
Compilation error (line 35, col 0): Declaration expected.
Compilation error (line 36, col 0): 'End Sub' must be preceded by a matching 'Sub'.

Last Run:	3:13:56 am
Compile:	0s
Execute:	0.124s
Memory:	0b
CPU:	0s

View IL Code