Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [General] разобрать данные из файла в массив 
V
    Опции темы
gyvenor
Дата 25.11.2010, 16:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 6.8.2007

Репутация: 1
Всего: 1



Добрый день.
Уважаемые форумчане, помогите решить несложную (мне кажется), задачку.
Потребовалось провести большие рассчеты, средств Excel не хватило. Решил реализовать на фортране, т.к. синтаксис языка в общем знаком.
Затык вот в чем:
Есть файл *.csv в несколько тысяч строк, файл структурирован, нужно занести из него данные в двумерный массив.

Пример строк этого файла:
Код

2010.07.27,12:00,1.29835,1.30154,1.29813,1.29970,2446
2010.07.27,13:00,1.29968,1.30453,1.29968,1.30365,2851

Первая колонка дата, вторая время, последующие вещественные числа.
А занести в массив хочу так:
A(1,1) = 2010
A(1,2) = 07
A(1,3) = 27
A(1,4) = 12
A(1,5) = 1.29835
A(1,6) = 1.30154
A(1,7) = 1.29813
A(1,8) = 1.29970
А последнюю часть (2446) убрать вобще.

Если кому-то инетересно помочь в решении данной задачи, буду благодарен smile
PM MAIL   Вверх
gyvenor
Дата 25.11.2010, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 6.8.2007

Репутация: 1
Всего: 1



Задача решена. Авось кому будет полезно smile

Код

!получаем массив из файла
open (1,file='1.csv',status='OLD')
do i=1,n
    read (1,101),(pul(i,j),j=1,8)
end do
101 format (F4.0,1x,F2.0,1x,F2.0,1x,F2.0,4x,F7.5,1x,F7.5,1x,F7.5,1x,F7.5)

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Fortran | Следующая тема »


 




[ Время генерации скрипта: 0.0728 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.