Сортировка данных в txt файле. - VB

Узнай цену своей работы

Формулировка задачи:

Y menay est file.txt i dannue v etom file. Vce dannue meshdy soboy otsortirovanu s pomoshu tab. Kak mne rasbit eti dannue? Saranee blagodarna

Решение задачи: «Сортировка данных в txt файле.»

textual
Листинг программы
Private Sub Command1_Click()
'загружааем файл
Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = 'D:1.txt'
Open FName For Input As #FN
Text1.Text = Input(LOF(FN), #FN)
Close #FN
'разбиваем на отдельные элементы, загоняя в массив
Dim str1() As String
Dim st As String
str1 = Split(Text1.Text, vbTab)
'что нам и требовалось найти
For i = 0 To UBound(str1)
MsgBox str1(i)
Next
End Sub

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


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

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

10   голосов , оценка 4.2 из 5