[VB2008] Odczyt z pliku


(Podeszwaaaaaa) #1

Witam, mam taki mały problem z VisualBasic, próbuje wyświetlić zawartość pliku tekstowego:

Module Module1


    Sub Main()

        FileOpen(1, "c:\plik.txt", OpenMode.Input, OpenAccess.Read)

        Write(1)

        FileClose(1)


        Console.ReadKey(True)

    End Sub

End Module

Może ktoś napisać jak to poprawnie zrobić?


(floyd) #2

Nie znam języka VB2008, ale z ciekawości spróbowałem zrobić to co chciałeś i nawet się udało. :slight_smile: Mam nadzieję, że Ci coś to pomoże.

Po pierwsze na formie utworzyłem okienko tekstowe o nazwie TextBox1(z zaznaczoną opcją multiline) w którym będzie umieszczony odczytany tekst.

Sam procedura Module1 wyglądała tak:

Module Module1

    Sub main()

        Dim tekst As String

        FileOpen(1, "c:\plik.txt", OpenMode.Input)

        Do While Not EOF(1)

        tekst = tekst + LineInput(1)

        Loop

        FileClose(1)

        Form1.TextBox1.Text = tekst

    End Sub

End Module

Wywołanie zaś procedury umieściłem tu:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   Call main()

   End Sub

Całą procedurę można też umieścić np. tutaj lub pod dowolnym przyciskiem na formie:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

          Dim pom As String

          FileOpen(1, "c:\plik.txt", OpenMode.Input)

          Do While Not EOF(1)

          pom = pom + LineInput(1)

        Loop

         FileClose(1)

        TextBox1.Text = pom

 End Sub