Instrução Write

Sumário
Índice 🔎︎

# Instrução Write#

Grava dados num arquivo de texto sequencial com caracteres delimitadores.

Utilize a instrução Print# para imprimir dados num arquivo sequencial de texto. Utilize a instrução Put# para gravar dados em arquivos binários ou arquivos aleatórios.

### Sintaxe:

    Write [#fileNum] {,|;} expression [, …]

### Parâmetros:

fileNum: qualquer expressão numérica que contenha o número do arquivo que foi definido pela instrução Open para o respectivo arquivo.

Lista expression: variáveis ou expressões para inserir num arquivo, separadas por vírgulas.

Se a lista de expressões for omitida, a instrução Write acrescenta uma linha vazia ao arquivo.

Para acrescentar uma lista de expressões a um arquivo novo ou existente, o arquivo deve ser aberto no modo Output ou Append.

As strings que você escreve são encerradas por aspas e separadas por vírgulas. Não é necessário inserir esses delimitadores na lista de expressões.

Cada instrução Write produz um símbolo de fim de linha como última entrada.

Números com delimitadores decimais são convertidos de acordo com as configurações da localidade.

### Exemplo:

      Sub ExampleWrite
          Dim iCount As Integer
          Dim sValue As String
          iCount = Freefile
          Open "C:\Users\ThisUser\data.txt" For Output As iCount
          sValue = "Hamburg"
          Write #iCount,sValue,200
          sValue = "New York"
          Write #iCount,sValue,300
          sValue = "Miami"
          Write #iCount,sValue,450
          Close #iCount
      End Sub

      Sub ExampleWrite
          Dim iCount As Integer
          Dim sValue As String
          iCount = Freefile
          Open "~/data.txt" For Output As iCount
          sValue = "Hamburg"
          Write #iCount,sValue,200
          sValue = "New York"
          Write #iCount,sValue,300
          sValue = "Miami"
          Write #iCount,sValue,450
          Close #iCount
      End Sub

Tópicos relacionados

Instrução Open

Instrução Print#

Instrução Put#

Instrução Close