Scrivere nella console (standard output) di Gambas

Da Gambas-it.org - Wikipedia.
Versione del 13 ago 2014 alle 12:13 di Vuott (Discussione | contributi) (Creata pagina con 'Per scrivere nello ''standard output'' di un programma Gambas, ossia all'interno della console del'IDE di Gambas oppure nel Terminale nel quale sia stato lanciato il nostro pr...')

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

Per scrivere nello standard output di un programma Gambas, ossia all'interno della console del'IDE di Gambas oppure nel Terminale nel quale sia stato lanciato il nostro programma Gambas a linea di comando, si potranno adottare (come il classico Print) le seguenti modalità che mostreremo nel seguente esempio:

Private fl As File
Private fd As File
Private pts As File


Public Sub Main()

' Viene utilizzata l'istruzione "Open...For Write" in funzione della terza modalità presente nella subroutine "Scrive()".

' Apre il file-device dello "standard output" in scrittura:
  fl = Open "/dev/stdout" For Write

' Apre il file-device "/dev/tty" in scrittura:
  fl = Open "/dev/tty" For Write
 
' Apre il file-descriptor dello standard out in scrittura:
  fd = Open "/proc/self/fd/1" For Write
 
' Apre il file-speciale "pts" (che andrà di volta in volta individuato) della console:
  pts = Open "/dev/pts/?" For Write

  
  Scrive()

End


Private Procedure Scrive()    ' Va a scrivere in console, o nel Terminale in cui il programma è stato lanciato, con 4 modalità


' 1 - Mediante il classico e consueto "Print":
  Print "Scrive con il 'Print'\n"
 

' 2 - Mediante il metodo "File.Save" si diversi file particolari:
  File.Save("/dev/stdout", "Scrive con 'File.Save' sul file-device '/dev/stdout' \n")
  File.Save("/dev/tty", "Scrive con 'File.Save' sul file-device '/dev/tty' \n")
  File.Save("/proc/self/fd/1", "Scrive con 'File.Save' sul file-descriptor dello standard-out\n")
  File.Save("/dev/pts/?", "Scrive con 'File.Save' sul file-speciale "pts" (da individuare di volta in volta) della console\n\n")

 
' 3 - Mediante "Open...For Write" su diversi file particolari:
  Write #fl, "Scrive con 'Open... For Write' sul file-device '/dev/stdout'\n"
  Write #fl, "Scrive con 'Open... For Write' sul file-device '/dev/tty'\n"
  Write #fd, "Scrive con 'Open... For Write' sul file-descriptor dello standard-out\n"
  Write #pts, "Scrive con 'Open... For Write' sul file-speciale "pts" (da individuare di volta in volta) della console\n\n"


' 4 - Mediante la funzione "Write" ed il metodo ".Out" della Classe "File":
  Write #File.Out, "Scrive con la funzione 'Write' ed il metodo 'File.Out'\n"

End