Primer1- Otvaranje fajlova sekvencijalno i pomoću File System Object-a, kao i čitanje podataka iz fajla

 

Prethodna strana


 

Option Explicit

Private Sub Command1_Click()

Dim Tekst As String

Dim Fajl As String

Dim Izlazni As Integer

Fajl = App.Path & "\tekst_fajl.txt"

Tekst = "Napisano pomocu sekvencijalnog upisa:"

Tekst = Tekst & InputBox("Unesite tekst")

Izlazni = FreeFile

If Tekst <> "Napisano pomocu sekvencijalnog upisa:" Then

    Open Fajl For Append As Izlazni

    MsgBox "Fajl tekst_fajl.txt je otvoren"

    Print #Izlazni, Tekst

    MsgBox "Uneti tekst: " & Tekst & " je upisan u fajl tekst_fajl.txt "

    Close #Izlazni

    MsgBox "Fajl tekst_fajl.txt je zatvoren"

End If

End Sub

 

Private Sub Command2_Click()

Dim Tekst As String

Dim FajlSisObjekat As FileSystemObject

Dim txtfajl As TextStream

Tekst = "Napisano pomocu File System Object-a :"

Tekst = Tekst & InputBox("Unesite tekst")

If Tekst <> "Napisano pomocu File System Object-a :" Then

    Set FajlSisObjekat = CreateObject("Scripting.FileSystemObject")

    Set txtfajl = FajlSisObjekat.OpenTextFile(App.Path & "\tekst_fajl.txt", ForAppending, True)

    MsgBox "Fajl tekst_fajl.txt je otvoren"

    txtfajl.WriteLine Tekst

    MsgBox "Uneti tekst: " & Tekst & " je upisan u fajl tekst_fajl.txt "

    txtfajl.Close

    MsgBox "Fajl tekst_fajl.txt je zatvoren"

End If

End Sub

 

Private Sub Command3_Click()

Dim MyString As String

List1.Clear

Open App.Path & "\tekst_fajl.txt" For Input As FreeFile   ' Otvara fajl za citanje podataka

Do While Not EOF(1)

   Input #1, MyString    ' Podaci su procitani

   List1.AddItem MyString   'Podaci su upisani u listu

Loop

Close #1    'Fajl test_fajl.txt je zatvoren"

End Sub


Prethodna strana