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

@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, Спасибо большое, понял!
Заработало!

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@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