Gambas Documentation

Warning! This page is not up to date. See english version

WRITE

WRITE [ # Potok , ] Izraz [ , Dolzina ]
WRITE [ # Pokazuvac , ] Izraz [ , Dolzina ]

Ја запишува бинарната репрезентација на Izraz-от со потокот Potok.

Ако не е наведен поток, се користи стандардниот излез.

Ако Izraz-от е стринг, можете да наведете Dolzina-та што го покажува бројот на бајтови што ќе се запишат. Ако не е наведена должината на стрингот, таа се запишува директно во потокот пред податоците од стрингот...

Оваа инструкција при читањето на податоците го користи поредокот на бајтовите („крајништвото“) на потокот.

Ако наместо поток наведете _Pokazuvac_, податоците ќе се запишат директно на мемориската адреса специфицирана со покажувачот.

Ако се обидете да запишете на забранета мемориска адреса, ќе добиете порака за грешка. Интерпретерот нема да откаже.

Овој пример покажува како се пишува во бинарна датотека. Тој потоа ја чита создадената датотека со што ја гледаме содржината на датотеката.

Example

PUBLIC SUB KopcePisiBinarno_Click()
  DIM datotecnaPateka AS String
  ' Koristi privremena datoteka
  datotecnaPateka = Temp()
  ' Pisi binarna datoteka
  PisiBinarno(fdatotecnaPateka)
  ' Pokazi ja binarnata datoteka
  CitajBinarno(datotecnaPateka)
  ' Otstrani ja privremenata datoteka
  KILL datotecnaPateka
CATCH
  Message.Error(Error.Text)
END

PRIVATE SUB PisiBinarno(Pateka AS String)
  DIM binarnaDatoteka AS File
  DIM i AS Integer = 10
  DIM b AS Byte = 4
  DIM s AS Short = 23
  DIM s1 AS String = "Ova e stringot 1"
  DIM s2 AS String = "Drug string"
  ' Otvora so create za da dobieme nova datoteka
  binarnaDatoteka = OPEN Pateka FOR CREATE
  WRITE #binarnaDatoteka, i
  WRITE #binarnaDatoteka, b
  WRITE #binarnaDatoteka, s
  WRITE #binarnaDatoteka, s1
  WRITE #binarnaDatoteka, s2
  CLOSE #binarnaDatoteka
END

PRIVATE SUB CitajBinarno(Pateka AS String)
  DIM binaryFile AS File
  DIM i AS Integer
  DIM b AS Byte
  DIM s AS Short
  DIM s1 AS String
  DIM s2 AS String
  ' Procitaj binarna datoteka
  binarnaDatoteka = OPEN Pateka FOR READ
  READ #binarnaDatoteka, i
  READ #binarnaDatoteka, b
  READ #binarnaDatoteka, s
  READ #binarnaDatoteka, s1
  READ #binarnaDatoteka, s2
  CLOSE #binarnaDatoteka
  ' Pokazi rezultati
  PRINT i
  PRINT b
  PRINT s
  PRINT s1
  PRINT s2
END

Example

See also