Чтение двумерного массива из файла. 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д