Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: C/C++
Code:

Imports System.Collections.Generic
Imports System.Linq
Imports System.Text     
Imports System.IO

Module Module1

    
    Structure passazhir
        Public fam As String
        Public kol As String
        Public ves As String
    End Structure
    

    Dim n As Integer, 
    Dim filename As String
    Dim paslist As passazhir () = New passazhir (99) {}
    Private Sub Out(ByVal z As avtomobil)
        Console.Write(vbLf & "Марка {0}, номер {1}, фамилия {2}, год приобретения {3}, пробег {4}", z.mark, z.nomer, z.familia, z.god, z.probeg)
    End Sub

        Console.Write(" " & vbLf & " Введите марку:")
        avtolist(i).mark = Console.ReadLine()
        Console.Write(" " & vbLf & " Введите номер:")
        avtolist(i).nomer = Console.ReadLine()
        Console.Write(" " & vbLf & " Введите фамилию его владельца:")
        avtolist(i).familia = Console.ReadLine()
        Console.Write(" " & vbLf & " Введите год приобретения:")
        avtolist(i).god = Integer.Parse(Console.ReadLine())
        Console.Write(" " & vbLf & " Введите пробег:")
        avtolist(i).probeg = Integer.Parse(Console.ReadLine())
    End Sub
    Private Sub Saveavtolist(ByVal avtolist As avtomobil(), ByVal n As Integer, ByVal filename As String)
        Dim sr As New StreamWriter(filename)
        
        For i As Integer = 0 To n - 1
            
            sr.WriteLine("{0} {1} {2} {3} {4}", avtolist(i).mark, avtolist(i).nomer, avtolist(i).familia, avtolist(i).god, avtolist(i).probeg)
        Next
        sr.Close()
    End Sub



    Sub Main()
        Dim cikl As Boolean
        Dim line As String
        Dim delim As Char() = {" "c}

        While True
            Console.Write(vbLf & vbLf & "----  Меню:   ----" & vbLf & " Создать: 1 " & vbLf & " Просмотр: 2 " & vbLf & " Выход: 0" & vbLf & " " & vbLf & ":")
            kod = Integer.Parse(Console.ReadLine())
            Select Case kod
                Case 1
                    Console.Write("Введите имя файла для создания: " & vbLf)
                    filename = Console.ReadLine()

                    Console.Write("Введите количество записей:" & vbLf)
                    n = Integer.Parse(Console.ReadLine())

                    
                    For i As Integer = 1 To n
                        Console.Write("{0}-й автомобиль:" & vbLf, i)
                        Input(i - 1)
                    Next
                    Saveavtolist(avtolist, n, filename)

                    Exit Select
                Case 2



                    Console.Write(vbLf & "Введите имя файла для открытия: " & vbLf)
                    filename = Console.ReadLine()

                                        
                    Dim sr As New StreamReader(filename)
                    n = 0
                    Console.Write(vbLf & vbLf & "В файле {0} записей", n)
                    Console.Write(vbLf & vbLf & vbLf & "Список автомобилей:" & vbLf)
                    While Not sr.EndOfStream
                        line = sr.ReadLine()
                        Dim str As String() = line.Split(delim)
                        avtolist(n).mark = str(0)
                        avtolist(n).nomer = str(1)
                        avtolist(n).familia = str(2)
                        avtolist(n).god = Integer.Parse(str(3))
                        avtolist(n).probeg = Integer.Parse(str(4))
                        Out(avtolist(n))
                        
                        n += 1
                    End While
                    sr.Close()


                    cikl = True

                    While cikl
                        
                        Dim num As Integer
                        Dim kod2 As Integer
                        Console.Write(vbLf & vbLf & vbLf & "----  Меню:   ----" & vbLf & " Просмотр: 1 " & vbLf & " Редактировать: 2 " & vbLf & " Выход: 0" & vbLf & vbLf & ":")
                        kod2 = Integer.Parse(Console.ReadLine())
                        Select Case kod2
                            Case 1

                                Console.Write(vbLf & vbLf & "В файле {0} записей(начиная от 1)", n)
                                Console.Write(vbLf & "Введите номер записи для просмотра:")
                                num = Integer.Parse(Console.ReadLine())
                                Out(avtolist(num - 1))
                                
                                Exit Select
                            Case 2
                                Console.Write(vbLf & vbLf & "В файле  {0} записей(начиная от 1)", n)
                                Console.Write(vbLf & "Введите номер записи для изменения:")
                                num = Integer.Parse(Console.ReadLine())
                                Input(num - 1)
                                
                                Saveavtolist(avtolist, n, filename)

                                Console.Write(vbLf & vbLf & "Запись сохранена:" & vbLf)
                                Out(avtolist(num - 1))
                                
                                Exit Select
                            Case 0
                                
                                cikl = False
                                Exit Select

                        End Select
                    End While

                    Exit Select
                Case 0
                    Return

            End Select
        End While


        Console.ReadKey()
    End Sub

End Module


     
Comments: