O modulo [ARQUIVO] oferece suporte para escrita e leitura em arquivos de maneira sequencial, Além de conter métodos e propriedades que auxiliam no tratamento dos dados (ex: tamanho e extensão).

Modo de Uso:

Primeiramente deve se declara um objeto do tipo $Arquivo.

$Arquivo myArq;

Apos deve setar o arquivo que será utilizado, através do método $ARQ>>:

myArq.$Arq(“C:\config.txt”);

Para todo e qualquer execução de métodos do modulo, o arquivo deve ser aberto, ou seja, liberando-o  tanto para escrita e leitura. Utilizando do método $ABRIR>>, porem esse método considera que o arquivo já exista, por isso deve se verificar de antemão que o arquivo em questão já foi criado.

$Se($ExisteArq(“C:\config.txt”) == #F)  // se o arquivo não existir cria o mesmo.

{

$CriarArq(“C:\config.txt”);

}

myArq.$Abrir(); //libera o arquivo

myArq.$Escreva(“minha informação”);

myArq.$Escreval(“outra informação”);

myArq.$Fechar();

O método $FECHAR>> tem a função contraria do método $ABRIR>>, ele tranca o arquivo e salva as modificações feitas, assim é obrigatório para todo termino de execução.

Metodo: LEIA

O método $LEIA>> ler em continuidade cada linha do arquivo para cada utilização deste, retornando um valor do tipo $TEXTO>> referente a linha em questão. Assim para ler todos as linhas de um arquivo utiliza

$Para(i=0; i

{

temp = configArq.$Leia();

$Escreval(“Linha “, i, “:”, temp); /

}

O exemplo acima, percorre todas as linhas do arquivo, para cada interação salva essa informação na variável [temp], e exibe o valor da mesma na tela.

Obs.: o atributo [.Quant], refere-se a quantidade de linhas no arquivo.

Outros atributos:

Segue abaixo outros atributos e métodos do modulo $Arquivo:

$Pos( X ) // retorna a posição referente a linha do texto X no arquivo, por defeito retorna -1.

arq.$Pos(“07-08-2002”); //retorna a linha onde se encontra o texto, se não achar retorna -1

$Cursor( N ) //altera a posição do cursor de leitura do arquivo para N

arq.$Cursor(4); //a função $Leia() irá começar a ler a partir da linha 4 inclusive

$CursorPos() // retorna a posição atual do cursor de leitura do arquivo

arq.$CursorPos();

$LeiaL( L ) //ler uma linha especifica determinada em L

arq.$LeiaL(2); //ira ler a terceira linha do arquivo

.Tam  //retorna o tamanho em bytes do arquivo

arq.Tam;

.Ext  //retorna a extensão do arquivo, por defeito retorna “”

arq.Ext;

.Nome //retorna o nome do arquivo.

arq.Nome;

.NomeC //retorna o nome do arquivo juntamente com o diretório.

arq.NomeC;

.NomeDir // retorna o diretório onde se encontra o arquivo.

 Funções independentes: Arquivo e diretório:

$CriarArq( X ) – cria o arquivo X, se o mesmo já existir o sobrepõem.

$CriarArq(“C:\Users\User1\Documents\log.txt”);

$CriarDir( X ) – cria o diretório X

$CriarDir(“C:\Users\User1\Documents\projectCalc”);

$DeletarArq( X ) – deleta o arquivo X

$DeletarArq(“C:\Users\User1\Documents\log.txt”);

$DeletarDir( X ) – deleta o diretório X

$DeletarDir(“C:\Users\User1\Documents\projectCalc”);

$MoverArq( A, B)- move o arquivo A para o diretório em B

$MoverArq(“C:\Users\User1\Documents\resenha.txt”, “C:\”);

$MoverDir(A, B) – move o direito A para o diretório em B

$MoverDir(“C:\Users\User1\Dowloads\Downs3″,”C:\Users\User1\Documents”);

$CopiarArq(A, B, C?) – copia o arquivo A para o diretório em B. C é um valor logico e opcional, para a substituição ou não se o arquivo já existir em B.

$CopiarArq(“C:\teste.txt”, C:\Users\User1\Documents”); // copia se não existir.

$CopiarArq(“C:\teste.txt”, C:\Users\User1\Documents”, #V); //cópia e substitui caso existir.

$ExisteArq( X )  – retorna #V se o arquivo X existir.

$ExisteArq(“C:\teste.txt”);

$ExisteDir( X ) – retorna #V se o diretorio X existir.

$ExisteDir(“C:\Users\User1\Documents\Downs3”);

$LerArq( X ) – retorna uma lista do tipo $texto referente as linhas do arquivo.

$LerArq(“C:\Users\User1\Documents\notas.txt”);

Exemplo:

$Arquivo config;
$Texto arq = “C:\users\publico\projeto\config.txt”;
//se o arquivo não existir o cria e atribui as informações
$Se($ExisteArq(arq) == #F)
{
 $CriarArq(arq);
config.$Arq(arq);
config.$Abrir();
config.$Escreval(“cor 9”);
config.$Escreval(“texto Aló Mundo”)
config.$Fechar();
}
//abre e ler o arquivo;
config.$Arq(arq);
config.$Abrir();
$Texto cor=config.$Leia(); //ler a linha 0 [cor 9]
$Texto txt=config.$Leia(); //ler a linha 1 [texto Aló Mundo]
config.$Fechar();
//pega a informação a frente do primeiro espaço encontrado [9]
//converte em um inteiro;
$CorTexto($Inteiro( cor.$Copiar( cor.$Pos(” “)+1) ) );
$Escreval( txt.$Copiar( txt.$Pos(” “)+1) );
$Pausar();

Saída: