Считывание данных из структурированного файла

@Egor.V.A · Регистрация: 01.06.2012

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

Всем добрый день.
Возник такой вопрос.
Имеется файл, в котором записаны числа примерно так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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'тра-та-та

и т.д. (180 строк, может быть и больше, условие должно быть: пока не достигнут конец файла)
Необходимо считать эти данные (без пояснений: 'тра-та-та) и записать в массивы, по 10 чисел, они разделены пустой строкой.
ПОМОГИТЕ!!!!

@Catstail · 06.08.2012, 11:32

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub LoadData(Fname as string, Arr() as double)
      fi%=FreeFile
      open Fname for input as #fi%
      i%=1
      j%=1%
      Do While(Not EOF(fi%))
          line input #fi%,Stri$
          If Len(Trim$(Stri$))=0 then 
             i%=i%+1
             j%=1
          else
             Arr(i%,j%)=Val(Stri$)
             j%=j%+1
          end if
       Loop
      close fi%
End Sub

Эта процедура заносит данные в двумерный массив Arr()
Важно! - десятичным разделителем в файле должна быть точка (в противном случае будет теряться дробная часть; впрочем, это легко исправить).

@Egor.V.A · 06.08.2012, 11:45 **[ТС]**

Скинь рабочий файл, что-то не могу понять что есть что в твоем коде.

SoftIce · 06.08.2012, 12:18

_______

Не по теме:

Большинство людей предпочитают не пользоваться идентификаторами для обозначения типа переменной (тем более, что для таких типов, как дата/время, вообще не существует идентификаторов). Вместо этого они используют оператор Dim. Такая операция носит название объявления. Объявление типов переменных в процедурах обработки событий перед их использованием - и, естественно, с комментариями - является хорошим стилем в программировании. Это также помогает улучшить читабельность текстов программ.

@Catstail · 06.08.2012, 12:32

Чего же там непонятного?.. Впрочем, держи (запускай и выбирай файл data.txt c твоими данными)

@Catstail · 06.08.2012, 12:38

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

является хорошим стилем в программировании. Это также помогает улучшить читабельность текстов программ.

- за что люблю программирование, так это за творческий характер деятельности. И за то, что здесь я сам себе полный хозяин. "Намёк ты этот понимаешь?" (Р.Бернс)

@gaw · 06.08.2012, 14:03

вар:

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
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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Egor.V.A 0 / 0 / 2 Регистрация: 01.06.2012 Сообщений: 139
	06.08.2012, 11:45 [ТС]
	Скинь рабочий файл, что-то не могу понять что есть что в твоем коде. 0