Instrucción Write#

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

Use Print# statement to print data to a sequential text file. Use Put# statement to write data to a binary or a random file.

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

fileNum: Any numeric expression that contains the file number that was set by the Open statement for the respective file.

expression list: Variables or expressions that you want to enter in a file, separated by commas.

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.

  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