Instrucción Write

Contenido

# Instrucción Write#

Escribe datos en un archivo de texto secuencial con caracteres delimitadores.

Utilice la instrucción Print# para imprimir datos en un archivo de texto secuencial. Utilice la instrucción Put# para escribir datos en un archivo binario o aleatorio.

### Sintaxis:

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

### Parámetros:

fileNum: cualquier expresión numérica que contenga el número de archivo establecido por la instrucción Open para el archivo respectivo.

Lista de expresiones: Variables o expresiones que desea ingresar en un archivo, separadas por comas.

Si se omite la lista de expresiones, la instrucción Write añade un renglón vacío al archivo.

Para añadir una lista de expresiones a un archivo nuevo o existente, este debe estar abierto en modo Output o Append.

Las cadenas escritas se entrecomillan y se separan con comas. No necesita poner estos delimitadores en la lista de expresiones.

Cada instrucción Write genera un símbolo de fin de renglón como última entrada.

Los números con delimitadores decimales se convierten de acuerdo a la configuración regional.

### Ejemplo:

      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

Temas relacionados

Instrucción Open

Instrucción Print#

Instrucción Put#

Instrucción Close

¡Necesitamos su ayuda!