Indirizzare dati ad un Terminale ed alla Console dell'IDE di Gambas

Mostreremo qui il caso in cui, intercettati dati da un file, essi vengono prima indirizzati contemporaneamente ad una finestra Terminale ed alla Console dell'IDE di Gambas, nonché ad una TextArea posta sul Form del progetto.

Per questo seguente esempio è necessario impostare anche il componente: gb.desktop

Private hp As File
Private fl0 As File
Private fl1 As File


Public Sub Form_Open()

' Viene aperto un Terminale:
  Desktop.OpenTerminal

End


Public Sub Button1_Click()

  hp = Open "percorso_file_di_cui_intercettare_i_dati" For Read Watch

' Viene aperto il file speciale che rappresenta la console dell'IDE di Gambas:
  fl0 = Open "/dev/pts/0" For Write

' Viene aperto il file speciale che rappresenta il Terminale aperto all'inizio:
  fl1 = Open "/dev/pts/1" For Write
  
End


Public Sub File_Read()

 Dim s As String


    Read #hp, s, -256
' Ridirige i dati dalla console di Gambas al Terminale aperto:
    Output To #fl1
' Scrive nel Terminale:
    Print s;      ' ...o anche: Write #fl1, s
 
 
' Ridirige, inoltre, i dati anche alla Console di Gambas:
     Output To #fl0
' Scrive nella Console dell'IDE di Gambas:
     Print s;      ' ...o anche: Write #fl0, s
 
' Scrive quindi anche nella "TextArea":
     TextArea1.Text = TextArea1.Text & s

End