COMO CRIAR ARQUIVO

USUARIO.EXCLUIDOS 14/04/2004 15:26:01
#20539 Resposta escolhida

Palmeida,

Faça:

Open app.path & "    este.txt" for output as #1

Isso abrirá o arquivo "teste.txt" na pasta onde se encontra o seu programa. O "Output" significa que todo o conteúdo dentro do arquivo será substituído (se você substituir por "Append", ao invés de substituir, os novos dados a serão incluídos no fim do texto que já existe). O #1 indica um "canal" disponível para se manipular o arquivo. Você pode substituir esse nº (à s vezes, se você estiver manipulando mais do que um arquivo, tentar abrir com um "canal" já em uso vai dar pau) pela função "FreeFile":

dim meufile as integer
meufile = frefile
Open app.path & "    este.txt" for output as meufile

Detalhe: abrir um arquivo "for output" ou "for append" cria o arquivo, caso ele não exista. Daí por diante você deve incluir os dados:

Print #1, Text1.Text
Inclui uma nova linha no arquivo, com a string contida na caixa de texto Text1

Close #1
Fecha o arquivo (feche-o sempre pra não dar pau)


Agora, pra recuperar esses dados, use:

Open app.path & "    este.txt" for input as #1
Do While Not EOF(1)
Line Input #1, coringa
Loop
Close #1

Abre o arquivo "teste.txt" no "canal" nº1, e considera que cada linha impressa nesse arquivo corresponde a um registro do seu "banco de dados". Manda ir até o EOF (End of File) e para cada linha chama o seu conteúdo de "coringa" (manipule essa string do jeito que quiser). Não precisa colocar incremento: a cada "Line Input", o loop anda uma linha.

Detalhe: você pode chamar seu "teste.txt" de "teste.ini", "teste.max" (meu preferido) ou qualquer outra coisa.

Isso é só o beabá.