A vizuális alapú szövegfájlok használatával
32 33 34 1 2 35 36 37 38 39 40 41 4 42 43 44 45 46 47 5 48 49 6 50 51 52 53 54 55 56 57 58 9 59 10 60 7 61 62 63 64 65 66 67 68 69 8 70 71 72 11 73 74 75 76 77 78 14 79 80 81 31 17 15 82 16 20 83 84 85 19 86 87 88 30 89 18 90 21 91 92 93 94 95 96 97 98 99 22 100 101 102 103 104 105 23 24 106 107 108 26 109 13 110 111 29 28 112 113 114 115
Kedvezmény 50% kedvezmény a tanfolyamokhoz! Gyorsan beadni
kérés
30 tanfolyam átképzése 6900 rubelből.
Minden tanfolyam 3000 rubelből. 1500 rubel.
36 tanfolyam frissítése 1500 rubelből.
A Visual Basic programban található szövegfájlok használata.
Nemrégiben nem tudtam, hogy milyen konferencián láttam egy felvételt, aki azt kérdezte, hogy legalább egy ember megmagyarázza neki az alapmunkát a fájlokkal. Olyan egyszerűnek tűnik. De ez egyszerű azok számára, akik egyelőre programoztak, de aki most kezdte meg? Valóban egy áthatolhatatlan erdő! És kétlem, hogy bármely más webmesterünk bármikor figyelmet fordít erre. Ezért meg fogom csinálni és megpróbálom csak megmutatni az alapokat ebben a cikkben.
1. Nyisson meg egy fájlt, és olvassa el az adatokat.
Szóval, hogy zökkenőmentesen dolgozzon a szöveges fájlokkal, először meg kell nyitnia őket. Ezt a Nyílt utasítással végezzük, például:
Nyissa meg a "c: \ text.txt" bemenetet mint # 1
Jegyezd meg a fájl megnyitási módját - Bemenet (olvasáshoz). Itt a text.txt fájlt megnyitja az 1. számra történő olvasáshoz. Figyelem. A fájlszám szükséges paraméter, és mindig be kell írnia! Ha a program nem foglalkozik egy tucat nyitott fájlokkal, akkor nehéz lesz nyomon követni számozásukat. Ehhez használja a FreeFile funkciót. Visszatér egy nem használt számot (1-től 511-ig) a fájlhoz:
Dim FileNum mint egész
Nyissa meg a "c: \ text.txt" fájlt For Input As FileNum fájlként
Így megnyílt a fájl! Most ki kell venni valamit. A vonalbeviteli operátor minden egyes híváskor egy sorból olvas a nyitott fájlból. Ezért egy fájlból történő leolvasáshoz létre kell hoznia egy hurokot, amely ezt a kijelentést meghívja, amíg el nem éri a fájl végét:
A hurok a fájl végének eléréséig fut
Végezze el az EOF (FileNum)
minden egyes alkalommal, amikor a Line Input utasítást hívja, azt írja
változó új vonal
Line Input #FileNum, változó
A megnyitott fájl bezárásához használja a Close #FileNum operátort. És most itt kell nézni a gyakorlatban:
Dim FileNum mint egész
Dim txt Mint String
Dim alltxt Mint String
nyissa meg a fájlt olvasási üzemmódban
Nyissa meg a "c: \ text.txt" fájlt For Input As FileNum fájlként
futtassa a fenti ciklust
Végezze el az EOF (FileNum)
olvassa el a sorból a fájlt a FileNum számmal és tegye be a
Line bemenet #FileNum, txt
Most hozzáadjuk a txt változó tartalmát az alltxt változóhoz -
és a vb-konstans vbCrLf (Chr (13) + Chr (10)), mivel minden sorban
legyen egy új sor :-)
alltxt = alltxt + txt + vbCrLf
zárja be a fájlt FileNum számmal
adja ki a változó alltext tartalmát
2. Nyisson meg egy fájlt, és írjon rá adatokat.
Még könnyebb információt írni egy fájlnak. Ez a művelet csak abban különbözik az előzőtől, hogy a fájlt írási módban kell megnyitni:
Nyissa meg a "c: \ text.txt" -t a kimenethez, mint FileNum
és a hurok helyett be kell illesztenie a Print # utasítást, amely a változó tartalmát a fájlba írja:
Print #FileNum, "Visual Basic ABC"
Print #FileNum, alltext
Dim FileNum mint egész
Dim txt Mint String
nyissa meg a fájlt írási módban
Nyissa meg a "c: \ text.txt" -t a kimenethez, mint FileNum
Nyomtatás #FileNum, txt
zárja be a fájlt FileNum számmal
Ellenőrizze a fájl tartalmát.
Azt is szeretném javasolni egy másik módot, hogy írjon információt egy fájlnak - a WritePrivateProfileStringByKeyName API függvény használatával. Olvassa el a szükséges információkat az API-funkció GetPrivateProfileString használatával. Most elmondom, hogyan működik.
1. Hozzon létre egy szabványos projektet.
3. Törölje az űrlapot, és kattintson duplán a modulra.
A GetPrivateProfileString funkció kijelentése Lib _
"kernel32" Alias "GetPrivateProfileStringA" (ByVal _
lpszSection $, ByVal lpszKey $, ByVal lpszDefault $, _
ByVal lpszReturnBuffer $, ByVal cchReturnBuffer, _
lpszSection - szakasz neve
lpszKey - kulcs neve
lpszDefault - az alapértelmezett visszatérési érték a ""
lpszReturnBuffer - hely egy karakterlánchoz
cchReturnBuffer - a karakterlánc helyének mérete (hosszúsága)
lpszFile - a fájl neve
Deklarálás Funkció WritePrivateProfileStringByKeyName% Lib _
"kernel32" Alias "WritePrivateProfileStringA" (ByVal _
lpApplicationName Mint String, ByVal lpKeyName Mint String, _
ByVal lpString mint string, ByVal lplFileName stringként)
lpApplicationName - szakasz neve
lpKeyName - kulcs neve
Az lplFileName a fájl neve
5. Hozzon létre egy alprogramot Main - egyszerűen adja meg a Main Main.
6. A fő alprogramban írja be:
hozzon létre egy teszt.ini nevű fájlt, amelyben a "Fő" cím, az "URL" kulcs
Call WritePrivateProfileStringByKeyName ("Fő", "URL", _
hozzon létre egy teszt.ini nevű fájlt, amelyben a "Fő" cím, az "e-mail"
és a "[email protected]"
Call WritePrivateProfileStringByKeyName ("Fő", "eMail", _
Amikor a projektet a C meghajtón futtatja: a Test.ini fájl azonnal létrehozásra kerül a következő tartalommal:
8: -O. Nem olyan egyszerű? És egy kicsit bonyolultabbnak tartom. Így létrejön a fájl, most nézzük át az információkat innen. Törölje mindent a "Sub Main ()" és a "End Sub" sorok között. Írja be a következőket:
hozzon létre egy változót, amelyre a szöveg átadódik
Dim MyString mint string
"cucc" szóval
megnyitja a file test.ini fájlt, és a MyString _
egy sor a "Fő" fejlécből, az "URL"
Call GetPrivateProfileString ("Main", "URL", "", MyString, _
megjelenik a MyString változó tartalma
megnyitja a file test.ini fájlt, és a MyString _
a sor a fejléc "Fő", az "e-mail"
Call GetPrivateProfileString ("Main", "eMail", "", MyString, _
megjelenik a MyString változó tartalma