Lof: differenze tra le versioni

Versione attuale delle 15:48, 10 giu 2024

La funzione Lof() restituisce un valore di tipo Long che rappresenta la lunghezza (ossia la quantità di byte) di un file aperto.

La sintassi è:

lughezzaFile = Lof(file)

Esempio:

Public Sub Main()

 Dim fl As File

 fl = Open "/percorso/del/file" For Read

 Print "La lunghezza del file è: "; Lof(fl)

 fl.Close

End

Se il flusso non è un file, bensì un processo, allora la funzione "Lof()" restituisce il numero di byte che possono essere letti con una sola volta:

Private pro As Process

......

Public Sub Processo_Read()

 Dim b As String

 Read #pro, b, Lof(Last)

End

@@ Riga 1: / Riga 1: @@
-La funzione '''Lof''' restituisce la lunghezza di un file aperto.
+La funzione '''Lof()''' restituisce un valore di tipo ''Long'' che rappresenta la lunghezza (ossia la quantità di byte) di un file aperto.
 La sintassi è:
   lughezzaFile = Lof(file)
 Esempio:
-  '''Public''' Sub Button1_Click()
+  Public Sub Main()
    Dim fl As File
-   fl = Open "percorso_file" For Read
+  fl = Open "<FONT Color=darkgreen>''/percorso/del/file''</font>" For Read
+  Print "La lunghezza del file è: "; <FONT Color=#B22222>Lof</font>(fl)
-   Print "La lunghezza del file è: "; Lof(fl)
+  fl.Close
-  '''End'''
+  End
+===Uso di "Lof()" con una variabile di tipo "Process"===
-Se il flusso non è un file, bensì un processo, allora la funzione ''Lof'' restituisce il numero di byte che possono essere letti con una sola volta:
+Se il flusso non è un file, bensì un processo, allora la funzione "Lof()" restituisce il numero di byte che possono essere letti con una sola volta:
-  '''Public''' Sub processo_Read()
+  Private pro As Process
+ ......
+ Public Sub Processo_Read()
    Dim b As String
-   Read #Last, b, Lof(Last)
+  Read #pro, b, <FONT Color=#B22222>Lof</font>(Last)
-  '''End'''
+  End