Gambas Documentation

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

WRITE

WRITE [ # Transmetim i vazhdueshëm , ] Shprehje [ , Gjatësi ]
WRITE [ # Tregues , ] Shprehje [ , Gjatësi ]

Shkruan një shprehje në Transmetim i vazhdueshëm Transmetimin e vazhdueshëm duke përdorur paraqitjen e tyre binare.

Nëse Transmetim i vazhdueshëm nuk është saktësuar, atëherë do të përdoren daljet standarde.

Nëse Shprehja është një varg, ju mund të saktësoni Gjatësine e cila tregon numrin e bajtëve për tu shkruajtur. Nëse nuk është saktësuar gjatësia e vargut, atëherë shkrimi bëhet në mënyrë direkte në Transmetim i vazhdueshëm pak më parë se të dhënat e vargut.

Të dhënat që janë shkruar në Transmetim i vazhdueshëm nga ky udhëzim është rradhitja e bajtëve të Transmetim i vazhdueshëm.

Nëse saktësoni Pointer në vend të Stream, atëherë të dhënat do të shkruhen në mënyrë direkte në adresën e memorjes të saktësuar nga treguesi.

Nëse mundoheni të shkruani në adresën e memorjes së ndaluar, do të krijoni një gabim. Përkthyesi gojor nuk do të shembet.

Example

... ' Bajtet në vijim do të shkruhen në stream (shënimet heksadecimale) :
WRITE #hfile, "123456789" ' 09 31 32 33 34 35 36 37 38 39
WRITE #hfile, "123456789", 0 ' 09 31 32 33 34 35 36 37 38 39
WRITE #hfile, "123456789", 4 ' 31 32 33 34
WRITE #hfile, "123456789", 11 ' 31 32 33 34 35 36 37 38 39 00 00
WRITE #hfile, "123456789", -2 ' Asgjë nuk do të shkruhet në stream.
...

Ky shembull tregon se si mund të shkruhen skedarët binar. Ajo atëherë READ (lexon) skedarin e krijuar që në të bëjmë afishimin e përmbajtjes së skedarit.

PUBLIC SUB ButoniShkrimitBinar_Click()
  DIM shtegSkedari AS String
  ' Përdor një skedar të përkohshëm
  shtegSkedari = Temp()
  ' Shkruaj skedarët binar
  ShkrimBinar(shteguiSkedarit)
  ' Afisho skedarët binar
  LexoBinarët(shteguiSkedarit)
  ' Largo skedarët e përkohshëm
  KILL shteguiSkedarit
CATCH
  Message.Error(Error.Text)
END

PRIVATE SUB ShkrimBinar(ShtegSkedari AS String)
  DIM skedariBinar AS File
  DIM i AS Integer = 10
  DIM b AS Byte = 4
  DIM s AS Short = 23
  DIM s1 AS String = "Ky është vergu 1"
  DIM s2 AS String = "Vargu tjetër"
  ' Hap me create që të fitojmë një skedar të ri
  skedariBinar = OPEN ShtegSkedari FOR CREATE
  WRITE #skedariBinar, i
  WRITE #skedariBinar, b
  WRITE #skedariBinar, s
  WRITE #skedariBinar, s1
  WRITE #skedariBinar, s2
  CLOSE #skedariBinar
END

PRIVATE SUB LexoBinarët(ShtegSkedari AS String)
  DIM skedariBinar AS File
  DIM i AS Integer
  DIM b AS Byte
  DIM s AS Short
  DIM s1 AS String
  DIM s2 AS String
  ' Lexo skedarët binar
  skedariBinar = OPEN ShtegSkedari FOR READ
  READ #skedariBinar, i
  READ #skedariBinar, b
  READ #skedariBinar, s
  READ #skedariBinar, s1
  READ #skedariBinar, s2
  CLOSE #skedariBinar
  ' Afisho rezultatet
  PRINT i
  PRINT b
  PRINT s
  PRINT s1
  PRINT s2
END

Example

See also