Program: wypisujący zawartość pliku tekstowego do arkusza w różnych formach.
Przykładowa zawartość pliku (nazwa pliku “save.txt”):
101227897a1#
101228112a1#
101228179a2#
101228351a2#
101228396a3#
101228572a3#
101228598a4#
101228759a4#
101228785a1#
101228878a1#
101228900a1#
101228995a1#
101229024a1#
101229058a1#
101229073a2#
101229096a2#
101229117a1#
101229130a1#
101235120a1#
101235831a1#
101253719a2#
Kompilator: Microsoft Excel
Galeria:
Kod programu:
Sub czytaj_pliku()
Dim nazwa_pliku, linia As String
Dim zawartosc_pliku As String
i = 1
nazwa_pliku = "G:\Programowanie w aplikacjach użytkowych\save.txt"
Open nazwa_pliku For Input As #1
Do While Not EOF(1)
Input #1, linia
zawartosc_pliku = zawartosc_pliku & linia
Cells(i, 2) = linia
Cells(i, 4) = Left(Right(linia, 3), 2)
Cells(i, 5) = Left(linia, 9)
i = i + 1
Loop
Close #1
End Sub