IBM Lotus Symphony


Instrukcja Line Input # [środowisko wykonawcze]

Służy do odczytywania i umieszczania w zmiennej łańcuchów z pliku o dostępie sekwencyjnym.

Składnia

Line Input #NumerPliku As Integer, Zmienna As String

Parametry

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.

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe