Instrução Write

Conteúdo

# Instrução Write#

Grava dados num ficheiro de texto sequencial com caracteres delimitadores.

Utilize a instrução Print# para imprimir dados num ficheiro de texto sequencial. Utilize a instrução Put# para gravar dados num ficheiro binário ou aleatório.

### Sintaxe:

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

### Parâmetros:

fileNum: Qualquer expressão numérica que contenha o número do ficheiro definido pela instrução Open para o respetivo ficheiro.

Lista de expressões: Variáveis ou expressões que pretende introduzir num ficheiro, separadas por vírgulas.

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

Para adicionar uma lista de expressões a um ficheiro novo ou já existente, o ficheiro terá de ser aberto no modo Saída ou Anexar.

As cadeias inseridas estão entre aspas e separadas por vírgulas. Não necessita introduzir estes delimitadores na lista de expressões.

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

Os números com delimitadores decimais são convertidos de acordo com a configuração regional.

### 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

Declaração de abertura

Declaração Print#

Declaração Put#

Declaração de encerramento

Necessitamos da sua ajuda!