Создать новый строковый файл, в котором строки из исходного файла располагались бы в лексикографическом порядке - VB
Формулировка задачи:
Дан строковый файл. Создать новый строковый файл, в котором строки
из исходного файла располагались бы в лексикографическом порядке, то
есть по возрастанию кодов их символов, начиная с первого символа.
Решение задачи: «Создать новый строковый файл, в котором строки из исходного файла располагались бы в лексикографическом порядке»
textual
Листинг программы
Option Explicit ' Создать новый строковый файл, в котором строки из исходного файла располагались бы в лексикографическом порядке / Visual Basic ' Я не могу понять как сделать сортировку.В Text1.text-у меня выводит текст, который содержится в файле. А в Text2.text надо вывести упорядоченный список. Private Sub Комманда1_Click() Dim File As String, CF As String 'объявим пеpеменнyю для имени файла и его cодеpжимого File = App.Path & "\Справочник.txt" 'ycтановим имя файла и пyть Open File For Binary As #1 'откpоем файл для чтения CF = Input(FileLen(File), 1) 'загpyзить в пеpеменyю CF вcе cодеpжимое файла Close #1 'закpыть файл Текст1 = CF End Sub Private Sub Комманда2_Click() Dim M() As String ' массив слов из текста Dim i, j, T M = Split(Текст1.Text) For i = 0 To UBound(M) For j = UBound(M) - 1 To i + 1 Step -1 If Asc(LCase(M(j))) < Asc(LCase(M(j - 1))) Then T = M(j): M(j) = M(j - 1): M(j - 1) = T End If Next j Next i Текст2 = Join(M) Open App.Path & "\Справочник2.txt" For Output As 1 Print #1, Текст2 Close End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д