Чтение двумерного массива из файла. VB6

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

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

всем привет! пожалста помогите... задача такая.. открыть текстовый файл с данными(дробные числа типа 0,0000) в виде двумерной матрицы (600 строк, 3 столбца), каждое число разделено пробелом.. в бейсике новичок.. и как я понял..данные открываются в строковом формате... поэтому решил пользоваться функцией val, чтобы дальше можно было производить математические вычисления с этой матрицей
заранее благодарю за помощь

Решение задачи: «Чтение двумерного массива из файла. VB6»

textual
Листинг программы
Private Sub Command1_Click()
 
Dim Stroka As String
Dim M(1 To 3, 1 To 600) As Double, m1
Dim i, j As Integer
 
On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Текстовые файлы (*.txt) |*.txt"
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.DialogTitle = "Окрыть матрицу"
CommonDialog1.ShowOpen
F = FreeFile
Text2.Text = ""
Open CommonDialog1.FileName For Input As #F
 i = 0
Do While Not EOF(F)
 
Line Input #F, Stroka 'запутался в этих циклах О_о
m1 = Split(Stroka, " ")
j = j + 1
For i = 1 To 3
M(i, j) = m1(i - 1)
Text2 = Text2 & M(i, j) & "   "
Next i
 Text2 = Text2 & vbCrLf
Loop
 
Close #F
 
Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub

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


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

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

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