Сортировка данных в 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы