Output To: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| Riga 5: | Riga 5: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Dim st, fl As File | |||
Dim b As Byte | |||
st = Open "percorso_del_file_st" For Read | |||
Print "b = "; b | fl = Open "percorso_del_file_fl" For Create | ||
<FONT color=#006400>' ''Legge l'intero file di testo "st":''</font> | |||
Read #st, b, Lof(st) | |||
<FONT color=#006400>' ''Il flusso di dati sarà reindirizzato dalla console al file "fl":''</font> | |||
<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> | |||
Print "b = "; b | |||
'''End''' | '''End''' | ||
Versione delle 16:09, 3 set 2012
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.
Public Sub Button1_Click()
Dim st, fl As File
Dim b As Byte
st = Open "percorso_del_file_st" For Read
fl = Open "percorso_del_file_fl" For Create
' Legge l'intero file di testo "st":
Read #st, b, Lof(st)
' Il flusso di dati sarà reindirizzato dalla console al file "fl":
Output To #fl
' Quindi il contenuto del "Print" sarà scritto nel file "fl",
' anziché, come di consueto, nella console:
Print "b = "; b
End
La stampa del risultato non avverà più in console, ma i dati saranno rediretti nella variabile di tipo Stream: " f ". |1| |2|
Note
[1] In taluni casi si può ottenere il medesimo risultato operando più direttamente:
...... Line Input #st, b Print #f, b
[2] Un esempio pratico può essere visto in questa pagina della Guide della Comunità del Forum di Gambas-it.org.