Obsługa plików > Input - polecenie | | Drukuj |
Polecenie umożliwia wczytanie linii tekstu z pliku dyskowego lub z klawiatury do podanych zmiennych. Jeżeli wprowadzono więcej linii tekstu niż zostało zdefiniowanych zmiennych to zostaną one umieszczone w ostatniej z podanych zmiennych.
Jeżeli plik, z którego odczytywane są dane jest otwarty w trybie BINARY, to wczytywanie danych do zminnych typu Char, Int, Long i Float odbywa się binarnie tzn odpowiednio po 1, 2, 4, lub 8 bajtów.
Polecenie wczytywania z klawiatury wyświetla okno dialogowe, w którym można wprowadzić dowolną liczbę linii tekstu. Kolejne linie są umieszczane w kolejnych zmiennych.
Składnia
Int Input String prompt, String lista_zm
lub
Int Input Int #numerPliku, String lista_zm
Argumenty
Typ |
Nazwa |
Opis |
prompt |
Tekst wypisywany jako zachęta do wprowadzania danych. Tekst zachęty powinien być wpisany bezpośrednio w linii polecenia, a nie deklarowany jako zmienna. |
|
numerPliku |
Numer identyfikujący plik. |
|
lista_zm |
Lista zmiennych tekstowych, do których będą wczytane kolejne linie wejściowe. |
Wartość zwracana
Różna od zera, w przypadku poprawnego wczytania linii do wszystkich zmiennych.
Zero, w przypadku niepowodzenia lub końca pliku.
Dla plików otwartych w trybie BINARY wczytywanych binarnie, informacja o poprawnym wykonaniu polecenia tylko w przypadku wczytania dokładnie potrzebnej liczby bajtów.
Przykład
//Zdefiniowanie nazwy pliku wraz ze ścieżką dostępu
String Plik_w = KatalogFirmy() + "Plik.txt"
//Otwarcie nowego pliku
Int Numer_pliku = Open Plik_w For output
//Wprowadzenie danych z klawiatury
String Wiersz1
Input "Proszę wpisać 1 wiersz tekstu", Wiersz1
//Wpisanie wprowadzonych danych do pliku
Print # Numer_pliku; Wiersz1
//Wpisanie wprowadzonych danych na ekran
Print "Wpisano do pliku wiersz:", Wiersz1, LF
//Zamknięcie pliku
Close Numer_pliku
//Otwarcie pliku do odczytu
Int Numer_plik = Open Plik_w For input
//Odczytanie jednej linii z pliku
String Zawartosc
Input # Numer_plik, Zawartosc
//Wpisanie odczytanych danych na ekran
Print "Odczytano z pliku wiersz:", Zawartosc, LF
//Zamknięcie pliku
Close Numer_plik