Gambas-it

Gambas3 => Programmazione => Topic aperto da: Top Fuel - 19 Novembre 2013, 00:22:37

Titolo: Mandare l'handle di un file come parametro
Inserito da: Top Fuel - 19 Novembre 2013, 00:22:37

E' possibile fare una cosa del genere?

Codice: [Seleziona]

Dim handle As File
handle = Open miofile As Read 'o Write
Miaprocedura(handle)

Potrebbe risparmiarmi un pò di righe di codice, ma non ho trovato niente in proposito.

Titolo: Re: Mandare l'handle di un file come parametro
Inserito da: vuott - 19 Novembre 2013, 00:24:02

...cioè, scusa, passare ad una sub-procedura una variabile di tipo File ?

Titolo: Re: Mandare l'handle di un file come parametro
Inserito da: Top Fuel - 19 Novembre 2013, 00:24:49

Yes, oui, ja, da. :)

Titolo: Re: Mandare l'handle di un file come parametro
Inserito da: vuott - 19 Novembre 2013, 00:29:07

Mi pare che funzioni regolarmente:   :-\

Codice: gambas [Seleziona]

Public Sub Form_Open()

  Dim fl As File
    
  fl = Open "/percorso/del/mio/file" For Read
  
  miaprocedura(fl)

  fl.Close

End


Private Procedure miaprocedura(hf As File)
  
  Dim s As String
  
  Read #hf, s, -256
  Print s
  
End

Titolo: Re: Mandare l'handle di un file come parametro
Inserito da: Top Fuel - 19 Novembre 2013, 00:34:36

Grazie. ;)
Non sapevo se era possibile farlo con variabili non numeriche o stringa.

Titolo: Re: Mandare l'handle di un file come parametro
Inserito da: vuott - 19 Novembre 2013, 00:36:08

Però basterebbe anche soltanto provare !   :hatecomputer:

Titolo: Re: Mandare l'handle di un file come parametro
Inserito da: Top Fuel - 19 Novembre 2013, 00:43:47

Così almeno se serve a qualcuno c'è la risposta qui. :)