Intercettare quanto viene scritto manualmente nella console o in un Terminale

Tenendo aperto il progetto di un applicativo, è possibile scrivere manualmente nella console dell'IDE e raccogliere dall'applicativo medesimo o da altro applicativo ciò che è stato scritto.
Alla pressione del tasto "Invio", tutto ciò che sarà stato scritto nella console, verrà raccolto, e potrà essere dunque gestito.

L'applicativo intercetta i dati scritti nella propria console

Di seguito mostreremo i casi in cui nella console di un progetto viene scritto del testo, manualmente dall'utente o ricevuto perché inviati dal programma stesso o dall'esterno. Successivamente, affinché tale testo possa essere raccolto, sarà necessario premere il tasto Invio.

Uso di Input

E' possibile utilizzare il comando Input per raccogliere quanto scritto nella console del programma (si dovrà comunque sempre premere il tasto "Invio"). Il comando Input verrà utilizzato senza specificare il flusso, cosicché verrà intercettato lo standard input.

Public Sub Button1_Click()

 Dim s As String
  
  Input s

  TextArea1.Text &= s & "\n"

End

Ponendo sotto osservazione file speciali della console

In quest'altro caso la console riceve dati, ad essa inviati tramite file speciali posti sotto osservazione. Ricevuto o scritto manualmente il testo, si dovrà, come già detto, premere anche in questo caso il tasto "Invio". |1|

Private fl As File


Public Sub Form_Open()

   fl = Open "/dev/stdout" For Read Watch

' oppure si può utilizzare il file-device "tty":
   fl = Open "/dev/tty/" For Read Watch

' oppure si può utilizzare il relativo file-descriptor in "/proc/self/fd/2":
   fl = Open "/proc/self/fd/2" For Read Watch

' oppure anche il relativo file speciale in "/dev/pts"
' che bisognerà individuare, caso per caso:
   fl = Open "/dev/pts/numero" For Read Watch

End


Public Sub File_Read()

 Dim s As String
 
  TextArea1.Text = TextArea1.Text & fl.ReadLine()

End

L'applicativo intercetta e scrive in tempo reale i dati scritti manualmente in un Terminale

In modo del tutto analogo al precedente, in questo altro esempio, mentre si scrive manualmente in un terminale, il programma Gambas intercetta e riproduce in tempo reale quanto si sta in quel momento scrivendo con la tastiera. Dalle prove fatte non sempre alla prima pressione sul tasto il dato/carattere, inviato dalla tastiera, viene intercettato dal programma Gambas. Si è avuto un migliore risultato, per intercettare un carattere, premendo il medesimo tasto velocemente due volte.

Il codice è semplicemente il seguente:

Private pr As Process


Public Sub Form_Open()

' Bisognerà individuare, caso per caso,
' il file speciale in "/dev/pts/", relativo al Terminale:
  pr = Shell "cat < /dev/pts/N" For Read As "pr"

End


Public Sub pr_Read()

 Dim s As String

   Read #pr, s, -256

' Vediamo il risultato scritto nella console ed in una "TextEdit":
     Print s

    TextEdit1.Text &= s

End

Un programma-Gambas invia e riceve testo ad/da altro applicativo-Gambas

In questo caso un applicativo-Gambas invia del testo nella console di un altro applicativo-Gambas. Successivamente si scriverà del testo nella console di quest'altro applicatvo, e si premerà il tasto "Invio" della tastiera. Il primo applicativo riceverà nella sua console quanto scritto ed inviato dal secondo applicativo.

Private fl As File
Private fl2 As File


Public Sub Form_Open()

' Per inviare del testo alla console dell'altro applicativo:
  fl = Open "/proc/numero_processo_dell'altro_applicativo/fd/2" For Write

' oppure si può utilizzare il relativo file speciale in "/dev/pts":
  fl = Open "/dev/pts/numero" For Write


' Per ricevere quanto scritto nella console dell'altro applicativo ed inviato:
  fl2 = Open "/proc/numero_processo_dell'altro_applicativo/fd/2" For Read Watch

' oppure si può utilizzare il relativo file speciale in "/dev/pts":
  fl2 = Open "/dev/pts/numero" For Read Watch

End


Public Sub Button1_Click()

' Si invia del testo alla console dell'altro applicativo:
   Write #fl, "testo qualsiasi"
' oppure si può utilizzare "Print":
   Print #fl, "testo qualsiasi"
' o anche "Output To" e "Print":
   Output To #fl
   Print "testo qualsiasi"

End


Public Sub File_Read()

 Dim s As String

' Si legge quanto scritto nella console dell'altro applicativo ed inviato:
   Read #fl2, s, -256

   TextEdit1.Text = TextEdit1.Text & s

End

---

Note

[1] In via generale abbiamo che l'uso di:

• /dev/pts/numero è possibile per scrivere in console o Terminale; per leggere il testo scritto ed inviato (ossia premuto il tasto "Invio" della tastiera) dalla medesima console o da medesimo Terminale, nonché per leggere in tempo reale quanto scritto nel Terminale;
• /proc/num_processo/fd/2 è possibile per scrivere e per leggere in console o Terminale;
• /dev/stdout è possibile solo per leggere il testo scritto ed inviato (ossia premuto il tasto "Invio" della tastiera) dalla medesima console o dal medesimo Terminale.