Szövegfájlok olvasása

A szövegfájlokat ugyanúgy lehet olvasni, mint írni. A fájlok megnyitásához használt Open utasítás a For Input kifejezést tartalmazza a For Output helyett, és az adatokat író Print parancs helyett, a Line Input utasítást kell használni az adatok olvasásához.

Végül, amikor a program olvassa a szövegfájlt, az

eof(FileNo)

utasítással ellenőrzi, hogy elérte-e a fájl végét.

A következő példa bemutatja, hogyan olvasható be egy szövegfájl:

Dim FileNo As Integer

Dim CurrentLine As String

Dim File As String

Dim Msg as String



' Define filename 

Filename = "c:\data.txt"



' Szabad fájlkezelő létrehozása

FileNo = Freefile



' Fájl megnyitása (olvasási módban)

Open Filename For Input As FileNo



' Fájlvég ellenőrzése



Do While not eof(FileNo)

   ' Sor beolvasása

   Line Input #FileNo, CurrentLine   

   If CurrentLine <>"" then

      Msg = Msg & CurrentLine & Chr(13)

   end if

Loop



' Fájl bezárása

Close #FileNo               



Msgbox Msg

Az egyes sorokat a Do While ciklus olvassa be, és tárolja az Msg változóban, majd a program ezt megjeleníti egy üzenetablakban.

Üzenet- és beviteli ablakok

A StarOffice Basic a MsgBox és az InputBox függvényt biztosítja a felhasználóval végzett alapszintű kommunikációhoz.

Üzenetek megjelenítése

A MsgBox függvény egy információs ablakot jelenít meg, amely egy vagy több gombbal rendelkezhet. A legegyszerűbb formájában:

MsgBox "Ez itt egy információs üzenet!"

a MsgBox csak a szöveget és az OK gombot tartalmazza.

Az információs ablak megjelenése egy paraméterrel módosítható. A paraméterrel további gombok jeleníthetők meg, megadható az alapértelmezett gomb, és megjeleníthető egy ikon. A gombok beállítására szolgáló értékek a következők:

• 0 - OK gomb

• 1 - OK és Mégse gomb

• 2 - Mégse és Ismét gomb

• 3 - Igen, Nem és Mégse gomb

• 4 - Igen és Nem gomb

• 5 - Ismét és Mégse gomb

Ha egy gombot alapértelmezett gombként akarunk beállítani, akkor gombok értékéhez adjuk hozzá a következő értékek egyikét. Ha például az Igen, Nem és Mégse gombot (3-as érték) akarjuk megjeleníteni, és azt akarjuk, hogy a Mégse gomb legyen az alapértelmezett (512-es érték), akkor a paraméter értéke 3+ 512 = 515.

• 0 - Az első gomb az alapértelmezett.

• 256 - A második gomb az alapértelmezett.

• 512 - A harmadik gomb az alapértelmezett.

Végül a következő információs jelek is megjeleníthetők a megfelelő paraméterérték hozzáadásával:

• 16 - Stopjel

• 32 - Kérdőjel

• 48 - Felkiáltójel

• 64 - Tippikon