Clube VB - Manipulando dados em arquivos ASCII - Parte II

Aula 30

Para melhor compreender os arquivos texto (ASC II), iremos neste módulo começar a elaboração de um sistema editor de texto, onde iremos desenvolver diversas técnicas, como ler e gravar dados, imprimir os dados digitados, etc... além de estudarmos novos controles.

• Inicie o VB6 e solicite a criação de um novo aplicativo;

• Inclua no seu formulário (na parte esquerda e um abaixo do outro), quatro componentes CommandButtom;

• Na parte central do formulário inclua um componente TextBox, redimensionando o mesmo conforme podemos observar na figura abaixo:

• No módulo anterior, especificamos diretamente no código o nome do arquivo a ser gravado. Neste exemplo, iremos utilizar a caixa padrão do Windows para salvar ou ler arquivos, assim sendo, deveremos incluir em nossa interface o componente Common Dialog, para isso, siga os passos abaixo:

  • Clique na opção de menu PROJECT;

  • No menu suspenso que é apresentado, selecione a opção COMPONENTS, será então apresentada a seguinte janela:

  

  • Marque a opção MICROSOFT COMMON DIALOG CONTROL 6 e em seguida, clique em OK. Este controle será acrescentado a sua barra de ferramentas, conforme podemos observar a seguir:

• Inclua o componente CommonDailog em sua aplicação (no Form). Este é um componente não visível, ou seja, durante a execução do projeto, o mesmo não estará visível.

• Para que o TextBox aceite múltiplas linhas (fato comum em um texto), altere a propriedade Multiline do mesmo para True, apague o conteúdo da propriedade Text e em seguida, altere a propriedade ScrollBars para 3-Both;

• Altere o Caption dos 4 primeiros Buttons para "LER ARQUIVO", "GRAVAR ARQUIVO", "LIMPAR ÁREA", "FINALIZAR";

• Para o botão LER ARQUIVO, entre com a seguinte codificação:

Private Sub Command1_Click()
CommonDialog1.Filter = "Arquivos Texto (*.TXT)|*.TXT"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Input Access Read As #1
Do While Not EOF(1)
texto = texto & Input(1, #1)
Loop
Text1.Text = texto
Close #1
End If
End Sub

• Observações relativas aos códigos utilizados acima:

1. Primeiro criamos um filtro para o tipo de arquivo na qual iremos trabalhar, neste caso tipo Texto (TXT), além de exibir a mensagem "Arquivos Texto (*.TXT)", na barra de título da janela padrão do windows de abertura de arquivos;

2. Em seguida, abrimos o componente Commondialog1, através do método Show (invocando a janela padrão de abertura de arquivos do Windows), em seu método de abertura de arquivos (Open);

3. No teste realizado pelo comando IF, testamos se o usuário digitou alguma coisa diferente de nada, ou seja, se o mesmo entrou com um nome de arquivo, este deverá ser lido, o que acontecerá durante os comandos positivos do IF;

4. O primeiro passo foi abrir o arquivo selecionado no CommonDialog para leitura, sendo que este será tratado como arquivo número 01 READ AS #1;

5. Após a abertura, o sistema irá percorrer do primeiro ao último caracter DO WHILE NOT EOF(1);

6. Cada caracter do arquivo, será lido (um por vez) e concatenado (somado) à variável TEXTO texto=texto&input(1,#1);

7. Após termino o loop (todos os caracteres que fazem parte do arquivo serem lidos), iremos transferir o conteúdo da variável TEXTO para o TEXTBOX1 textbox1.text=texto;

8. Em seguida fechamos o arquivo.

• Execute a aplicação, clique no botão LER ARQUIVO e selecione o arquivo APCASA que geremos no módulo de aula anterior. Observe o resultado final:

No gráfico acima representamos o ato do clique no botão em questão e, em seguida na janela de abertura de arquivos a seleção do APCASA. Clicando em Ok, você terá como resultado a janela seguinte:

Salve o projeto em questão. Na próxima aula iremos programar o botão GRAVAR ARQUIVO.

Voltar

Principal | Cursos Gratuitos | Cursos Diversos | Dicas | Promoções | Mapa do Site | QUIZ |
| Classificados | Central Currículo | Fórum | Fale Conosco