Считывание данных из структурированного файла - VB
Формулировка задачи:
Всем добрый день.
Возник такой вопрос.
Имеется файл, в котором записаны числа примерно так:
и т.д. (180 строк, может быть и больше, условие должно быть: пока не достигнут конец файла)
Необходимо считать эти данные (без пояснений: 'тра-та-та) и записать в массивы, по 10 чисел, они разделены пустой строкой.
ПОМОГИТЕ!!!!
Листинг программы
- 0.1 'тра-та-та
- 0.00125 'тра-та-та
- 5 'тра-та-та
- 0.08 'тра-та-та
- 2 'тра-та-та
- 0.001 'тра-та-та
- 7 'тра-та-та
- 0.175 'тра-та-та
- 0.17 'тра-та-та
- 0.5'тра-та-та
- 0.1 'тра-та-та
- 0.00125 'тра-та-та
- 5 'тра-та-та
- 0.08 'тра-та-та
- 2 'тра-та-та
- 0.001 'тра-та-та
- 7 'тра-та-та
- 0.175 'тра-та-та
- 0.64 'тра-та-та
- 0.5'тра-та-та
Решение задачи: «Считывание данных из структурированного файла»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim i%, j%, f%, S$, fn$
- Const c = 10
- f = FreeFile
- fn = App.Path & "\data.txt"
- On Error GoTo er
- ReDim a(c, 1)
- Me.Cls
- i = 1: j = 0
- Open fn For Input As #f
- Do While Not EOF(f)
- Line Input #f, S
- If Trim(S) = "" Then
- If j <> 10 Then If MsgBox("не " & c & vbNewLine & "Продолжить ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
- i = i + 1: j = 0
- ReDim Preserve a(c, i)
- Me.Print
- Else
- j = j + 1
- a(j, i) = Val(Replace(S, ",", "."))
- Me.Print a(j, i); " ";
- End If
- Loop
- Close f
- Exit Sub
- er: MsgBox Err.Description
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
