Bízza szöveges fájlokat a Visual Basic

Legutóbb egy nepomnyu koferentsii láttam egy szalag egy ember, aki azt kérte, hogy legalább valaki elmagyarázta neki az elemi munka fájlokat. Úgy tűnik, annyira egyszerű. De ez könnyű azoknak, akik egy kis fejlett programozási és aki még csak a kezdet? Ez valóban egy áthatolhatatlan erdő! És Erősen kétlem, hogy bármelyik más Web-mesterek elveszett ad ez legalább némi figyelmet. Ezért ezt megteszem, és megpróbálom megmutatni ebben a cikkben, csak az alapokat.

1. Megnyílt a fájl információt olvasni azt.

Így gond nélkül dolgozni szöveges fájlokat, először azt kell nyitva lennie. Ez keresztül történik a nyílt nyilatkozat, mint például:

Nyissa meg a "c: \ text.txt" For Input # 1

Megjegyzés: a fájlmegnyitási mód - Input (olvasásra). Itt text.txt fájl megnyitásakor olvasásra szám 1. Figyelmeztetés. Fájl száma - a kívánt paramétert, és adja meg mindig! Ha a program nem kell foglalkozni egy tucat nyitott fájlt, nyomon követheti a számuk lesz elég nehéz. Használja ezt a funkciót FreeFile. Ez visszaadja még nem foglalták el a számot (1-511) a fájl:

Dim FÁJLSZÁM As Integer

Nyissa meg a "c: \ text.txt" For Input Mivel FÁJLSZÁM

Például a fájl megnyitásakor! Most meg kell vizsgálni tőle valamit. Line Input nyilatkozatot olvas a megnyitott fájl egy sort minden hívást. Ezért, hogy olvassa a fájlt meg kell építeni egy ciklus, mely következtében a szolgáltató addig, amíg el nem éri a fájl végére:

hurok lefusson végéig elérte a fájl

Do Amíg EOF (FÁJLSZÁM)

Minden alkalommal, amikor hívást kezelő Line Input azt írja

változó egy új vonal

Line Input #FileNum, változó

Megnyitott fájl bezárása #FileNum operátor. És most ez hogyan kell kinéznie a gyakorlatban:

Dim FÁJLSZÁM As Integer

Dim txt As String

Dim alltxt As String

nyissa meg a fájlt csak olvasható módban

Nyissa meg a "c: \ text.txt" For Input Mivel FÁJLSZÁM

indít a fent említett ciklus

Do Amíg EOF (FÁJLSZÁM)

beolvas egy sort a fájl száma FÁJLSZÁM és tegyük a

Line Input #FileNum, txt

Most, hogy adjunk a tartalmát a változó alltxt változó txt -

és a vonal vb-konstans vbCrLf (Chr (13) + Chr (10)), mint soronként

Meg kell egy új sorban :-)

alltxt = alltxt + TXT + vbCrLf

zárja be a fájlt a számot FÁJLSZÁM

Levezetjük a tartalmát a változó alltext

2. Nyissa meg a fájlt írásra információt bele.

Rögzíti az adatokat a fájl még könnyebb. Ez a művelet különbözik az előzőtől csak az a tény, hogy szükség van egy olyan fájl megnyitásához írási üzemmódban:

Nyissa meg a „c: \ text.txt” a nyomtatáshoz FÁJLSZÁM

és ahelyett, hogy a ciklus beszúrni kívánt üzemeltető Print #, ami azt írja, hogy a fájl tartalmát a változó:

Nyomtatás #FileNum „Az ABC a Visual Basic”

Nyomtatás #FileNum, alltext

Dim FÁJLSZÁM As Integer

Dim txt As String

nyissa meg a fájlt írási üzemmódban

Nyissa meg a „c: \ text.txt” a nyomtatáshoz FÁJLSZÁM

Nyomtatás #FileNum, txt

zárja be a fájlt a számot FÁJLSZÁM

Ellenőrizze a fájl tartalmát.

És szeretnék ajánlani egy második Eljárás információnak a fájlban - a WritePrivateProfileStringByKeyName API-funkciókat. Olvassa el a szükséges információkat a GetPrivateProfileString API-funkciókat. Most elmondom -, hogyan működik a rendszer?

1. Hozzon létre egy szabványos projekt.

3.Udalite forma és kattintson duplán a modult.

Állapítsa Funkció GetPrivateProfileString lib _

"Kernel32" Alias ​​"GetPrivateProfileStringA" (ByVal _

lpszSection $, ByVal lpszKey $, ByVal lpszDefault $, _

ByVal lpszReturnBuffer $, ByVal cchReturnBuffer, _

lpszSection -name rész

lpszKey - kulcs neve

lpszDefault - a visszaadott érték alapértelmezés szerint a vonal „”

lpszReturnBuffer - egy hely a vonal

cchReturnBuffer - mérete (hossza) Kijelölt vonal

lpszFile - fájlnév

Állapítsa Funkció WritePrivateProfileStringByKeyName% Lib _

"Kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal _

lpApplicationName As String, ByVal lpKeyName As String, _

ByVal lpString As String, ByVal lplFileName As String)

lpApplicationName - rész neve

lpKeyName - kulcs neve

lplFileName - fájlnév

5.Sozdayte szubrutin Main - írja Sub Main.

6. A Main szubrutin típusa:

test.ini hozzon létre egy fájlt, hogy a cím a „Main” kulcs „URL” _

Hívjon WritePrivateProfileStringByKeyName ( "fő", "URL", _

test.ini hozzon létre egy fájlt, hogy a cím a „Main” kulcs „E-mail” _

és a vonal „[email protected]

Hívjon WritePrivateProfileStringByKeyName ( "fő", "E-mail", _

Amikor futtatja a projektnek a C: meghajtó azonnal Test.ini fájl jön létre az alábbi tartalommal:

8: -O. Hát nem az igazság? És úgy, hogy egy kicsit nehezebb. Tehát a fájl jön létre, és mi porobuem olvasható információkat onnan. Távolítsuk el mindent, ami a sorok között „Sub Main ()” és az „End Sub”. Írja be a következő:

Készítünk egy változót, peredovat vonal

Dim SajatString As String

„Töltelék” terei

test.ini fájlt megnyitja a fájlt a változó SajatString _

felvételeket készített a cím „Main” kulcs „URL”

Hívjon GetPrivateProfileString ( "fő", "URL", "", SajatString, _

tartalmát jeleníti meg a változó SajatString

test.ini fájlt megnyitja a fájlt a változó SajatString _

regisztráltuk fejlécében a „Main” kulcs „E-mail”

Hívjon GetPrivateProfileString ( "fő", "E-mail", "", SajatString, _

tartalmát jeleníti meg a változó SajatString

Kapcsolódó cikkek