Differenze tra le versioni di "Raccogliere quanto mostrato nella finestra di un Terminale"

Versione delle 15:36, 1 set 2015

La questione è abbastanza complessa. Si tratta di capire come poter raccogliere (leggere) quanto viene mostrato all'interno di una finestra di un Terminale.

E' il caso di precisare che è non si intende capire come intercettare, ma come raccogliere tutto ciò che è leggibile, e quindi ciò che è stato già scritto ed ottenuto, nel Terminale.

Facciamo un esempio pratico: si apra un Terminale, e si lanci per esempio il comando: ls.

La domanda è: una volta che il comando ls ha esercitato la sua funzione, ed il risultato è mostrato nel terminale, come raccogliere con codice Gambas ogni riga appunto visibile nel Terminale ?

Allo stato attuale delle conoscenze di chi scrive, bisognerà trovare un compromesso fra comandi Bash e funzioni Gambas.

Uso del comando "Script"

Faremo in modo da aprire una finestra di Terminale e lanciarvi all'interno il comando Script:

Public Sub Form_Open()

  Shell "gnome-terminal -e script"

End

Nel medesimo percorso ove è posizionato l'eseguibile Gambas, sarà creato un file, chiamato: "typescript". Si comincerà a scrivere e ad usare normalmente il terminale. Conclusa la scrittura, si dovrà lanciare in Terminale il comando Exit. Questa fase finale chiuderà il Terminale, e procederà a copiare all'interno del file "typescript" quanto scritto e ritornato nel predetto Terminale, aggiungendovi dei codici speciali, leggibili ed interpretabili solo da un Terminale. Quindi, tornando in Gambas, si potrà leggere agevolmente in un nuovo Terminale, quanto presente nel file "typescript":

Public Sub Button1_Click()

 Dim bb As Byte[]
 Dim ss As String[]
 Dim s As String
 Dim i As Integer
  
' Individua il file speciale "/dev/pts/n" che sarà creato con riferimento all'apertura del nuovo Terminale:
  ss = Dir("/dev/pts", "*", gb.Device) 
  
  bb = New Byte[ss.Count]
  
  For Each s In ss
    If IsNumber(s) Then bb[Val(s)] = CByte(Val(s))
  Next
  
  i = bb.Find(0, 1)
 

' Apre un nuovo Terminale per la lettura del contenuto del file "typescript":
  Desktop.OpenTerminal

' Attende la creazione del file speciale "/dev/pts/1":
  Do
    Wait 0.01
  Loop Until Exist("/dev/pts" &/ CStr(i))
 
 ' Legge dal file "typescript", ed indirizze il contenuto al nuovo Terminale appena aperto:
    Shell "cat typescript > /dev/pts" &/ CStr(i)

End

Uso del comando "xterm -l"

Per usare questa modalità, bisognerà aver installato nel proprio sistema il Terminale "xterm".

Si dovrà lanciare il comando xterm -l:

Public Sub Button1_Click()

   Shell "xterm -l"

End

si aprirà quindi il Terminale "xterm". Nel medesimo percorso ove è posizionato l'eseguibile Gambas, verrà creato un file, il cui nome inizia con: Xterm.log. . Si potrà quindi scrivere ed utilizzare regolarmente il Terminale "xterm".

Successivamente, per rivedere quanto scritto ed ottenuto nel terminale, si dovrà andare a leggere il contenuto del predetto file.

Public Sub Button1_Click()

 Dim bb As Byte[]
 Dim ss As String[]
 Dim s As String
 Dim i As Integer
  
' Individua il file speciale "/dev/pts/n" che sarà creato con riferimento all'apertura del nuovo Terminale:
  ss = Dir("/dev/pts", "*", gb.Device) 
  
  bb = New Byte[ss.Count]
  
  For Each s In ss
    If IsNumber(s) Then bb[Val(s)] = CByte(Val(s))
  Next
  
  i = bb.Find(0, 1)
 

' Apre un nuovo Terminale per la lettura del contenuto del file "typescript":
  Desktop.OpenTerminal

' Attende la creazione del file speciale "/dev/pts/n":
  Do
    Wait 0.01
  Loop Until Exist("/dev/pts" &/ CStr(i))
 
 ' Legge dal file "typescript", ed indirizza il contenuto al nuovo Terminale appena aperto:
    Shell "cat Xterm.log.* > /dev/pts" &/ CStr(i)

End