Reset

Zatvara sve fajlove na disku, otvorene nardebom Open. Sintaksa:

Reset

Metoda Print

Štampa tekst u prozor Immediate. Primenjuje se na objekte Debug, Form, UserControl  Sintaksa je :

objekat.Print [izlazna_lista]

Funkcija Spc

Koristi se uz naredbe Print #  i Print za pozicioniranje izlaza. Sintaksa je :

Spc(n)

Broj n označava broj praznih mesta koje se unose pre prikaza ili štampe prvog narednog izraza u listi.

Primer upotrebe funkcije Spc sa naredbom Print # :

Open "TESTFAJL" For Output As #1   

Print #1, "10 praznih mesta izmedju ovog i"; Spc(10); "ovog dela teksta"

Close #1   

Primer upotrebe funkcije Spc sa metodom Print, objekta Debug:

Debug.Print Spc(30); "Nakon trideset mesta..."

Funkcija Tab

Još jedna ključna reč koja se koristi uz naredbe Print #  i Print za pozicioniranje izlaza. Sintaksa :

Tab[(n)]

Argument n je broj kolona, za koliko se pomera prikaz ili štampa sledećeg izraza u listi. Ako se n izostavi, pomera se na početak sledeće zone za štampu.

Primer uporteba funkcije Tab :

' Sa naredbom Print #

Open "TESTFAJL" For Output As #1  

Print #1, "Zdravo"; Tab(20); "svima"

' Sa metodom Print objekta Debug

Debug.Print Tab(10); "10 kolona od pocetka."

Naredba Width #

Dodeljuje širinu linije izlaza fajlu otvorenom pomoću naredbe Open. Sintaksa:

Width #broj_fajla, sirina

Primer:

Dim i

Open "TESTFAJL" For Output As #1 

Width #1, 5 

For i = 0 To 9  

            Print #1, Chr(48 + I);

Next i

Close #1 

 Naredba FileCopy

Ova naredba se koristi za kopiranje fajlova sa jedne lokacije na drugu. Sintaksa je:

FileCopy izvor, odrediste

Primer:

Dim IzvorniFajl, FajlOdredista

IzvorniFajl = "FAJL1"   ' Naziv izvornog fajla

FajlOdredista = "FAJL2"   ' Naziv odredisnog fajla

FileCopy IzvorniFajl, FajlOdredista

Naredba Seek

Određuje poziciju sledeće operacije ulaza/izlaza unutar fajla otvorenog naredbom Open. Sintaksa je

Seek [#]broj_fajla, pozicija

Naredba Put

Unosi podatke iz promenljive u fajl na disku. Sintaksa je:

Put [#]broj_fajla, [slog], promenljiva

Primer:

' U modulu

Type Slog

   ID As Integer

   Ime As String * 20

End Type

'Iza forme

Dim MojSlog As Slog, BrojSloga

Open "TESTFAJL" For Random As #1 Len = Len(MojSlog)

For BrojSloga = 1 To 5

   MojSlog.ID = BrojSloga

   MojSlog.Ime = "Moje Ime" & BrojSloga

   Put #1, BrojSloga, MojSlog

Next BrojSloga

Close #1