CAD programy 4M
(read-char [file-descriptor])
Přečte jeden znak.
Tato funkce čte jeden znak ze souboru nebo klávesnice. Pokud je součástí deskriptoru souboru (přiřazen pomocí open funkce), read-char čte ze souboru. Když chybí deskriptor souboru, čte read-chart z klávesnice.
Funkce read-char ve skutečnosti nevrací písmeno, ale vrací kód ASCII tohoto písmena. Abyste skutečně viděli písmeno, musíte převést kód ASCII pomocí funkce chr.
PŘÍKLAD:
Pro následující příklad předpokládejme, že soubor file sample.lsp existuje a první řádek je "C:\Sample\First.txt".
Tato funkce čte jeden znak ze souboru nebo klávesnice. Pokud je součástí deskriptoru souboru (přiřazen pomocí open funkce), read-char čte ze souboru. Když chybí deskriptor souboru, čte read-chart z klávesnice.
Funkce read-char ve skutečnosti nevrací písmeno, ale vrací kód ASCII tohoto písmena. Abyste skutečně viděli písmeno, musíte převést kód ASCII pomocí funkce chr.
PŘÍKLAD:
Pro následující příklad předpokládejme, že soubor file sample.lsp existuje a první řádek je "C:\Sample\First.txt".
Kód | Vrací |
---|---|
(setq file (open "sample.lsp" "r")) | |
(setq c (read-char file)) | 67 |
(setq a (chr c)) | "C" |
(read-char) [press A] |
Waits for you to press a key. 65 |