Read files with ";" in FORTRAN

Question

Read files with ";" in FORTRAN

Navigation

#1 by (1 votes)

3

I'm trying to read an array, but it gets error because the data is separated by ";" such as:

//EstacaoCodigo;NivelConsistencia;Data;Hora;MediaDiaria;MetodoObtencaoVazoes;Maxima;Minima;Media;DiaMaxima;DiaMinima;MaximaStatus;MinimaStatus;MediaStatus

88850000; 2; 08/01/1964;; 1; 1 ;;;;; 0; 0 88850000; 2; 09/01/1964;; 1; 1; 50.24; 2.78; 6.446; 30; 14; 1; 1; 88850000; 2; 10/01/1964;; 1; 1; 364.4; 3.26; 1.744.774; 9; 31; 1; 1; 88850000; 2; 11/01/1964;; 1; 1; 7.6; 1.18; 2.224; 21; 27; 1; 1; 1 88850000; 2; 12/01/1964;; 1; 1; 3.1; 0.575; 1,118,226; 2; 21; 1; 1; 88850000; 2; 01/01/1965;; 1; 1; 16.2; 0.315; 1.214.194; 17; 14; 1; 1; 1 1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 1, 1, 63, 0.127, 6706, 581, 28, 10, 11,

The code I made was this:

program vazoes
implicit none

INTEGER, DIMENSION(3,80) :: a
INTEGER :: row,col,max_rows,max_cols
max_rows=3
max_cols=80

open(Unit = 11, file = 'vazoes.txt', status = 'old')
DO row = 1,max_rows
    READ(11,*) (a(row,col),col=1,max_cols)
END DO

PRINT *, a(1,:)
END PROGRAM vazoes

Does anyone know what I should change to read the data?

fortran

asked by anonymous 21.01.2016 / 22:55

1 answer

How to call a function in CakePHP 3.x [closed] Error importing xml.parsers.expat in Python 2.7 only works with Python3

score 1 · Answer 1

There are several possible strategies for reading the file in csv format with ';' delimiter and separating the fields read.

Below is a commented example, which reads each line of the file and stores it in the variable linha_texto .

Looping, which is just after reading the line, traverses each character of the line and searches for a ';' and, if found, stores the "last" value in an item in the dados array.

After this looping, all (78) columns are available in the array and are printed separately on the standard (console) output.

PROGRAM vazoes

    IMPLICIT NONE

    INTEGER :: i

    ! A variavel status verifica se houve 
    ! algum erro ao abrir o arquivo
    INTEGER :: status = 0

    ! Contador de posições de campos e número de campos
    INTEGER :: posicao_campo = 0, campos = 0

    ! Aloca espaco para leitura de uma linha de texto
    CHARACTER*2048 :: linha_texto

    ! Aloca espaço para um registro do banco de dados (78 campos)
    CHARACTER*32, DIMENSION(78) :: dados

    ! Abre o arquivo
    OPEN(UNIT=15, IOSTAT=status, FILE='vazoes.txt', STATUS='OLD')

    ! Verifica se houve erro ao abrir o arquivo
    IF (status .GT. 0) THEN
        WRITE(*,*) "Erro ao abrir o arquivo!"
        ! Finaliza a execução se houve erro
        STOP
    ENDIF

    ! Looping de leitura do arquivo
    DO
        ! Lê uma linha completa (um registro)
        READ(15, '(A)', IOSTAT=status) linha_texto

        ! Verifica se chegou no final do arquivo...
        IF (status .LT. 0) THEN
            ! ...e sai do looping se finalizou
            EXIT
        ENDIF

        ! Separa os campos utilizando o ';' como delimitador
        posicao_campo = 1
        campos = 1

        DO i=1,LEN(linha_texto)
            ! se encontrar o ';'...
            IF (linha_texto(i:i) == ';') THEN                
                ! ...adiciona o campo no array 'dados'
                dados(campos) = linha_texto(posicao_campo:i-1)
                campos = campos + 1
                ! marca a posição do último ';' encontrado
                posicao_campo = i+1
            ENDIF            
        ENDDO

        ! Imprime cada campo em formato texto na saída padrão
        WRITE(*,*) 'Inicio'
        DO i=1,campos-1            
            WRITE(*,*) dados(i)
        ENDDO
        WRITE(*,*) 'Fim.'

    END DO

    ! Fecha o arquivo    
    CLOSE(UNIT=15, IOSTAT=status)    
    ! Verifica se houve erro ao fechar o arquivo    
    IF (status .GT. 0) THEN
        WRITE(*,*) "Erro ao fechar o arquivo!"
        ! Finaliza a execução se houve erro
        STOP
    ENDIF

END PROGRAM vazoes

The organization of the records read in the variable dados and the conversion of the data to the correct types (date, integer, etc.) needs to be implemented and depends on the processing objective that you intend to implement in the program.

If the format of the data file changes, you must either change the program or implement a dynamic allocation strategy (eg ALLOCATE ) of the arrays, which adapts to variable formats during runtime ( 'runtime' ).