Reindirizzare lo standard output con Output To

Come è noto, l'istruzione Output To reindirizza il flusso di dati verso un altro flusso. ^{[nota 1]}

Esempio di reindirizzamento della lettura di dati di un file verso altri due file. Poniamo il caso che nel primo file vi sia un dato. Leggeremo dunque quel dato dal primo file e reindirizziamo la lettura di tale dato verso un secondo e verso un terzo file. Al termine del processo ritroveremo scritto quel dato all'interno del secondo e del terzo file:

Public Sub Button1_Click()

  Dim a, c, d As File
  Dim b As Byte

  a = Open "/tmp/a" For Read
  c = Open "/tmp/c" For Write
  d = Open "/tmp/d" For Write

  While Not Eof(a)
    Read #a, b
' Invece di mostrare i dati in console, si reindirizza il flusso di dati letti dal file "/tmp/a" verso il secondo file "/tmp/c":
    Output To #c
' Si scrivono i dati nel secondo file mediante la funzione "Print":
    Print Chr(b)   [nota 2]

' Si reindirizza il flusso di dati letti dallo standard output (console) verso il terzo file:
    Output To #d
' Si scrivono i dati nel secondo file mediante la funzione "Write":
    write b
  Wend

 a.Close
 c.Close
 d.Close

End

Note

[1] Vedere anche l'argomento analogo nella pagina: Reindirizzare dati stringa dalla console ad un file.

[2] Se non si pone la funzione "Chr()", otterremo nel file il valore ASCII del dato letto e reindirizzato dal primo file.