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
Reduceți cu 50% reducere pentru cursuri! Grăbește-te să te supui
cerere
Recalificarea profesionala a 30 de cursuri de la 6900 de ruble.
Cursuri pentru toate de la 3000 de ruble. de la 1500 de ruble.
Actualizarea a 36 de cursuri de la 1500 de ruble.
Lucrul cu fișierele text din Visual Basic.
Cel mai recent, într-un koferentsii nepomnyu am văzut o bandă a unui om care a cerut ca cel puțin cineva ia explicat lucrul elementar cu fișiere. Ar părea atât de simplu. Dar acest lucru este simplu pentru cei care au progresat deja în programare, dar care tocmai au început-o? Este într-adevăr o pădure impenetrabilă! Și mă îndoiesc că vreunul dintre ceilalți Webmasteri noștri va acorda vreodată o atenție la acest lucru. Prin urmare, voi face acest lucru și voi încerca să arătăm doar elementele de bază ale acestui articol.
1. Deschideți un fișier pentru a citi informații din acesta.
Deci, pentru a lucra perfect cu fișierele text, trebuie mai întâi să le deschideți. Aceasta se face folosind declarația Open, de exemplu:
Deschideți "c: \ text.txt" pentru intrare ca # 1
Rețineți modul de deschidere al fișierului - Introducere (pentru citire). Aici, fișierul text.txt este deschis pentru citire la numărul 1. Atenție. Numărul fișierului este un parametru necesar și trebuie să îl introduceți întotdeauna! Dacă programul dvs. nu se ocupă de o duzină de fișiere deschise, atunci va fi dificil să urmăriți numerotarea acestora. Utilizați funcția FreeFile pentru a face acest lucru. Returnează un număr neutilizat (de la 1 la 511) pentru fișier:
Dim FileNum ca intreg
Deschideți "c: \ text.txt" pentru intrare ca FileNum
Deci, fișierul a fost deschis! Acum trebuie să luați ceva de la ea. Operatorul de introducere linie citește o linie din fișierul deschis de fiecare dată când este apelat. Prin urmare, pentru a citi dintr-un fișier, trebuie să creați o buclă care să apeleze această instrucțiune până când ajunge la sfârșitul fișierului:
Bucla este executată până la sfârșitul fișierului
Până la EOF (FileNum)
de fiecare dată când apelați instrucțiunea Input linie, scrie la
linie nouă variabilă
Intrare linie #FileNum, variabilă
Pentru a închide un fișier deschis, puteți utiliza funcția Close #FileNum. Iată cum ar trebui să arate în practică:
Dim FileNum ca intreg
Dim txt ca șir
Dim toate ca As String
deschideți fișierul în modul de citire
Deschideți "c: \ text.txt" pentru intrare ca FileNum
executați ciclul de mai sus
Până la EOF (FileNum)
citiți linia din fișier cu numărul FileNum și puneți-o în
Intrare linie #FileNum, txt
Acum adăugăm conținutul variabilei txt la variabila alltxt -
și vbCrLf constanta vb (Chr (13) + Chr (10)), deoarece fiecare linie
ar trebui să fie cu o linie nouă :-)
alltxt = alltxt + txt + vbCrLf
închideți fișierul cu numărul FileNum
ieșiți conținutul variabilei alltext
2. Deschideți un fișier pentru al scrie informații.
Este chiar mai ușor să scrieți informații într-un fișier. Această operație diferă de cea anterioară numai prin faptul că fișierul trebuie să fie deschis în modul de scriere:
Deschideți "c: \ text.txt" Pentru ieșire ca FileNum
și în loc de bucla, trebuie să inserați instrucțiunea Print #, care scrie conținutul variabilei în fișier:
Imprimare #FileNum, "Visual Basic ABC"
Imprimare #FileNum, alltext
Dim FileNum ca intreg
Dim txt ca șir
deschideți fișierul în modul de scriere
Deschideți "c: \ text.txt" Pentru ieșire ca FileNum
Imprimare #FileNum, txt
închideți fișierul cu numărul FileNum
Verificați conținutul fișierului.
De asemenea, doresc să sugerăm oa doua modalitate de a scrie informații într-un fișier - utilizând funcția API WritePrivateProfileStringByKeyName. Citiți aceleași informații de care aveți nevoie utilizând funcția API GetPrivateProfileString. Acum vă voi spune cum funcționează toate.
1.Creați un proiect standard.
3. Ștergeți formularul și faceți dublu clic pe modul.
Declararea funcției GetPrivateProfileString Lib _
"kernel32" Alias "GetPrivateProfileStringA" (ByVal _
lpszSection $, ByVal lpszKey $, ByVal lpszDefault $, _
ByVal lpszReturnBuffer $, ByVal cchReturnBuffer, _
lpszSection - denumirea secțiunii
lpszKey - nume cheie
lpszDefault - valoarea returnată implicită pentru șirul ""
lpszReturnBuffer - loc pentru un șir
cchReturnBuffer - dimensiunea (lungimea) locației pentru șir
lpszFile - numele fișierului
Declarați funcția WritePrivateProfileStringByKeyName% Lib _
"kernel32" Alias "WritePrivateProfileStringA" (ByVal _
lpApplicationName ca șir, ByVal lpKeyName ca șir, _
ByVal lpString ca șir, ByVal lplFileName ca șir)
lpApplicationName - numele secțiunii
lpKeyName - nume cheie
lplFileName este numele fișierului
5. Creați o subrutină Main - pur și simplu introduceți Sub Main.
6. În subrutina principală, tastați:
creați un fișier numit test.ini, în el titlul "Main", cheia "URL" _
Apelați WritePrivateProfileStringByKeyName ("Main", "URL", _
creați un fișier numit test.ini, în acesta titlul "Main", tasta "eMail" _
și linia "[email protected]"
Apelați WritePrivateProfileStringByKeyName ("Main", "eMail", _
Când executați proiectul pe unitatea C: fișierul Test.ini va fi creat imediat cu următorul conținut:
8: -O. Nu este așa de simplu? Și să o considerăm un pic mai complicată. Deci, fișierul este creat, acum să luăm în considerare informațiile de acolo. Ștergeți totul între liniile "Sub Main ()" și "End Sub". Scrieți următoarele:
a crea o variabilă la care șirul va fi trecut
Ștergeți MyString ca șir
"chestii" cu spații
deschide fișierul de testare test.ini, iar în variabila MyString _
o linie din antetul "Main", cheia "URL"
Sunați GetPrivateProfileString ("Main", "URL", "", MyString, _
conținutul variabilei MyString este afișat
deschide fișierul de testare test.ini, iar în variabila MyString _
linia din antetul "Principal", tasta "eMail"
Sunați GetPrivateProfileString ("Main", "eMail", "", MyString, _
conținutul variabilei MyString este afișat