1

Tenho o seguinte código para ler arquivo txt:

; um programa que demonstra a criação de um arquivo e a
; leitura do mesmo

.model small
.stack
.code 

start:

mov ax,@data        ; endereço de base do segmento de dados
mov ds,ax       ; é colocado em ds

mov dx,OFFSET FileName  ; coloca o endereço do nome do arquivo em dx
mov al,2        ; modo de acesso - leitura e escrita
mov ah,3Dh      ; função 3Dh - abre um arquivo
int 21h         ; chama serviço do DOS

mov Handle,ax       ; guarda o manipulador do arquivo para mais tarde
jc ErrorOpening     ; desvia se carry flag estiver ligada - erro!

mov dx,offset Buffer    ; endereço do buffer em dx
mov bx,Handle       ; manipulador em bx
mov cx,100      ; quantidade de bytes a serem lidos
mov ah,3Fh      ; função 3Fh - leitura de arquivo
int 21h         ; chama serviço do DOS

jc ErrorReading     ; desvia se carry flag estiver ligada - erro!

mov bx,Handle       ; coloca manipulador do arquivo em bx
mov ah,3Eh      ; função 3Eh - fechar um arquivo
int 21h         ; chama serviço do DOS

mov cx,100      ; comprimento da string
mov si,OFFSET Buffer    ; DS:SI - endereço da string
xor bh,bh       ; página de vídeo - 0
mov ah,0Eh      ; função 0Eh - escrever caracter

NextChar:

lodsb           ; AL = próximo caracter da string
int 10h         ; chama serviço da BIOS
loop NextChar

mov ax,4C00h        ; termina programa
int 21h 

ErrorOpening:

mov dx,offset OpenError ; exibe um erro
mov ah,09h      ; usando a função 09h
int 21h         ; chama serviço do DOS
mov ax,4C01h        ; termina programa com um errorlevel =1 
int 21h 

ErrorReading:
mov dx,offset ReadError ; exibe um erro
mov ah,09h      ; usando a função 09h
int 21h         ; chama serviço do DOS
mov ax,4C02h        ; termina programa com um errorlevel =2
int 21h

.data
Handle DW ?             ; para guardar o manipulador do arquivo
FileName DB "C:\test.txt",0     ; arquivo a ser aberto
OpenError DB "Ocorreu um erro(abrindo)!$"
ReadError DB "Ocorreu um erro(lendo)!$"
Buffer DB 100 dup (?)   ; buffer para armazenar dados

END start

Teria como fazer para ler ate o final do arquivo sem ter que informar a quantidade de bytes a serem lidos?

1 Resposta 1

0

Para ler o arquivo sem especificar o tamanho, você precisa efetuar a leitura até detectar o final do arquivo.

Um exemplo de como alterar o programa para ler arquivos maiores sem especificar o tamanho:

Na rotina de leitura do arquivo, modificar para ler um bloco de tamanho fixo e alterar o endereço do buffer conforme os blocos de texto forem lidos. Para detectar o final do arquivo, compare a quantidade de bytes lidos com a quantidade solicitada e termine se for menor (INT 21,3F):

        ...
        mov dx,offset Buffer    ; endereço do buffer em dx

    LerBloco:                   ; início da leitura do bloco

        mov bx,Handle           ; manipulador em bx
        mov cx,512              ; quantidade de bytes a serem lidos
        mov ah,3Fh              ; função 3Fh - leitura de arquivo
        int 21h                 ; chama serviço do DOS

        jc ErrorReading         ; desvia se carry flag estiver ligada - erro!

        add [BytesLidos], cx    ; adiciona a quantidade de bytes lidos
        cmp ax, cx              ; compara quantos bytes foram lidos com a quantidade solicitada na função            
        jb  Continuar           ; sair da leitura, caso seja menor (final do arquivo encontrado!)

        add dx,512              ; avança o buffer de leitura
        cmp dx, FimBuffer       ; verifica se chegou no final do buffer
        jae Continuar           ; se dx for maior ou igual ao final, sair da leitura
        jmp LerBloco

    Continuar:

        mov bx,Handle           ; coloca manipulador do arquivo em bx
        mov ah,3Eh              ; função 3Eh - fechar um arquivo
        int 21h                 ; chama serviço do DOS

        mov cx,[BytesLidos]     ; comprimento da string (Ler o valor da variável BytesLidos)
        mov si,OFFSET Buffer    ; DS:SI - endereço da string
        xor bh,bh               ; página de vídeo - 0
        mov ah,0Eh              ; função 0Eh - escrever caracter
        ...

Na área de dados, definir as variáveis BytesLidos, FimBuffer e aumentar o tamanho do buffer:

    .data
    BytesLidos  DW 0                ; Bytes lidos do arquivo
    Buffer      DB 4096 dup (?)     ; buffer para armazenar dados
    FimBuffer   DW $-Buffer         ; Endereço do fim do buffer

Com essas alterações, o programa consegue ler um arquivo de até 4096 bytes (tamanho máximo do buffer) sem precisar especificar previamente o tamanho a ser lido.

Caso você precise ler arquivos maiores, é possível criar uma lógica parecida com essa para ler um bloco, imprimir e reiniciar o buffer, ler o próximo, imprimir e reiniciar o buffer, e assim por diante.

12
  • Valeu, ajudou bastante! Outra coisa, eu conseguiria através desse código ler linha por linha ao invés de ler por blocos? 1/06/2018 às 19:59
  • @SamuelHenrique Não. O DOS não possui função para leitura de linhas. Você precisaria implementar a lógica para procurar o caracter '\r' (LF) e descobrir onde fica o final de cada linha dentro do buffer.
    – Gomiero
    1/06/2018 às 20:03
  • Certo, eu tenho um trabalho para fazer que preciso manipular as linhas de um txt sendo que cada linha representa dados de um sensor. Seria melhor entao ler o arquivo dessa maneira e depois manipular pelo buffer? 1/06/2018 às 20:06
  • Se o arquivo for pequeno (até o tamanho do buffer), sim. Você pode ler o arquivo inteiro para o buffer e depois processar. Se ele for grande, é melhor processar em partes, como eu expliquei na resposta
    – Gomiero
    1/06/2018 às 20:20
  • Certo, obrigado pela ajuda! 1/06/2018 às 21:14

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .