Primjeri kodova operacija menija Vb6 sistema datoteka. Čitanje i pisanje u tekstualnu datoteku

Windows

Cilj rada: Učenje i korištenje VB 6 jezičkih operatora za rad sa datotekama razne vrste: sekvencijalne (tekstualne) datoteke, datoteke sa slučajnim pristupom, binarne datoteke. Istraživanje i upotreba alata ČestoDijalog za otvaranje i spremanje datoteka, odabir fontova i boja i korištenje objekta clipboard za pohranjivanje fragmenata teksta, koristeći primjer kreiranja jednostavnog uređivača teksta.

Kontrolna pitanja:

1. Koji su načini za otvaranje tekstualne datoteke? Kako zatvoriti tekst i bilo koji drugi otvori datoteku?

2. Kako se podaci upisuju u tekstualnu datoteku za pisanje? Koja je razlika između naredbi Write i Print?

3. Kako se podaci čitaju iz tekstualne datoteke otvorene za čitanje? Koja je razlika između operatora Input i Line Input? Koja funkcija se može koristiti za čitanje određenog broja znakova iz datoteke? Kako pročitati sve znakove datoteke?

4. Šta je prilagođeni tip podataka i kako se ovaj koncept koristi kada se radi sa fajlovima sa slučajnim pristupom ( raf)?

5. Sa kojim operatorima iz datoteke raf zapisi se čitaju i unose u datoteku raf pišu se novi zapisi?

6. Za koju svrhu je indeks definiran i korišten kada se radi sa datotekom raf?

7. Koje su karakteristike korištenja binarnih datoteka? Kako se otvaraju? Kako se vrši čitanje iz binarne datoteke i pisanje u binarnu datoteku?

8. Kako se kontrola može primijeniti ČestoDijalog učitati sadržaj tekstualne datoteke u tekstualno polje? Kako koristiti istu kontrolu za spremanje uređenog teksta u tekstualnu datoteku?

9. Kako možete primijeniti kontrolu ČestoDijalog za preuzimanje sadržaja datoteke rtf u polju Richtekstualni okvir? Kako koristiti istu kontrolu za spremanje uređenog teksta u datoteku rtf?

10. Kako možete primijeniti kontrolu ČestoDijalog za promjenu vrijednosti parametara fonta i za promjenu boje teksta u prozoru tekstualni okvir(ili odabrani dio teksta u prozoru Richtekstualni okvir)?

Primjer 7.1. Razmislite o aplikaciji koja pokazuje pisanje u (i čitanje iz tekstualne datoteke) "podataka o zaposleniku"—stringovi koji sadrže identifikacijski broj zaposlenika, puno ime, datum rođenja i mjesto rođenja. Redovi formiraju tabelu koju će na ekranu imitirati 4 kontrole Combo Box-a (slika 7.1), koje formiraju niz Comb(i) objekata sa svojstvom Style postavljenim na 1 - SimpleCombo.

Označite liniju koju želite izbrisati", vbExclamation

Comb(j).RemoveItem i

„Ubaci novi ulaz do stola:

Private Sub mnuInsert_Click()

i% = Češalj(0).Indeks liste

Ako ja< 0 Then

MsgBox "Izaberite red za umetanje ispred njega", vbExclamation

Comb(0).AddItem InputBox("Unesite broj"), i

Comb(1).AddItem InputBox("Unesite ime"), i

Comb(2).AddItem InputBox("Unesite datum rođenja."), i

Comb(3).AddItem InputBox("Unesite mjesto rođenja."), i

'Promjena unosa u tabeli:

Privatno Sub mnuUpdate_Click()

i% = Češalj(0).Indeks liste

Ako ja< 0 Then

MsgBox "Odaberi liniju za izmjenu", vbExclamation

Comb(0).List(i) = InputBox("Unesite broj", Comb(0).List(i))

Comb(1).List(i) = InputBox("Unesite ime", Comb(1).List(i))

Comb(2).List(i) = InputBox("Unesite datum rođenja", Comb(2).List(i))

Comb(3).List(i) = InputBox("Unesite mjesto rođenja", Comb(3).List(i))

‘ Čišćenje cijele tabele:

Privatni Sub mnuClear_Click()

‘ Ispunjavanje tabele informacijama iz tekstualne datoteke:

Privatni Sub mnuLoad_Click()

Otvorite "person.txt" za unos kao #1

Unos #1, numb, fio, bdate, bloc

Comb(0).AddItem numb

Comb(1).AddItem fio

Comb(2).AddItem bdate

Comb(3).AddItem blok

' Upisivanje detalja tabele u tekstualnu datoteku:

Privatno Sub mnuSave_Click()

N% = Češalj(0).ListCount

Otvorite "person.txt" za izlaz kao #1

Za i = 0 do N - 1

numb = Val(češalj(0).Lista(i))

fio = Češalj(1).Lista(i)

bdate = CDate(Comb(2).List(i))

blok = Češalj(3).Lista(i)

Napišite #1, numb, fio, bdate, bloc

‘ Gašenje aplikacije:

Private Sub mnuExit_Click()

Primjer 7.2 . Razmislite o aplikaciji koja pokazuje upotrebu kontrola ČestoDijalog da otvorite i sačuvate datoteku, da odaberete font i boju i da izmenite tekst.

Formatirajte fajl porukaće se učitati u tekstualno polje (lijevo polje na slici 7.2), a format datoteke RTF- u polju Richtekstualni okvir(desna margina na slici 7.2).

objekt

Klasa

objekt

Nekretnina

objekt

Vrijednost imovine

“Generalni paneli

dijalog”

Otvori/Sačuvaj kao karticu

Kartica Font

Kartica boja

Tabela ne prikazuje svojstva naredbi menija Font, boja I Uredi. Ispod je šifra procedure takođe samo za komande menija File (otvoren, Sačuvaj I SačuvajAs). Kompajliranje koda za druge komande menija je tema 2. zadatka ovog rada.

Privatno Sub mnuOpen_Click()

CommonDialog1.ShowOpen

F$ = CommonDialog1.FileName

Ako je desno(F, 3) = "rtf" Onda

RichTextBox1.LoadFile F

ElseIf Right(F, 3) = "txt" Zatim

Otvorite F za unos kao #1

S$ = Ulaz (N, 1)

Privatno Sub mnuSave_Click()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

Privatni sub mnuSaveAs_Klikni()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

RichTextBox1.SaveFile F, rtfRTF

U toku ovog rada student treba da uradi 2 zadatka.

Vježba 1. U procesu izvršavanja zadatka studenti savladavaju mogućnosti rada sa fajlovima sa slučajnim pristupom dostupnim u VB 6 ( RAF-nasumičnopristupfajl).

Za datu tabelu baze podataka, deklarisan je korisnički definisan tip podataka, deklarisana je varijabla ovog tipa (uputstvo, str. 108 - 112), kompajliraju se i otklanjaju greške koje koriste korisnički definisanu varijablu tipa.

Posebno su implementirane procedure za komande menija. Pišite u fajlRAF I Čitaj iz datotekeRAF. Kao u primjeru 7.1, za uređivanje podataka koristi se niz objekata. ComboKutija i meni Uredi sa pet komandi podmenija: Dodajte napomenu, Obriši unos, Umetni unos, Uredi unos, Čisti sto.

Opcija 1.

Deklarirajte prilagođeni tip podataka za tabelu "Auto" (Tabela 7.1) baze podataka "Auto servis".

auto	auto	kvarovi

Donji red tabele 7.1 prikazuje tipove polja.

Opcija 2.

Deklarirajte prilagođeni tip podataka za tabelu grešaka (Tabela 7.2) baze podataka Car Service.

kvarovi

Ime

kvarovi

Cijena

Donji red tabele 7.2 prikazuje tipove polja.

Koristeći primjer aplikacije 7.1 kao primjer, organizirajte unos i uređivanje podataka za prikazanu tabelu, upisivanje ovih podataka u datoteku sa slučajnim pristupom i čitanje podataka iz datoteke sa slučajnim pristupom. Kao u primjeru 7.1, ove akcije su implementirane kao rad naredbi menija prikazanih na Sl. 7.1.

Zadatak 2. Kao dio aktivnosti, učenici dodaju nove funkcije primjeru aplikacije 2 koje omogućavaju da se aplikacija tretira kao jednostavan uređivač teksta.

Opcija 1 ČestoDijalog implementirati komande menija Font I boja(sa podmenijem Boja karaktera I Boja pozadine). Uz pomoć ovih naredbi treba omogućiti izbor fonta (njegov naziv, stil i veličinu) za odabrani fragment teksta u prozoru. Richtekstualni okvir, kao i odabir boje simbola odabranog fragmenta i izbor boje pozadine cijelog ovog prozora.

Bilješka: Prilikom postavljanja objekta ČestoDijalog da biste odabrali font pomoću svojstva (Prilagođeno), obavezno postavite vrijednost svojstva Flags na 1, 2 ili 3 (pogledajte priručnik, str. 183).

Opcija 2. Korištenje kontrole ČestoDijalog implementirati komande menija Uredi(podmeni Kopiraj, Cut I paste), čija je svrha kopiranje ili odstranjivanje u međuspremnik odabranog fragmenta teksta, kao i insert na odabrano mjesto teksta sadržaja međuspremnika.

Bilješka: U međuspremnik (objekat clipboard) možete koristiti metode SetText i GetText:

clipboard. SetText RichTextBox1.SelText

RichTextBox1.SelText = Međuspremnik. gettext

8. ČUVANJE I ČITANJE INFORMACIJA

Kako se nakon završetka programa svi podaci kreirani u memoriji ne bi izgubili, morate biti u mogućnosti pohraniti informacije na tvrdi disk. U suprotnom, sve informacije će nestati bez traga. Podaci se mogu pohranjivati i čitati na različite načine. Binarne i tekstualne datoteke mogu se koristiti za rad s informacijama različitih veličina i formata. Možete koristiti Windows Registry za skladištenje malih količina informacija. A za najsloženije zadatke razumno je koristiti baze podataka.

8.1. Otvaranje fajlova sa "Otvori »

Datoteka je imenovana oblast bilo kojeg vanjskog medija za pohranu. Podaci "žive" u memoriji računara, a fajlovi - na hard disku. Program ne radi direktno sa fajlovima, već koristi operativni sistem kao posrednika.

Postoje dvije vrste naziva datoteka: puni - pored naziva datoteke, naznačena je i lokacija datoteke na vanjskom mediju (na primjer, "C:\Program Files\Microsoft Visual Studio\VB98\VB 6.EXE" ) i kratko - samo naziv datoteke (VB 6.EXE). Ako lokacija datoteke nije navedena, tada će se pretraživati u trenutnom folderu, po defaultu - folderu u kojem se nalazi vaša aplikacija. Neposredno ime datoteke sastoji se od dva dijela: stvarnog jedinstvenog imena datoteke i njegove ekstenzije. Samo ime identifikuje datoteku, dok ekstenzija obično označava format datoteke ili pomoću kojeg programa je kreirana.

Prije nego počnete raditi sa datotekom, morate pitati operativni sistem pokazivač (deskriptor) fajl. Da biste ga dobili, koristite " FreeFile ". Zatim, koristeći naredbu "Open", ovaj pokazivač je povezan sa potrebnom datotekom. Tek nakon toga program će moći raditi s njim. Sintaksa za otvaranje datoteke je sljedeća:

'uzmite besplatni pokazivač na fajl i dodijelite ga varijabli

FileHandle% = FreeFile

‘ otvorite datoteku

Otvori FilePath_

Kao[#]FileHandle%

...(rad sa fajlom)

Zatvori[#]FileHandle

· FileHandle % je varijabla koja pohranjuje pokazivač datoteke;

· FreeFile je ime funkcije koja vraća pokazivač datoteke;

· Otvori – ime operatera;

· FilePath - puno ime datoteke;

· For je ključna riječ nakon koje slijedi opis načina pristupa datoteci;

· Mod – način pristupa datoteci (vidi tabelu 15);

Tabela 15

Načini pristupa fajlovima

Načini pristupa	Opis
Dodati	Dodavanje podataka na kraj postojeće tekstualne datoteke. Ako datoteka ne postoji, bit će kreirana
Binarno	Otvaranje datoteke u binarnom modu, tj. kao skup bajtova. Ako datoteka ne postoji, ali će biti kreirana
Unos	Otvaranje datoteke za čitanje u tekstualnom formatu
Izlaz	Otvaranje datoteke za pisanje tekstualne datoteke. U tom slučaju, sve stare informacije će biti izbrisane. Ako datoteka ne postoji, ali će biti kreirana
Slučajno	Otvaranje datoteke u načinu nasumičnog pristupa. Ovaj režim se koristi za rad sa jednostavnim zapisima. Ako datoteka ne postoji, ali će biti kreirana

· Pristup je opciona ključna reč praćena opisom tipa pristupa;

· AccessType - opis tipa pristupa:

· Čitanje - čitanje;

· Pisanje - snimanje;

· Read Write - čitanje i pisanje.

Bilješka

Režimi pristupa dodavanju i izlazu dozvoljavaju samo pristup za pisanje, pristup samo za čitanje i binarni i nasumični pristup sva tri tipa.

· LockType je opcioni parametar koji određuje da li drugi programi mogu koristiti ovu datoteku dok vaš program radi s njom. Obično se povezuje sa umrežavanjem (vidi tabelu 16).

Tabela 16

Moguće vrijednosti za parametar LockType

Značenje	Opis
podijeljeno	Svi korisnici sa potrebnim pravima imat će pun pristup datoteci
lock read	Čitanje datoteke je blokirano, ali je pisanje dozvoljeno
Zaključaj pisanje	Upisivanje u datoteku je blokirano, ali je čitanje dozvoljeno
Zaključaj Čitanje i pisanje	Zabranjeno je i čitanje i pisanje.

· Kao što je ključna riječ praćena pokazivačem datoteke.

· # je znak koji označava da je vrijednost koja slijedi nakon njega pokazivač datoteke.

· Len je opciona ključna reč koju mora pratiti parametar koji specificira dužinu unosa.

· CharInBuffer % - dužina zapisa za fajl otvoren u režimu slučajnog pristupa (Random).

· Close je naredba koja zatvara datoteku povezanu sa navedenim ručkom.

Važno je zatvoriti datoteku nakon što završite rad s njom. Naredba "Close" oslobađa pokazivač datoteke i pripadajuću memorijsku oblast.

Prilikom rada s datotekom, odnosno čitanja iz nje, vrlo je važno odrediti kraj datoteke. Može se definirati pomoću funkcije EOF (End Of File):

EOF(FileHandle)

· EOF – naziv funkcije;

· FileHandle je ručka datoteke čiji se kraj utvrđuje.

Funkcija vraća True (true) ako je dostignut kraj datoteke, u suprotnom vraća False (False).

8.2. Čitanje i pisanje u tekstualnu datoteku

Tekstualni fajl se otvara u pristupnom režimu "Input", "Output" ili "Append" (vidi tabelu 15). Posebnost ovog načina rada je da radi samo sa određenim znakovima koji se mogu ispisati. Beskorisno je raditi sa servisnim simbolima.

Za pisanje informacija koriste se dvije izjave "Print" i "Write", čija je sintaksa sljedeća:

Ispis #FileHandle%, VarBuffer[;]

Write #FileHandle%, VarBuffer[;]

· Print/Write - ključne riječi operatera.

· #FileHandle % - pokazivač na fajl na koji će biti smeštene informacije.

· VarBuffer je vrijednost koja će biti upisana u datoteku.

· ; – opcioni parametar koji se koristi prilikom pisanja u tekstualnu datoteku, znači da će sljedeća vrijednost biti upisana u isti red, a ako je nema, u sljedeći.

Za čitanje informacija iz datoteke koriste se operatori "Input" i "Line Input". Sintaksa je slična jedna drugoj:

Unos linije #FileHandle%, VarBuffer

Unesite #FileHandle%, VarBuffer

· Linijski ulaz / unos - ključne riječi operatera.

· #FileHandle % - pokazivač datoteke iz koje će se čitati informacije.

· VarBuffer je varijabla u koju će se čitati informacije.

Razlika između operatora Line Input i Input je u tome što je prvi namijenjen samo tekstualnim datotekama, a drugi za bilo koje. U slučaju tekstualnih datoteka, "Input" čita podatke u istom redu do prvog graničnika (za tekstualne podatke, graničnik je "," (zarez), a za numeričke podatke - " " (razmak) i "," ), a "Line Input » čita cijeli red odjednom, zanemarujući bilo kakve graničnike.

Bilješka

IN Visual basic ne postoje načini kontrole formata prethodno kreiranih datoteka. Stoga se simbol "2" može čitati kao odgovarajući broj i obrnuto.

8.3. Rad sa binarnim fajlovima

Fajlovi se otvaraju u binarni format operator "Otvori" u načinu "Binarni". Posebnost ovog načina rada je da je rad s datotekom fokusiran isključivo na određene bajtove. Budući da se Visual Basic može direktno obratiti na željenu lokaciju datoteke, ovaj način se također naziva − način direktnog pristupa. Još jedna karakteristika ovog načina je mogućnost istovremenog upisivanja i čitanja informacija u različite dijelove datoteke bez ponovnog otvaranja. Pisanje u datoteku otvorenu u binarnom modu se vrši korištenjem sljedeće sintakse:

Stavite #FileHandle%, , NameVar

· Put - ime operatera za pisanje informacija.

· RecNumber – broj bajta datoteke u koju će biti zapisane informacije (opcijski parametar).

· NameVar je varijabla čiji će sadržaj biti upisan u datoteku.

Čitanje informacija iz datoteke u binarnom načinu se vrši pomoću sljedeće izjave:

Nabavite #FileHandle%, , NameVar

· Get je ime operatera za snimanje informacija.

· FileHandle % - pokazivač datoteke.

· RecNumber – broj bajta datoteke iz koje će se čitati informacije (opciono).

· NameVar - ime varijable u koju će biti smeštene pročitane informacije.

Pošto je binarni način fokusiran na bajtove informacija, pri čitanju iz datoteke, varijabla bafera mora imati strogo definiran tip: ili "Byte", tada će se pročitati numerička vrijednost bajta, ili znak fiksne dužine od jednog znaka, tada će bajt biti pročitan kao znak, ANSI, čiji kod odgovara vrijednosti bajta. Ovaj znak može biti čak i kontrolni znak, što se ne može postići u slučaju tekstualnih datoteka.

Bilješka

U nedostatku parametra "RecNumber", informacije će biti upisane ili pročitane u sljedećem bajtu datoteke nakon onog s kojim su ranije radili.

8.4. Grafička manipulacija

Grafičke slike se također mogu spremiti u datoteke i preuzeti iz njih. Da biste izdvojili sliku iz datoteke bitmape ili ikone i dodijelili je svojstvu "Picture" kontrola "PictureBox" i "Image", koristite funkciju "LoadPicture ()" sa sljedećom sintaksom:

ImageCtrl.Picture = LoadPicture(FilePath)

· ImageCtrl je naziv kontrole prozora slike, kontrole slike ili forme;

· LoadPicture - naziv funkcije;

· FilePath je puno ime datoteke.

SavePicture ImageCtrl .Picture, FilePath

· SavePicture – ime operatera;

· ImageCtrl je naziv kontrole prozora slike, kontrole slike ili forme;

· Slika - naziv svojstva objekta odgovornog za sliku;

· FilePath je puno ime datoteke, koja označava njenu lokaciju na disku.

8.5. Rad sa podacima u registru

Možete koristiti Windows Registry za pohranjivanje malih dijelova informacija o formatu znakova. Visual Basic ima četiri procedure koje možete koristiti za pristup. Veoma su laki za upotrebu, ali imaju jedan veliki nedostatak: podacima možete pristupiti samo iz određenog ključa registratora: "MyComputer \HKEY _CURRENT _USER \Software \VB i VBA Program Settings". Da biste pristupili drugim ključevima registra, morate koristiti posebne funkcije " Win 32 API".

Da biste dobili vrijednost postavke iz ključa registra Windows specifičnog za Visual Basic, koristite sljedeću funkciju:

MyString = GetSetting(VBKeyName, Section, Key [,Default])

· MyString - string za pohranjivanje vrijednosti koju vraća funkcija;

· GetSetting je naziv funkcije.

· VBKeyName je vrijednost niza koja je ime internog VB /VBA potključa.

· Ključ je vrijednost niza koja predstavlja ime parametra u sekciji.

· Default je neobavezan argument čija će vrijednost biti vraćena u slučaju greške (nedostaje parametar).

Da biste pohranili vrijednost u Windows registrator, koristite sljedeću izjavu:

SaveSetting VBKeyName, Section, Key, MyString

· SaveSetting je ime operatera.

· MyString je string varijabla u koju će biti smještena pronađena vrijednost.

Da biste dobili niz iz registra koji sadrži sve vrijednosti parametara iz određenog potključa, koristite sljedeću funkciju:

MyVariant = SetAllSettings(VBKeyName, Section)

· MyVariant je niz vrijednosti tipa "Variant" koje vraća funkcija.

· SetAllSettings je naziv funkcije.

· Odjeljak - vrijednost stringa koja predstavlja dio ili pododjeljak određene aplikacije.

Da biste uklonili cijeli parametarski odjeljak, koristite operator sa sljedećom sintaksom:

DeleteSetting VBKeyName, Section, Key

· DeleteSetting je ime operatera.

Sigurnosna pitanja za samoispitivanje

Kako se neke informacije mogu pohraniti dugoročno?
Šta je fajl?
Koja imena datoteka znate?
Navedite sintaksu operatora "Open". Objasnite svrhu njegovih parametara.
Kako mogu organizirati zajednički pristup više aplikacija istoj datoteci u isto vrijeme?
Kako utvrditi da su informacije u datoteci iscrpljene?
Zašto se preporučuje zatvaranje datoteke nakon rada s njom?
U čemu vidite razliku između tekstualnog i binarnog režima datoteka?
Kako se podaci čitaju i pišu u tekstualnom režimu?
Kako se podaci čitaju i zapisuju u načinu binarne datoteke?
Koja je razlika između "Print" i "Write" operatora kada radite sa datotekama?
Koja je razlika između naredbi "Input" i "Line Input" kada radite sa datotekama?
Kako možete raditi sa grafičkim podacima?
Koji su osnovni principi rada sa Windows registrom?

Svaki program mora pohraniti podatke na disk i pročitati ih sa diska. Ovo je potrebno, na primjer, za spremanje postavki programa; malo je vjerovatno da će se korisniku svidjeti program, koji će se morati ponovo konfigurirati sljedeći put kada se pokrene.

Ovaj članak se fokusira na rad sa tekstualnim datotekama koristeći Visual Basic.

Deskriptor fajla

Za rad sa fajlovima operativni sistem koristi I/O kanale, tj. svaka otvorena datoteka ima svoj broj.

Postoji funkcija u Visual Basicu besplatni fajl, koji vraća broj slobodnog kanala koji se može koristiti za rad sa datotekom. Ako nema slobodnih kanala, dolazi do greške.

FreeFile[(RangeNumber) ]

RangeNumber- opcijski parametar koji vam omogućava da odredite raspon slobodnih kanala, ako RangeNumber= 0 (podrazumevano), tada se broj kanala vraća iz raspona 1 - 255, a ako je 1, onda iz raspona 256 - 511.

MyFile = FreeFile " Dodijeljena je varijabla MyFile besplatni kanal i sada se može koristiti za rad sa fajlovima

Rad sa tekstualnim fajlovima

Najčešće je potrebno sresti se sa tekstualnim fajlovima. Tekstualni fajlovi se sastoje od skupa ASCII znakovi(Američki standardni kod za razmjenu informacija - Američki standardni kod za razmjenu informacija).

Prije nego što počnete pisati / čitati podatke, datoteka se mora otvoriti, to se radi pomoću operatora otvoren(Ime dokumenta) Za As #fajl_broj, Gdje:

Unos- otvorite datoteku za čitanje, ako datoteka ne postoji, onda dolazi do greške;

Izlaz- za pisanje, ako fajl ne postoji, biće kreiran, a ako fajl postoji, biće prepisan;

Dodati- za dodavanje, ako fajl ne postoji, biće kreiran, a ako fajl postoji, podaci će biti dodati na kraj fajla.

Čitanje tekstualne datoteke može se uraditi na dva načina: čitanje znak po znak, za to se koristi funkcija Unos(Broj_pročitanih_karaktera, #fajl_broj) i red po red, za ovo se koristi funkcija linijski ulaz #fajl_broj, Gdje_čitati.

DimMyFile

Dim S kao žica "Varijabla za pohranjivanje pročitanih podataka

MyFile = FreeFile

Open("C:\TEST.txt") za unos kao #MyFile

Linijski ulaz #MyFile,S "Pročitajte prvi red iz datoteke TEST.TXT u varijablu S

DimMyFile "Deklarisajte varijablu za besplatni fajl

Dim i As Integer "Varijabla za petlju

Dim tS kao niz "Varijabla za čitanje nizova

Dim S kao žica "Varijabla za pohranjivanje konačnih podataka

MyFile = FreeFile „Dodijelite besplatni kanal za rad s fajlovima

"Otvorite datoteku TEST.TXT za čitanje

Za i = 1 do 5

Linijski ulaz #MyFile, tS "Pročitajte datoteku TEST.TXT red po red

Ako je i => 5 Tada je S = tS "Ako je peti red, onda ga pohranite u varijablu S

Sljedeći i

Zatvori #MyFile "Zatvorite datoteku

Dim MyFile "Deklarisajte varijablu za besplatnu datoteku

Dim S As String "Varijabla za pohranjivanje pročitanih podataka

MyFile = FreeFile „Dodijelite besplatni kanal za rad s fajlovima

Open("C:\TEST.txt") za unos kao #MyFile "Otvorite datoteku TEST.TXT za čitanje

S = Unos$(LOG(1), 1) "Pročitajte cijeli fajl u varijablu S

Zatvori #MyFile "Zatvorite datoteku

Postoje operatori za pisanje u fajl. Print#fajl_broj, Podaci I Pisati#fajl_broj, Podaci. Jedina razlika između ovih operatera je u tome Pisati piše podatke u navodnicima, i print bez navodnika.

Ispod će se kreirati sljedeći kod na disku C:\ novi fajl TEST.TXT i u njega upišite dva niza, prvi bez navodnika, a drugi sa navodnicima:

DimMyFile "Deklarisajte varijablu za besplatni fajl

MyFile = FreeFile „Dodijelite besplatni kanal za rad s fajlovima

Open("C:\TEST.txt") Za izlaz kao #MyFile "Otvorite datoteku TEST.TXT za pisanje

Print #MyFile, "Ovaj niz je napisan naredbom Print, bez navodnika..."

Write #MyFile, "Ovaj niz je napisan naredbom Write, nalazi se u navodnicima..."

Zatvori #MyFile "Zatvorite datoteku

To je zapravo sve. Kao što ste vjerovatno već shvatili, operator koji se koristi za zatvaranje datoteke je Zatvori#fajl_broj, pri čemu, # fajl_broj nije potrebno specificirati.

Članak je pomalo sirov, ali će biti koristan za programere početnike. Sljedeći put ću govoriti o radu sa binarnim datotekama.