Исходный код

ФЕДЕРАЛЬНОЕ АГЕНТСТВО СВЯЗИ

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

Московский Технический Университет Связи и Информатики

Исходный код

Option Strict On

Option Explicit On

Imports System.IO

Public Class Form1

Dim l As Integer

Public all(4), out(), bib() As String

'Процедура построчного чтения сведений о студентах из тек. файла, для подсчета числа студентов

Sub readfile(ByVal filename As String, ByRef out() As String)

'создание потока для чтения из текстового файла

Dim f = New StreamReader(filename)

Dim a As Integer

a = 0 'количество строк в файле

Try

Do While Not (f.EndOfStream) 'пока не достигнут конец потока

ReDim Preserve out(a + 1)

out(a + 1) = f.ReadLine().Trim 'чтение строки из файла в line

a = a + 1

Loop

f.Close() 'закрытие потока

Catch ex As Exception

MsgBox(" Невозможно прочитать данные из файла")

End Try

End Sub

Sub sort(ByVal income() As String, ByRef out() As String)

Dim b As Integer

Dim a(), c As String

ReDim out(0)

For b = 1 To income.GetUpperBound(0) Step 1

If income(b).Length > 1 Then

a = income(b).Trim.Split(CChar("; "))

If a(0).Length > 0 Then

ReDim Preserve out(out.Length)

out(out.Length - 2) = a(0)

End If

End If

Next

c = " "

For b = 0 To bib.GetUpperBound(0) - 1 Step 1

If bib(b).Length> 0 and c.IndexOf(bib(b))< 0 Then c=c+bib(b) +" ###"

Next

a = c.Split(CChar(" ###".Trim))

For b = 0 To a.GetUpperBound(0) - 1 Step 1

If a(b).Length > 0 Then

ListBox1.Items.Add(a(b))

Form2.ComboBox1.Items.Add(a(b))

End If

Next

End Sub

Private Sub Heands_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Heands.Click

Form2.Show()

End Sub

Private Sub OpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenFile.Click

OpenFileDialog.ShowDialog()

End Sub

Private Sub OpenFileDialog_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog.FileOk

readfile(OpenFileDialog.FileName, out)

sort(out, bib)

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

Dim y(), z(0), output As String

Dim a, b As Integer

ListBox2.Items.Clear()

For a = 1 To out.GetUpperBound(0) - 1 Step 1

If out(a).Length > 1 Then

y = out(a).Trim.Split(CChar("; "))

If y(0) = ListBox1.SelectedItem.ToString Then

output = y(2) + " (" + y(1) + ")"

b = (70 - output.Length)

output = output + Space(b)

output = output + " - " + y(3)

ListBox2.Items.Add(output)

End If

End If

Next

End Sub

End Class

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ReDim Preserve Form1.out(Form1.out.GetUpperBound(0) + 1)

Form1.out.SetValue(ComboBox1.SelectedItem.ToString + "; " + TextBox1.Text + "; " + TextBox2.Text + "; " + TextBox3.Text, Form1.out.GetUpperBound(0)-1)

Me.Close()

End Sub

End Class