Differenze tra le versioni di "Passare in runtime il numero del file-device 'pts' di un Terminale"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Il caso è quello in cui si deve passare per una qualsiasi ragione al programma Gambas ''a linea di comando'' il numero identificatore di un Terminale aperto. Per fare ciò s...') |
|||
| Riga 8: | Riga 8: | ||
<FONT color=gray>' ''Esegue il ciclo, finché non sarà stato inviato dal Terminale al programma Gambas un carattere tramite la tastiera:''</font> | <FONT color=gray>' ''Esegue il ciclo, finché non sarà stato inviato dal Terminale al programma Gambas un carattere tramite la tastiera:''</font> | ||
| − | While s | + | While IsNull(s) |
<FONT color=gray>' ''Intercetta quanto scritto nel Terminale, ove è stato lanciato il programma Gambas:''</font> | <FONT color=gray>' ''Intercetta quanto scritto nel Terminale, ove è stato lanciato il programma Gambas:''</font> | ||
Input #File.In, s | Input #File.In, s | ||
Versione delle 16:16, 13 ago 2014
Il caso è quello in cui si deve passare per una qualsiasi ragione al programma Gambas a linea di comando il numero identificatore di un Terminale aperto.
Per fare ciò si utilizzerà il file device dello standard input con la proprietà .In della Classe File:
Public Sub Main()
Dim fl As File
Dim s As String
' Esegue il ciclo, finché non sarà stato inviato dal Terminale al programma Gambas un carattere tramite la tastiera:
While IsNull(s)
' Intercetta quanto scritto nel Terminale, ove è stato lanciato il programma Gambas:
Input #File.In, s
fl = Open "/dev/pts" &/ s For Output
' Ricevuto quanto scritto nel Terminale, lo mostra nuovamente con aggiunta di altro testo nel Terminale medesimo:
Print #fl, "Numero file 'pts' = " & s
Wend
fl.Close
End
