IBM Lotus Symphony
|
Służy do odczytywania i umieszczania w zmiennej łańcuchów z pliku o dostępie sekwencyjnym.
Line Input #NumerPliku As Integer, Zmienna As String
NumerPliku: Numer pliku, który zawiera dane do odczytu. Plik należy wcześniej otworzyć za pomocą instrukcji Open z użyciem słowa kluczowego INPUT.
Zmienna: Nazwa zmiennej, w której ma zostać zapisany wynik.
Instrukcja Line Input# umożliwia odczytywanie łańcuchów z otwartego pliku do zmiennej. Zmienne łańcuchowe są odczytywane wiersz po wierszu do pierwszego znaku powrotu karetki (Asc=13) lub znaku nowego wiersza (Asc=10). Znaczniki końca wiersza nie są umieszczane w łańcuchu wynikowym.
Sub PrzykladPracyZPlikiem
Dim iNumer As Integer
Dim sWiersz As String
Dim aPlik As String
Dim sKom as String
aPlik = "c:\data.txt"
iNumer = Freefile
Open aPlik For Output As #iNumer
Print #iNumer, "To jest wiersz tekstu"
Print #iNumer, "To jest inny wiersz tekstu"
Close #iNumer
iNumer = Freefile
Open aPlik For Input As iNumer
While not eof(iNumer)
Line Input #iNumer, sWiersz
If sWiersz <>"" then
sKom = sKom & sWiersz & chr(13)
end if
wend
Close #iNumer
Msgbox sKom
End Sub