Пример 4.10.2-2. Создать проект сортировки строк текста, который загружается из текстового файла и после сортировки сохраняется в этом же файле

1. Форма проекта Пример 4.10.2-2 показана на рис. 4.10.2-4

Рис. 4.10.2-4

 

2. Программный код проекта показан на рис. 4.10.2-5. Он содержит процедуры
OpenFile(), SaveFile(), vvod() и использует метод Sort() класса Array для сортировки массива строк. Для преобразования загруженной строки в массив строк используется функцияSplit(), а в качестве разделителей – коды возврата каретки и перевода строки (vbCrLf). Обратное преобразование массива в строку производится с помощью функции Join().

PublicClass Form1 Function vvod(ByVal T As TextBox) AsString Return T.Text EndFunction PrivateSub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click End EndSub PrivateSub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Dim Str1, Str2 AsString Str1 = vvod(TextBox2) Dim Mas() AsString = Split(Str1, vbCrLf) Array.Sort(Mas): Str2 = Join(Mas) TextBox2.Text = Str1 & vbCrLf & vbCrLf & Str2 EndSub PrivateSub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim FileName AsString FileName = vvod(TextBox1): OpenFile(FileName, TextBox2) EndSub PrivateSub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click Dim FileName AsString FileName = vvod(TextBox1) SaveFile(FileName, TextBox2) EndSub Sub OpenFile(ByVal FileName AsString, ByVal T As TextBox) Dim AllText AsString = "", LineOfText AsString = "" Try FileOpen(1, FileName, OpenMode.Input) DoUntil EOF(1) 'чтение строки из файла LineOfText = LineInput(1) AllText = AllText & LineOfText & vbCrLf Loop T.Text = AllText: T.Enabled = True Catch MsgBox("Ошибка при открытии файла. ") Finally FileClose(1) 'закрытиефайла EndTry EndSub Sub SaveFile(ByVal FileName AsString, ByVal T As TextBox) If FileName <>""Then FileOpen(1, FileName, OpenMode.Output) 'Запись содержимого текстового поля в файл PrintLine(1, T.Text): FileClose(1) EndIf EndSub EndClass

Рис. 4.10.2-5

 


Результат работы программы показан на рис. 4.10.2-6.

Рис. 4.10.2-6

 

 


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



double arrow
Сейчас читают про: