BlitzMax/Lições/Arquivo

Arquivo em computação é um conjunto de dados armazenado em uma memória rígida não volátil, ou seja que não se perde caso o programa seja encerrado. O BlitzMax tem vários comandos de manipulação de arquivo.

Criando um arquivo

Você pode criar o seu próprio arquivo no BlitzMax através da função CreateFile, use como parâmetro a string com o nome e o local do arquivo que você deseja criar, caso você escreva apenas o nome do arquivo este será salvo na mesma pasta onde o seu projeto está.

novoArquivo=CreateFile("C:\Documents and Settings\Administrador\Desktop\Meu Arquivo.arq")

Abrindo um arquivo

Com o seu arquivo criado agora iremos abrir o seu arquivo salvo, para isso vamos utilizar a função OpenFile com atributo o local do arquivo, a função irá retornar a variável arquivo. Vamos também criar um procedimento para verificar se foi possível abrir o arquivo.

meuArquivo = OpenFile("C:\Documents and Settings\Administrador\Desktop\Meu Arquivo.arq")
If Not meuArquivo
    Print "Nao foi possivel abrir o arquivo"
EndIf

Colocando uma informação em um arquivo

Vimos como criar e abrir um arquivo, mas ele não contem nenhum bit de informação. Vamos escrever algo no arquivo através do comando WriteLine, colocando como parâmetro a variável do tipo arquivo e a informação a ser incluida.

meuArquivo = OpenFile("C:\Documents and Settings\Administrador\Desktop\Meu Arquivo.arq")
If Not meuArquivo
    Print "Nao foi possivel abrir o arquivo"
EndIf
WriteLine(meuArquivo, "ola mundo")

Com o bloco de notas você pode abrir o seu arquivo e ver a informação que você colocou nele.

Lendo uma informação de um arquivo

Agora que você escreveu algo em seu arquivo vamos agora ler e exibir o conteudo dele na tela, para isso vamos usar a função ReadLine com o nome do arquivo como parâmetro, essa função irá retornar o conteudo inserido no arquivo.

meuArquivo = OpenFile("C:\Documents and Settings\Administrador\Desktop\Meu Arquivo.arq")
If Not meuArquivo
    Print "Nao foi possivel abrir o arquivo"
EndIf
Print ReadLine(meuArquivo)

Você também pode ler informações de outros tipos de arquivo com esse comando.

Colocando várias informações em um arquivo

Vimos como colocar uma única informação no arquivo, agora vamos ver como colocar várias informações em um arquivo, um arquivo tem o tamanho ilimitado de bytes, ou melhor, tem o tamanho máximo que a memória rígida pode suportar.

meuArquivo = OpenFile("C:\Documents and Settings\Administrador\Desktop\Meu Arquivo.arq")
If Not meuArquivo
    Print "Nao foi possivel abrir o arquivo"
EndIf
WriteLine(meuArquivo, "Linha 1")
WriteLine(meuArquivo, "Linha 2")
WriteLine(meuArquivo, "Linha 3")

Lendo várias informações em um arquivo

As informações em um arquivo são organizadas em linha, ou seja, cada linha ocupará um bloco dememória na leitura, veremos como fazer essa leitura.

meuArquivo = OpenFile("C:\Documents and Settings\Administrador\Desktop\Meu Arquivo.arq")
If Not meuArquivo
    Print "Nao foi possivel abrir o arquivo"
EndIf
Print ReadLine(meuArquivo)
Print ReadLine(meuArquivo)
Print ReadLine(meuArquivo)

Você deve ter notado que usamos o mesmo comando para ler todas as linhas do arquivo, em compensação você vê que foram exibidas informações diferentes, isso porque a cada leitura de bloco o stream que controla a leitura do arquivo passa automaticamente para a linha abaixo.