Создать новый строковый файл, в котором строки из исходного файла располагались бы в лексикографическом порядке - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы