6 Visual Basic ( VB6 ) inclui dois métodos para gravar um arquivo . A declaração "Write #" insere vírgulas entre cada item de dados e aspas cordas como eles são gravados no arquivo . Isso evita que o programador ter que criar delimitadores na lista de objetos para uso posterior durante uma operação de entrada . O " Print # ", escreve uma imagem dos dados em um arquivo . Neste caso, você tem que adicionar delimitadores com os dados para que ele imprime corretamente. Instruções
1

Use VB6 para criar um novo projeto selecionando " Standard EXE " a partir da lista de modelos quando VB6 abre . Para demonstrar o processo de gravação de arquivos, criar um formulário para coletar informações de discussão , que depois vai escrever um arquivo de catálogo de endereços. Use a " caixa de ferramentas " na coluna da esquerda para adicionar etiquetas , caixas de texto e controles CommandButton para a exibição formulário para coletar informações necessárias e gravar o arquivo .
2

Adicione cinco rótulos para o formulário clicando duas vezes sobre o capital "A" na caixa de ferramentas cinco vezes. Cada etiqueta cobre o precedente então clique e arraste-os um de cada vez , colocando a parte superior da etiqueta na parte inferior esquerda do formulário e cada etiqueta sucesso acima do precedente. Repita este processo para adicionar cinco caixas de texto da caixa de ferramentas clicando duas vezes em cinco vezes no ícone do pequeno quadrado contendo as minúsculas letras "AB ". No formulário , clique e arraste -os um de cada vez para a direita das etiquetas , alinhando cada um com seu rótulo correspondente. Nota: Você provavelmente precisará ampliar a forma ligeiramente usando as alças de arrasto, pequenos quadrados nos cantos e no meio da parte superior e inferior do formulário
3

Adicione três CommandButtons para o formulário . duplo clique no pequeno retângulo na caixa de ferramentas encontradas diretamente abaixo do ícone da etiqueta três vezes. Arraste o primeiro acima da primeira etiqueta e caixa de texto. Arraste as outras duas na horizontal abaixo dos rótulos e caixas de texto . Clique em cada controle para exibir suas propriedades à direita, e alterar as propriedades "caption " começando com Label1 como abaixo, mas não inserir as aspas : caption

Mudança Label1 para "Nome"

legenda Mudança Rótulo2 para " Street"

Mudança Label3 legenda a rubrica de " City"

Mudança Label4 ao " Estado "

legenda Mudança Label5 para " ZIP" < br >

Excluir o "texto " propriedades de todas as cinco caixas de texto , da mesma forma .
4

Mude o " Caption " default dos três CommandBoxes "Criar Arquivo", " Salvar Record" e "Exit ". Clique em "Exibir ", "Código" no menu de VB6 superior para abrir a janela de código . Digite as seguintes linhas exatamente como aparecem :

público WriteFile As String

Private Sub Command1_Click ()

WriteFile = InputBox ("Digite um nome de arquivo para escrever no formato de unidade : \\ pasta \\ FileName.txt " )

Abrir WriteFile For Output As # 1

Close # 1

End Sub
5

Adicionar o seguinte código abaixo do código na Etapa 4:

Private Sub Command2_Click ()

Abrir WriteFile Para Append as # 2

Escrever # 2, Text1.Text ; texto2 . Texto ; Text3.Text ; Text4.Text ; Text5.Text

close # 2

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.SetFocus

End Sub

6

Pressione " F5" para executar o programa . Clique no botão "Criar Arquivo" e digite o local e nome do arquivo. Preencha o formulário e clique em " Salvar registro. " Repita para adicionar mais alguns registros. Saia do programa e localize o arquivo no seu PC , onde ele foi criado. Abra-o com o Notepad do Windows para ver os resultados . Altere o comando "Write" no código de "Imprimir" e execute o programa novamente. Re- abrir com o WordPad para ver a diferença entre os dois métodos de gravação de arquivos .