Rozkaz Write #

Instrukcja Write # zapisuje dane do pliku sekwencyjnego.

Składnia rozkazu Write #:

Write [#]NrPliku [, ListaWart]

Argument NrPliku jest wymaganym poprawnym numerem pliku.
Argument ListaWart jest opcjonalną listą oddzielonych przecinkami wyrażeń numercznych lub łańcuchowych, które mają zostać zapisane do pliku.

Dane zapisywane do pliku rozkazem Write # są zwykle odczytywane rozkazem Input #.

Jeżeli zostanie ominięty argument ListaWart i pozostanie przecinek oddzielający NrPliku od ListaWart, zostanie wpisana pusta linia do pliku. Wyrażenie zawarte w ListaWart mogą być oddzielone spacją, średnikiem lub przecinkiem. Spacja ma takie samo znaczenie jak średnik.

Podczas zapisywania danych do pliku rozkazem Write # używanych jest szereg uniwersalnych oznaczeń, aby dane mogły być poprawnie odczytane i zinterpretowane rozkazem Input #, niezależnie od ustawień narodowych:

Dane numeryczne są zawsze zapisywane z użyciem kropki jako separatora dziesiętnego
Dane typu Boolean, są zapisywane jako #TRUE# lub #FALSE#. Słowa True i False nie są tłumaczone, niezależnie od ustawień narodowych
Dane typu Data są zapisywane do pliku z użyciem uniwersalnego formatu daty. Jeżeli składnik data lub czas zostaną ominięte lub mają wartość zero, tylko podana część jest zapisywana do pliku
Nothnig jest zapisywane do pliku jeżeli ListaWart jest pusta (Empty). Wartość Null jest zapisywana jako #NULL#
Jeżeli ListaWart jest daną Null, do pliku zostanie zapisane #NULL#
Dla danych Error zostanie zapisane #ERROR NrBłędu#. Słowo Error nie jest tłumaczone, niezależnie od strefy narodowej

W przeciwieństwie do rozkazu Print #, rozkaz Write # wstawia przecinki między elementy i cudzysłowie wokół łańcuchów podczas zapisywania do pliku. Nie trzeba wstawiać znaków rozdzielających w liście. Write # wstawie znak nowej linii, tj. znak podziału linii i powrotu karetki (Chr(13)+Chr(10)), po zapisaniu ostatniego znaku z ListaWart do pliku.

Przykład użycia rozkazu Write #:

Dim blnBoolean As Boolean, varData As Variant
Dim varNull As Variant, varError As Variant
blnBoolean=False
varData="1969, Luty 20"
varNull=Null
varError=CVErr(32767)
Open "FILE" For Output As #1  'otwarcie pliku
Write #1,"Czesc",1234  'zapisanie danych oddzielonych przecinkami
Write #1,  'zapisanie pustej linii
Write #1,blnBoolean  'zapisanie #FALSE#
Write #1,varData  'zapisanie daty, np. 1969-2-30
Write #1,varNull  'zapisanie #NULL#
Write #1,varError  'zapisanie #ERROR 32767#
Close #1  'zamknięcie pliku

(Zmienne, typy zmiennych, rozkazy Open i Close i funkcja CVErr zostały opisane w innych częściach kursu.)

na górę strony...