IBM Lotus Symphony
|
Służy do zapisywania danych w pliku o dostępie sekwencyjnym.
Write [#NazwaPliku], [ListaWyrażeń]
NazwaPliku: Dowolne wyrażenie liczbowe zawierające numer pliku ustawiony przez instrukcję Open dla odpowiedniego pliku.
ListaWyrażeń: Zmienne lub wyrażenia, które mają zostać wprowadzone do pliku (rozdzielone przecinkami).
Jeśli lista wyrażeń zostanie pominięta, instrukcja Write dopisze do pliku pusty wiersz.
Aby dodać listę wyrażeń do nowego lub istniejącego pliku, należy otworzyć ten plik w trybie Output lub Append.
Zapisywane łańcuchy należy ująć w cudzysłów i rozdzielić przecinkami. Nie należy wprowadzać tych separatorów na liście wyrażeń.
Każda instrukcja Write umieszcza symbol końca wiersza jako ostatni wpis.
Liczby z separatorami dziesiętnymi są przekształcane zgodnie z ustawieniami narodowymi.
Sub PrzykladWrite
Dim iLicznik As Integer
Dim sWartosc As String
iLicznik = Freefile
open "C:\data.txt" for OutPut as iLicznik
sWartosc = "Hamburg"
Write #iLicznik,sWartosc,200
sWartosc = "Nowy Jork"
Write #iLicznik,sWartosc,300
sWartosc = "Miami"
Write #iLicznik,sWartosc,450
close #iLicznik
end sub