https://adonaimedrado.pro.br/wiki/index.php?action=history&feed=atom&title=F90%3A_Gravando%2Flendo_dados_em%2Fde_um_arquivos
F90: Gravando/lendo dados em/de um arquivos - Revision history
2026-05-27T16:33:02Z
Revision history for this page on the wiki
MediaWiki 1.26.2
https://adonaimedrado.pro.br/wiki/index.php?title=F90:_Gravando/lendo_dados_em/de_um_arquivos&diff=750&oldid=prev
Adonaimedrado at 01:38, 11 November 2008
2008-11-11T01:38:09Z
<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;' lang='en'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 01:38, 11 November 2008</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l3" >Line 3:</td>
<td colspan="2" class="diff-lineno">Line 3:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>!UNIT = número único que irá representar o arquivo (deve ser único).</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>!UNIT = número único que irá representar o arquivo (deve ser único).</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>!FILE = nome do arquivo.</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>!FILE = nome do arquivo.</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>!ACCESS = modo <del class="diffchange diffchange-inline">e </del>acesso (append, direct ou sequential)</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>!ACCESS = modo <ins class="diffchange diffchange-inline">de </ins>acesso (append, direct ou sequential)</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>!STATUS = tipo do arquivo (new, old ou scratch).</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>!STATUS = tipo do arquivo (new, old ou scratch).</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>PROGRAM aula</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>PROGRAM aula</div></td></tr>
</table>
Adonaimedrado
https://adonaimedrado.pro.br/wiki/index.php?title=F90:_Gravando/lendo_dados_em/de_um_arquivos&diff=749&oldid=prev
Adonaimedrado: New page: <code lang="fortran"> !Possibilidades do comando OPEN: !UNIT = número único que irá representar o arquivo (deve ser único). !FILE = nome do arquivo. !ACCESS = modo e acesso (append, di...
2008-11-11T01:32:50Z
<p>New page: <code lang="fortran"> !Possibilidades do comando OPEN: !UNIT = número único que irá representar o arquivo (deve ser único). !FILE = nome do arquivo. !ACCESS = modo e acesso (append, di...</p>
<p><b>New page</b></p><div><code lang="fortran"><br />
!Possibilidades do comando OPEN:<br />
!UNIT = número único que irá representar o arquivo (deve ser único).<br />
!FILE = nome do arquivo.<br />
!ACCESS = modo e acesso (append, direct ou sequential)<br />
!STATUS = tipo do arquivo (new, old ou scratch).<br />
PROGRAM aula<br />
CHARACTER(LEN=*), PARAMETER :: NOME_DO_ARQUIVO = "agenda.txt"<br />
CALL ExibirMenuPrincipal()<br />
CONTAINS<br />
SUBROUTINE ExibirMenu(Opcoes,Selecao)<br />
IMPLICIT NONE<br />
CHARACTER(LEN=20), DIMENSION(:), INTENT(in) :: opcoes<br />
INTEGER :: i, e<br />
INTEGER, INTENT(out) :: selecao<br />
DO i=1,Size(opcoes)<br />
WRITE (*,*) Opcoes(i)<br />
END DO<br />
DO<br />
READ(*,*,IOstat=e) Selecao<br />
IF (e>0 .OR. Selecao<0 .OR. Selecao>Size(Opcoes)) THEN<br />
WRITE (*,*) "Opção inválida."<br />
ELSE<br />
EXIt<br />
END IF<br />
END DO<br />
END SUBROUTINE <br />
SUBROUTINE ExibirMenuPrincipal()<br />
IMPLICIT NONE<br />
CHARACTER(LEN=20), DIMENSION(1:4) :: o<br />
INTEGER :: s<br />
o(1) = "1- Incluir entrada"<br />
o(2) = "2- Listar entradas"<br />
o(3) = "3- Pesquisar entrada"<br />
o(4) = "4- Sair"<br />
DO<br />
CALL ExibirMenu(o,s)<br />
SELECT CASE (s)<br />
CASE (1)<br />
CALL IncluirEntrada()<br />
CASE (2) <br />
CALL ListarEntradas()<br />
CASE (3) <br />
CALL PesquisarEntrada()<br />
CASE (4)<br />
STOP "Programa encerrado"<br />
END SELECT<br />
END DO<br />
END SUBROUTINE ExibirMenuPrincipal<br />
SUBROUTINE IncluirEntrada()<br />
IMPLICIT NONE<br />
CHARACTER(LEN=20) :: nome<br />
CHARACTER(LEN=10) :: telefone<br />
WRITE (*,*) "Nome:"<br />
READ (*,*) nome<br />
WRITE (*,*) "Telefone:"<br />
READ (*,*) telefone <br />
OPEN(unit = 10, access="append", file=NOME_DO_ARQUIVO)<br />
WRITE (10,"(A20,A10)") nome, telefone<br />
CLOSE(10)<br />
END SUBROUTINE IncluirEntrada<br />
SUBROUTINE ListarEntradas()<br />
IMPLICIT NONE<br />
CHARACTER(LEN=20) :: nome<br />
CHARACTER(LEN=10) :: telefone<br />
INTEGER :: s, i<br />
i = 0<br />
OPEN(UNIT = 10, access="SEQUENTIAL", FILE=NOME_DO_ARQUIVO)<br />
DO<br />
i = i + 1 <br />
READ (10,"(A20,A10)",IOstat=s) nome, telefone<br />
IF (s/=0) EXIT<br />
WRITE (*,"(I3.3,A20,A10)") i, nome, telefone <br />
END DO<br />
IF (i==0) WRITE (*,*) "=> Nenhum elemento encontrado."<br />
CLOSE(10)<br />
END SUBROUTINE<br />
SUBROUTINE PesquisarEntrada()<br />
IMPLICIT NONE<br />
CHARACTER(LEN=20) :: nome<br />
CHARACTER(LEN=10) :: telefone<br />
CHARACTER(LEN=20) :: nome_procurado<br />
INTEGER :: i,s<br />
WRITE (*,*) "Qual o nome que deseja pesquisar?"<br />
READ (*,*) nome_procurado<br />
i = 0<br />
OPEN(UNIT = 10, FILE=NOME_DO_ARQUIVO)<br />
DO<br />
i = i + 1 <br />
READ (10,"(A20,A10)",IOstat=s) nome, telefone<br />
IF (s/=0) EXIT<br />
IF (nome(1:LEN(TRIM(nome_procurado))) == TRIM(nome_procurado)) THEN<br />
WRITE (*,"(I3.3,A20,A10)") i, nome, telefone<br />
END IF<br />
END DO<br />
IF (i==1) WRITE (*,*) "=> Nenhum elemento encontrado."<br />
CLOSE(10)<br />
END SUBROUTINE PesquisarEntrada<br />
END PROGRAM aula<br />
</code></div>
Adonaimedrado