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