Put Statement
BeĂr egy rekordot egy relatĂv fájlba, vagy egy bájtsorozatot egy bináris fájlba.
Lásd mĂ©g: Get utasĂtás
Szintaxis:
Put [#] Fájlszám As Integer, [PozĂciĂł], VáltozĂł
Paraméterek:
Fájlszám: Bármilyen integer (egĂ©sz szám) kifejezĂ©s, amely meghatározza azt a fájlt, amelybe Ărni szeretne.
PozĂciĂł: RelatĂv fájlok (vĂ©letlen elĂ©rĂ©sű fájlok) esetĂ©n azon rekord száma, amelyet Ărni szeretne.
Bináris fájlok esetĂ©n (Binary elĂ©rĂ©s) a fájl azon bájtjának helye, amelytĹ‘l az Ărást szeretnĂ© kezdeni.
VáltozĂł: A változĂł neve, amelyet a fájlba szeretne Ărni.
MegjegyzĂ©s a relatĂv fájlokhoz: Ha a változĂł tartalma nem felel meg a rekord hosszának, amely meg van adva az Open utasĂtás Len paramĂ©terĂ©ben, akkor az Ăşjonnan Ărt rekord vĂ©ge Ă©s a következĹ‘ rekord közötti terĂĽlet kitöltĂ©sre kerĂĽl a fájl meglĂ©vĹ‘ adataival, amelybe Ăr.
MegjegyzĂ©s a bináris fájlokhoz: A változĂł tartalma a megadott pozĂciĂłba ĂrĂłdik, Ă©s a fájlmutatĂł közvetlenĂĽl az utolsĂł bájt utáni helyre fog mutatni. Nem marad terĂĽlet a rekordok között.
Példa:
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Variant tĂpusĂşnak kell lennie
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Az Ărás kezdĂ©sĂ©nek pozĂciĂłja
Put #iNumber,, "Ez a szöveg első sora" ' Sor kitöltése szöveggel
Put #iNumber,, "Ez a szöveg második sora"
Put #iNumber,, "Ez a szöveg harmadik sora"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
Put #iNumber,,"Ez egy új szöveg"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Ez a szöveg a 20. rekordban"
Print Lof(#iNumber)
Close #iNumber
End Sub