Imports Microsoft.VisualBasic.FileIO

Module Module1

    Sub Main()
        Dim choice As Integer = 1
        
        Dim row() As String
        Dim file As String = "data.csv"

        Dim onoma As String
        Dim timh As Double
        Dim posotita As Short

        Do
            Console.Clear()
            Console.WriteLine("Καλώς ήρθατε στο μενού της αποθήκης")
            Console.WriteLine("Πατήστε ")
            Console.WriteLine("1 για να εμφανίσετε το περιεχόμενο της αποθήκης ")
            Console.WriteLine("2 για να εισάγετε νέα προϊόντα στην αποθήκη ")
            Console.WriteLine("3 για να διαγραφούν όλα τα στοιχεία και να εισάγετε καινούργια")
            Console.WriteLine("0 για έξοδο")

            choice = Console.ReadLine()

            Select Case choice


                Case 1
                    Dim input As IO.StreamReader
                    Dim dataFile As TextFieldParser
                    If IO.File.Exists(file) Then
                        input = IO.File.OpenText(file)
                        dataFile = New TextFieldParser(file)
                        dataFile.TextFieldType = FieldType.Delimited
                        dataFile.SetDelimiters(",")

                        While Not dataFile.EndOfData
                            row = dataFile.ReadFields()
                            For Each item As String In row
                                Console.Write(item + vbTab)
                            Next
                            Console.WriteLine()
                        End While

                        input.Close()
                        Console.ReadKey()
                    End If


                Case 2
                    Dim output As IO.StreamWriter
                    output = IO.File.AppendText(file)

                    Console.Write("εισάγετε το όνομα του προϊόντος")
                    onoma = Console.ReadLine()
                    Console.Write("Εισάγετε τη τιμή ")
                    timh = Console.ReadLine()
                    Console.Write("Εισάγετε  ποσότητα προϊόντων")
                    posotita = Console.ReadLine()


                    output.WriteLine(onoma + "," + timh.ToString + "," + posotita.ToString + "," + (posotita * timh).ToString)

                    output.Close()

                Case 3
                    Dim output As IO.StreamWriter
                    output = IO.File.CreateText(file)

                    Console.Write("εισάγετε το όνομα του προϊόντος")
                    onoma = Console.ReadLine()
                    Console.Write("Εισάγετε τη τιμή ")
                    timh = Console.ReadLine()
                    Console.Write("Εισάγετε  ποσότητα προϊόντων")
                    posotita = Console.ReadLine()
                    output.WriteLine(onoma + "," + timh.ToString + "," + posotita.ToString + "," + (posotita * timh).ToString)

                    output.Close()

                
            End Select


        Loop Until choice = 0

    End Sub

End Module
