Заполнить массив из текстового файла

@mr.vlasoff2011 · Регистрация: 11.11.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте. Уважаемые программисты, подскажите пожалуйста, как заполнить массив из текстового файла.
1 54723937 21403
2 57449894 21403
3 51529972 21403
4 51114338 21403
5 50051101 21403
6 50050434 21403
7 51516649 21403
8 51484632 21403
9 51353555 21403
10 51516136 21403
11 51484632 21403
Массив = (номер строки, номер колонки). Получается здесь 3 колонки.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim File As String
Dim M() As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Private Sub Комманда1_Click()
File = "C:\2.txt"
Open "C:\2.txt" For Input As #1
a = Input(FileLen(File), 1)
Close #1
 
 M = Split(a, vbNewLine) 'разбиваю на строки
i = UBound(M)
 
   For k = 0 To i
      M(k, 0) = Mid(M, 1, 3) ' пытаюсь хотя бы первую колонку присвоить массиву-бесполезно,
   Next k                         ' то несоответствие типов, то нижний индекс вне...
      
Text1.Text = M(0, 0) ' вывести, допустим, первую ячейку
End Sub

@maksimla · 22.08.2011, 17:45

Ты на чем делаешь на vb6 или vb.net?
Вот сделал на vb6 как понял

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim File As String
Dim M(10) As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Stroka As String
 
Private Sub Command1_Click()
'File = "D:\2.txt"
F = FreeFile
Open "D:\2.txt" For Input As #F
'a = Input(FileLen(File), F)
'Close #1
Do While Not EOF(F)
Line Input #1, Stroka
'Text1.Text = Stroka
M(i) = Stroka
i = i + 1
Loop
Close #1
Text1.Text = M(10)
' Text1.Text = a
' M = Split(a, vbNewLine) 
' Text1.Text = Split(a, vbNewLine)
'i = UBound(M)
'Text1.Text = a
'
'   For k = 0 To i
'      M(k, 0) = Mid(M, 1, 3) 
'   Next k                       
'
'Text1.Text = M(0, 0)
End Sub

Добавлено через 16 минут
я все таки думаю что ты на vb6 делаешь из-за выделения кода и вот твоя ошибка

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim M() As String
Dim k As Integer
 
 
Private Sub Command1_Click()
 
   For k = 0 To 2
      M(k, 0) = "test"
   Next k
      
Text1.Text = M(0, 0)
End Sub

надо при создании массива так добовлять числа

Visual Basic
1
Dim M(2,5) As String

вот и не будит ошибки

@mr.vlasoff2011 · 22.08.2011, 17:53 **[ТС]**

maksimla, спасибо. Только вот известно количество колонок = 3, а количество строк всегда меняется, но не больше 65.

Добавлено через 1 минуту
на VB6

@maksimla · 22.08.2011, 18:19

и ты хочешь сделать массив столько сколько строчек сейчас есть ?
я сам бы хотел сделать но не дает ошибка

Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
Dim b As Integer
b = 10
Dim n(b) As String
End Sub

если найдешь где то то выложи мне тоже интересно будить. Я сам начинающий
А может не мучайся и делай массив на 65 все ровно мало памяти возьмет

@gaw · 22.08.2011, 18:24

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Command1_Click()
'Text1.MultiLine = True
Dim M(), a
Dim i%, j%, k%
Dim MyText$
Dim File$, F&
File = "D:\2.txt"
F = FreeFile
i = 0
Text1.Text = ""
 
Open File For Input As #F
  Do While Not EOF(F)
   Line Input #1, MyText
   a = Split(MyText, " ")
 
   If UBound(a) <> 2 Then
      MsgBox "Err"
      Exit Sub
   End If
 i = i + 1
 ReDim Preserve M(3, i)
 For j = 1 To 3
     M(j, i) = a(j - 1)
 Next j
Loop
Close #1
'...............
For i = 1 To UBound(M, 2)
For j = 1 To 3
Text1.Text = Text1.Text & M(j, i) & vbTab
 
Next j
Text1.Text = Text1.Text & vbNewLine
Next i
End Sub

@mr.vlasoff2011 · 22.08.2011, 18:54 **[ТС]**

gaw, блин, всё просто и ясно, как бы самому научиться дорубаться. Спасибо большое.

@maksimla · 22.08.2011, 18:58

А для чего эти знаки %&$

Visual Basic
1
2
3
Dim i%, j%, k%
Dim MyText$
Dim File$, F&

ну и я плохо понял Split и UBound
хотя общее что тут написан понял

Visual Basic
1
2
3
4
5
 a = Split(MyText, " ")
 
   If UBound(a) <> 2 Then
      MsgBox "Err"
      Exit Sub

если не 2 пробела то тогда прерывается

@gaw · 22.08.2011, 19:08

Сообщение от maksimla

если не 2 пробела то тогда прерывается

да, если к примеру больше 2 то вылетит ошибка индекс вне
% As Integer
& As Long
$ As String

@Alex77755 · 23.08.2011, 07:11

доделал твой вариант со Split строки

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Dim File As String
Dim M() As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Private Sub Комманда1_Click()
File = "C:\2.txt"
Open "C:\2.txt" For Input As #1
a = Input(FileLen(File), 1)
Close #1
Cls
Do While InStr(1, a, "  ") > 0 ' если вдруг не один пробел попадётся
  a = Replace(a, "  ", " ")
Loop
 
 M = Split(a, vbNewLine) 'разбиваю на строки
i = UBound(M)
 
   For k = 0 To i
        For j = 0 To 2
            M(k, j) = Split(M, " ")(j) ' разбиваем по пробелам и берём нужній элемент
            Print M(k, j), 'печать в строку
        Next k
        Print 'печать на форму
   Next k                         '
Text1.Text = M(0, 0) ' вывести, допустим, первую ячейку
End Sub

@mr.vlasoff2011 · 24.08.2011, 10:46 **[ТС]**

Alex77755, в строке M(k, j) = Split(M, " ")(j) вылетает "несоответствие типов", вроде бы всё правильно

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
Dim a As String
Dim File As String
Dim M() As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Private Sub Комманда1_Click()
File = "C:\2.txt"
Open "C:\2.txt" For Input As #1
a = Input(FileLen(File), 1)
Close #1
Cls
Do While InStr(1, a, "  ") > 0 ' если вдруг не один пробел попадётся
  a = Replace(a, "  ", " ")
Loop
 
 M = Split(a, vbNewLine) 'разбиваю на строки
i = UBound(M)
 
   For k = 0 To i
        For j = 0 To 2
            M(k, j) = Split(M, " ")(j) '  почему то здесь вылетает "несоответствие типов"
            Print M(k, j), 'печать в строку
        Next k
        Print 'печать на форму
   Next k                         '
Text1.Text = M(0, 0) ' вывести, допустим, первую ячейку
End Sub

@Alex77755 · 25.08.2011, 12:35

Одна и та же переменная M
вот так работает:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
Dim a As String
Dim File As String
Dim M() As String
Dim S() As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Private Sub Комманда1_Click()
File = "C:\1.txt"
Open File For Input As #1
a = Input(FileLen(File), 1)
Close #1
Cls
Do While InStr(1, a, "  ") > 0 ' если вдруг не один пробел попадётся
  a = Replace(a, "  ", " ")
Loop
 M = Split(a, vbNewLine) 'разбиваю на строки
i = UBound(M)
 ReDim S(i, 2)
   For k = 0 To i
        For j = 0 To 2
            S(k, j) = Split(Trim(M(k)), " ")(j) ' 
            Print S(k, j), 'печать в строку
        Next j
        Print 'печать на форму
   Next k
End Sub

@mr.vlasoff2011 · 25.08.2011, 13:28 **[ТС]**

Alex77755, Спасибо большое, понял!
Заработало!

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@mr.vlasoff2011 12 / 12 / 0 Регистрация: 11.11.2010 Сообщений: 37
	22.08.2011, 17:53 [ТС]
	maksimla, спасибо. Только вот известно количество колонок = 3, а количество строк всегда меняется, но не больше 65. Добавлено через 1 минуту на VB6 0

@mr.vlasoff2011 12 / 12 / 0 Регистрация: 11.11.2010 Сообщений: 37
	22.08.2011, 18:54 [ТС]
	gaw, блин, всё просто и ясно, как бы самому научиться дорубаться. Спасибо большое. 0

@mr.vlasoff2011 12 / 12 / 0 Регистрация: 11.11.2010 Сообщений: 37
	25.08.2011, 13:28 [ТС]
	Alex77755, Спасибо большое, понял! Заработало! 0