Πρόταση Write#

Γράφει δεδομένα σε σειριακό αρχείο κειμένου με χαρακτήρες οριοθέτησης.

Χρησιμοποιήστε την πρόταση Print# για να εκτυπώσετε δεδομένα σε ένα διαδοχικό αρχείο κειμένου. Χρησιμοποιήστε την πρόταση Put# για να γράψετε δεδομένα σε ένα δυαδικό ή τυχαίο αρχείο.

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

fileNum: Οποιαδήποτε αριθμητική έκφραση που περιέχει τον αριθμό αρχείου που ορίστηκε σπό την πρόταση Open για το αντίστοιχο αρχείο.

Κατάλογος expression (εκφράσεων): Μεταβλητές ή εκφράσεις που θέλετε να εισάγετε σε αρχείο, χωρισμένες με κόμματα.

Εάν η λίστα εκφράσεων παραλείπεται, η δήλωση Write επισυνάπτει μια κενή γραμμή στο αρχείο.

Για την προσθήκη μιας λίστας εκφράσεων σε νέο ή υπάρχον αρχείο, το αρχείο θα πρέπει να ανοιχθεί στην κατάσταση Output ή Append.

Αλφαριθμητικά τα οποία γράφετε εσωκλείονται από εισαγωγικά και χωρίζονται από κόμματα. Δεν χρειάζεται να εισαγάγετε αυτούς τους οριοθέτες στην λίστα εκφράσεων.

Κάθε μία δήλωση Write εξάγει ένα σύμβολο αλλαγής γραμμής στη τελευταία εισαγωγή.

Οι αριθμοί με δεκαδικούς οριοθέτες μετατρέπονται σύμφωνα με τις τοπικές ρυθμίσεις.

  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