Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Manipulando dados em arquivos ASCII - Parte III

Aula 31

Nesta aula iremos programar o botão GRAVAR ARQUIVO, constante do projeto que começamos à algumas aulas. Para isso, proceda da seguinte forma:

1. Abra o projeto GRAVA ARQUIVO;
2. Dê um clique duplo no botão GRAVA ARQUIVO e entre com a seguinte codificação para o mesmo:

Private Sub Command2_Click()
CommonDialog1.Filter = "Arquivos Text (*.TXT)|*.txt"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End If

O primeiro passo foi estipular o tipo de arquivo a ser aberto na caixa de diálogo padrão do windows (Salvar arquivo), que seria do tipo TXT: CommonDialog1.Filter = "Arquivos Text (*.TXT)|*.txt"

Em seguida solicitamos a exibição da janela padrão "Salvar Arquivo" do windows: CommonDialog1.ShowSave

Em seguida testamos se o usuário entrou com um nome de arquivo, ou seja, se não deixou o campo nome do arquivo em branco, condição não permitida pelo Windows: If CommonDialog1.FileName <> "" Then

Caso o usuário tenha digitado um nome de arquivo, o primeiro passo foi abrir o caminho #1 para a gravação do arquivo.

Logo após salvamos o conteúdo do Text1 (Text1.Text) no caminho #1 aberto na linha anterior: Print #1, Text1.Text

E para finalizar fechamos o arquivo que estávamos manipulando: Close #1.

Vamos agora programar o botão LIMPAR ÁREA, para isso, dê um clique duplo no botão em questão e entre com o seguinte código:

Private Sub Command3_Click()
Text1.Text = ""
End Sub

Aqui o procedimento utilizado foi muito simples, ou seja, apenas comparamos o conteúdo "" (vazio) para o Text1.

Para o botão finalizar, basta incluir o comando END e seu editor de textos está pronto.

Voltar