Differenze tra le versioni di "Output To"

Da Gambas-it.org - Wikipedia.
Riga 4: Riga 4:
  
  
Nell'esempio seguente abbiamo un file, dal quale leggiamo; e creeremo un nuovo file, nel quale scriveremo quanto letto dal primo file:
+
Nell'esempio seguente leggiamo da un file, contenente un valore di tipo ''Long'', e creiamo un nuovo file, nel quale scriveremo quanto letto dal primo file:
 
+
  '''Public''' Sub Main()
  '''Public''' Sub Button1_Click()
 
 
   
 
   
 
   Dim st, fl As File
 
   Dim st, fl As File
   Dim b As Byte
+
   Dim l As Long
+
 
+
   st = Open "<FONT color=gray>''/percorso/del/file/da/leggere''</font>" For Read
   st = Open "percorso_del_file_ST" For Read
 
 
  fl = Open "percorso_del_file_FL" For Create
 
 
   
 
   
 +
  fl = Open "<FONT color=gray>''/percorso/del/file/da/scrivere''</font>" For Create
 
   
 
   
  <FONT color=#006400>' ''Legge l'intero file di testo "st":''</font>
+
  <FONT color=#006400>' ''Legge il valore di tipo "Long":''</font>
   Read #st, b, Lof(st)
+
   Read #st, l
 
   
 
   
 
  <FONT color=#006400>' ''Si impone che il flusso di dati sarà reindirizzato dalla console al file "fl":''</font>
 
  <FONT color=#006400>' ''Si impone che il flusso di dati sarà reindirizzato dalla console al file "fl":''</font>
 
   <FONT color=#B22222>Output To</font> #fl
 
   <FONT color=#B22222>Output To</font> #fl
 
   
 
   
  <FONT color=#006400>' ''Quindi il contenuto del "Print" sarà scritto nel file "fl", anziché, come di consueto, nella console:''</font>
+
  <FONT color=#006400>' ''Quindi l'istruzione "Write" scrive nel file "fl", anziché, come sarebbe qui previsto, nella console:''</font>
   Print "b = "; b
+
   Write l As Long
 +
 +
  fl.Close
 +
  st.Close
 
   
 
   
 
  '''End'''
 
  '''End'''
 
+
La stampa del risultato non avverrà più in console/terminale, ma i dati saranno rediretti nella variabile "fl" che punta al file da scrivere. <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
La stampa del risultato non avverrà più in console, ma i dati saranno rediretti nella variabile "fl", e dunque nel file "FL". <SUP>&#091;[[#Note|nota 1]]&#093;</sup> <SUP>&#091;[[#Note|nota 2]]&#093;</sup>
 
  
  
  
 
=Note=
 
=Note=
[1] In taluni casi si può ottenere il medesimo risultato operando più direttamente:
+
[1] Un esempio pratico può essere visto in questa pagina: [[Indirizzare dati ad un Terminale ed alla Console dell'IDE di Gambas]].
......
 
Read #st, b, Lof(st)
 
 
Print #fl, b
 
 
 
[2] Un esempio pratico può essere visto in questa pagina: [[Indirizzare_dati_ad_un_Terminale_ed_alla_Console_dell'IDE_di_Gambas|Indirizzare dati ad un Terminale ed alla Console dell'IDE di Gambas]].
 

Versione delle 03:09, 2 set 2022

L'istruzione Output To redirige l'uscita, ossia lo standard output, predefinita in un altro flusso.

L'uscita predefinita viene usata da PRINT e WRITE, quando non gli vengono specificati argomenti specifici.


Nell'esempio seguente leggiamo da un file, contenente un valore di tipo Long, e creiamo un nuovo file, nel quale scriveremo quanto letto dal primo file:

Public Sub Main()

 Dim st, fl As File
 Dim l As Long
 
 st = Open "/percorso/del/file/da/leggere" For Read

 fl = Open "/percorso/del/file/da/scrivere" For Create

' Legge il valore di tipo "Long":
 Read #st, l

' Si impone che il flusso di dati sarà reindirizzato dalla console al file "fl":
 Output To #fl

' Quindi l'istruzione "Write" scrive nel file "fl", anziché, come sarebbe qui previsto, nella console:
 Write l As Long

 fl.Close
 st.Close

End

La stampa del risultato non avverrà più in console/terminale, ma i dati saranno rediretti nella variabile "fl" che punta al file da scrivere. [nota 1]


Note

[1] Un esempio pratico può essere visto in questa pagina: Indirizzare dati ad un Terminale ed alla Console dell'IDE di Gambas.