{"id":581,"date":"2011-02-17T21:00:01","date_gmt":"2011-02-17T20:00:01","guid":{"rendered":"http:\/\/www.matjazev.net\/blog\/?p=581"},"modified":"2011-02-17T21:01:21","modified_gmt":"2011-02-17T20:01:21","slug":"scitenje-resursov-v-vba-koncni-primer","status":"publish","type":"post","link":"https:\/\/www.matjazev.net\/blog\/2011\/02\/17\/scitenje-resursov-v-vba-koncni-primer\/","title":{"rendered":"\u0160\u010ditenje resursov v VBA kon\u010dni primer"},"content":{"rendered":"

Za konec tega kratkega sprehoda skozi \u0161\u010ditenje resursov v okolju VBA (prvi del<\/a>, drugi del<\/a> in tretji del<\/a>), si poglejmo \u0161e zaklju\u010dni primer, torej \u0161\u010ditenje dostopa do datoteke<\/strong>.<\/p>\n

Prikazal bom preprost razred, ki hrani \u0161tevilko (VBA do datotek prihaja preko \u0161tevilk, ki jih dodeli posamezni datoteki) in v kolikor je \u0161tevilka postavljena, kar pomeni, da je bila datoteka odprta, jo ob uni\u010denju objekta zapre in uni\u010di \u0161tevilko.<\/p>\n

Z uporabo tak\u0161nega razreda oz. spremenljivke tega razreda lahko zanesemo na dejstvo, da bo vsaka datoteka, ki smo jo odprli tudi zaprta.<\/strong><\/p>\n

Razred za za\u0161\u010dito dostopa datotek<\/h2>\n

\nOption Explicit\n\n' tu hranimo ID datoteke\nPrivate idDatoteke\n\nPrivate Sub Class_Initialize()\n  ' na za\u010detku ID-ja datoteke ne poznamo,\n  ' saj datoteke \u0161e nismo odprli\n  idDatoteke = -1\nEnd Sub\n\nPrivate Sub Class_Terminate()\n  ' v kolikor smo datoteko odprli\n  ' jo tudi zapremo\n  If (idDatoteke &gt; 0) Then\n    Close #idDatoteke\n  End If\nEnd Sub\n\n' s to funkcijo datoteko odpremo in tudi izvemo ali\n' nam je odpiranje uspelo ali ne\nPublic Function Odpri(imeDatoteke As String, _\n                      vhod As Boolean) As Boolean\n  ' predpostavimo, da nam odpiranje ne bo usplo\n  Odpri = False\n\n  ' pridobimo novo \u0161tevilo\n  idDatoteke = FreeFile\n\n  ' v primeru napake odregiramo\n  On Error GoTo napaka\n\n  ' ali \u017eelimo datoteko pisati ali brati\n  If (vhod) Then\n    Open imeDatoteke For Input As idDatoteke\n  Else\n    Open imeDatoteke For Output As idDatoteke\n  End If\n\n  ' \u010de smo pri\u0161li do sem, je odpiranje uspelo\n  Odpri = True\n\n  ' kon\u010damo\n  Exit Function\n\nnapaka:\n  ' \u010de smo tu, pomeni, da odpiranje ni uspelo\n  idDatoteke = -1\nEnd Function\n\n' samo okraj\u0161ava gornje funkcije\nPublic Function OdpriZaBranje(imeDatoteke As String) _\n                              As Boolean\n  OdpriZaBranje = Me.Odpri(imeDatoteke, True)\nEnd Function\n\n' samo okraj\u0161ava gornje funkcije\nPublic Function OdpriZaPisanje(imeDatoteke As String) _\n                              As Boolean\n  OdpriZaPisanje = Me.Odpri(imeDatoteke, False)\nEnd Function\n\n' lastnost, ki nam vrne identifikacijsko\n' \u0161tevilko datoteke, preko katere se bomo\n' nanjo sklicevali\nPublic Property Get id()\n  id = idDatoteke\nEnd Property\n<\/pre><\/p>\n
Primer uporabe<\/h2>\n
\nOption Explicit\n\nSub beriDatoteko(ime As String)\n  ' ustvarimo spremenljivko\n  Dim dat As New clsDatoteka\n\n  ' v kolikor datoteke ne moremo odpreti kon\u010damo\n  If (Not dat.OdpriZaBranje(ime)) Then Exit Sub\n\n  ' spremenljivka, kamor bomo prebrali vsebino\n  Dim vrstica\n\n  ' vrtimo se dokler ne pridemo na konec datoteke\n  Do While Not EOF(dat.id)\n    Line Input #1, vrstica ' preveremo vsebino\n    MsgBox vrstica ' in jo izpi\u0161emo\n  Loop\n\n  ' datoteka se bo zaprla sama\nEnd Sub\n\nSub pisiDatoteko(ime As String)\n  ' ustvarimo spremenljivko\n  Dim dat As New clsDatoteka\n\n  ' v kolikor datoteke ne moremo odpreti kon\u010damo\n  If (Not dat.OdpriZaPisanje(ime)) Then Exit Sub\n\n  ' pi\u0161emo\n  Print #dat.id, "Prva vrstica v datoteki"\n  Print #dat.id, "Druga vrstica v datoteki"\n  Print #dat.id, "Tretja vrstica v datoteki"\nEnd Sub\n\nSub Test()\n  Dim ime As String\n\n  ime = "d:\\test.out"\n\n  ' to ne bo uspelo\n  beriDatoteko ime\n\n  ' \u010de ste ustrezno ureili ime bo to uspelo\n  pisiDatoteko ime\n\n  ' \u010de je uspelo pisanje, bo tudi branje\n  beriDatoteko ime\nEnd Sub\n<\/pre><\/p>\n","protected":false},"excerpt":{"rendered":"
Za konec tega kratkega sprehoda skozi \u0161\u010ditenje resursov v okolju VBA (prvi del, drugi del in tretji del), si poglejmo \u0161e zaklju\u010dni primer, torej \u0161\u010ditenje dostopa do datoteke. Prikazal bom preprost razred, ki hrani \u0161tevilko (VBA do datotek prihaja preko \u0161tevilk, ki jih dodeli posamezni datoteki) in v kolikor je \u0161tevilka postavljena, kar pomeni, da … Continue reading \u0160\u010ditenje resursov v VBA kon\u010dni primer<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,35,34],"tags":[41,66,65,38],"_links":{"self":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts\/581"}],"collection":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/comments?post=581"}],"version-history":[{"count":7,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts\/581\/revisions"}],"predecessor-version":[{"id":588,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts\/581\/revisions\/588"}],"wp:attachment":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/media?parent=581"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/categories?post=581"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/tags?post=581"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}