Adatbevitel *.txt fájlból

A VBA programba, *.txt kiterjesztésű—Text típusú fájlokból lehet adatokat beolvasni.

( a *.txt fájlok adatállománya, az ASCII kódtábla kódjait alkalmazza. Számokon és betűkön kívül a Space, - Tab, - Enter, - EOF vezérlő karaktereket ismeri fel és használja a VBA ).

A VBA programban az Open ….Input...Close parancsutasítás látja el a feladatot úgy, hogy

a kijelölt *.txt fájlból, balról - jobbra haladva „karakterláncokat” olvas be.

· Beolvasáskor az Input parancs nem értelmezi, hogy az olvasott adat szöveg vagy szám karakter, hanem „karakterláncot” keres.

· Egy „karakterláncnak” tekinti az Input utasítás, azt a szöveg vagy számkarakter sorozatot, melyet vagy a Space, - Tab, - Enter, - EOF vezérlő karakter zár le.

· Az EOF vezérlő karakter is egy ASCII kód, (End of File rövidítése és Vége a fájlnak jelentése).

Az Open … Input… Close utasítás együttes szintaktikája:

Open <fájlnév.txt> For <alkalmazás - Input vagy Output> As # <virtuális memórianév>

Input #<a virtuális memória neve>, <letárolás helye - Váltózója>

Close #<a virtuális memória neve>

Az Open utasítás sor értelmezése:

Open (megnyitja) a <fájlnév.txt> -t Input (beolvasásra) As # <virtuális memórianév> (és a beolvasás vezérlését átadja As a megnevezett virtuális memória résznek.)

Input #<a virtuális memória neve>, (a virtuális memória vezérlés mellett kiolvassa a megnyitott text fájlból, a kért „karakterláncot”), <letárolás helye - Váltózója> (a beolvasott karakterláncot letárolja a kijelölt változóba)

Close #<a virtuális memória neve> (bezárja a megnyitott text fájlt)

Megjegyzés:

A beolvasó Open utasítás után, annyi Input parancsnak kell lenni, mint amennyi „karakterláncot” tartalmaz a megnyitott *.txt fájl.

Természetesen ciklus szervező utasítások beépítésével is (For … Next, Do … Loop)többszörözhető az Input parancsok száma!

Az Open utasításban a megnyitni kívánt *.txt fájlt kétféle módon lehet kijelölni:

· ha a megnyitni kívánt *.txt fájl, nem az Excel program könyvtárában van, akkor, a fájlkereső formulát (Application.GetOpenFilename) kell alkalmazni.
lsd. A Modul lap felső beolvasó programját.

· ha a megnyitni kívánt *.txt fájl az Excel programmal megegyező könyvtárban van,

akkor a direkt címzést kell alkalmazni.

Az Open kulcsszó után idézőjelek közé zárva (pl. „Szamok.txt”) a fájl nevét és kiterjesztését kell megadni úgy a hogy a könyvtárba be van jegyezve.
lsd. A Modul lap alsó beolvasó programját.

Megjegyzés:

A Modul lap mintabeolvasó Open utasításaiban a Szamok.txt text fájlt olvassa be.
Ebbe a Szamok.txt-be mintaként, csak 4 „karakterlánc” szerepel: „25” „24” „23” „22”.

Az Input ezeket olvassa be sorban egy tömbváltozó elemeibe, s és utána a Cells paranccsal ki írja az Excel munkalapra.

Emlékeztető gondolatok a törlő parancsok

alkalmazásáról

Cella, vagy Cella csoportok törlése.

A törlés szintaxisa:

<objektum>.ClearContents

Megjegyzés:

Célszerű arról gondoskodni, hogy mindig „üres” cellákba - cellatartományokba történjen a kiírás. A programfejlesztés közben, nagy a valószínűsége annak, hogy egyre több „cellába felejtett kiírás” lesz látható az Excel munkalapon. Ezért kell gondoskodni arról, hogy az előző kiírás adatai le legyenek törölve a munkalapról addigra, míg az új adatok kiírásra nem kerülnek.

lsd. A Modul lap Dim parancsai utáni lehetőségek!