Funzione Loc
Aggiornamento: novembre 2007
Restituisce un valore Long che specifica la posizione corrente di lettura/scrittura in un file aperto.
Public Function Loc(ByVal FileNumber As Integer) As Long
Parametri
- FileNumber
Obbligatorio. Qualsiasi valore Integer con il quale si rappresenta un numero di file valido.
Eccezioni
Tipo di eccezione |
Numero di errore |
Condizione |
---|---|---|
FileNumber non esiste. |
||
Modalità di accesso ai file non valida. |
Se si esegue l'aggiornamento delle applicazioni Visual Basic 6.0 che utilizzano la gestione degli errori non strutturata, vedere la colonna "Numero di errore". È possibile confrontare il numero di errore con la Proprietà Number (oggetto Err). Se possibile, tuttavia, si consiglia di sostituire il controllo dell'errore con la procedura illustrata nella sezione Cenni preliminari sulla gestione strutturata delle eccezioni per Visual Basic.
Note
La funzione Loc è in base zero. Se viene utilizzata per ottenere il primo byte in un file, verrà restituito 0.
La funzione Loc viene fornita a scopo di compatibilità con le versioni precedenti e può influire sulle prestazioni. Per le applicazioni non preesistenti, l'oggetto My.Computer.FileSystem garantisce prestazioni migliori. Per ulteriori informazioni, vedere Accesso ai file con Visual Basic.
Di seguito vengono descritti i valori restituiti per ciascun tipo di modalità di accesso al file:
Modalità |
Valore restituito |
---|---|
Random |
Numero dell'ultimo record letto o scritto nel file. |
Sequential |
Posizione dei byte corrente divisa per 128. Le informazioni restituite da Loc per file sequenziali tuttavia non vengono utilizzate e non sono necessarie. |
Binary |
Posizione dell'ultimo byte letto o scritto. |
Esempio
Nell'esempio riportato di seguito la funzione Loc viene utilizzata per restituire la posizione corrente di lettura/scrittura in un file aperto. Nell'esempio MyFile è un file di testo nel quale sono incluse alcune righe di dati di esempio.
Dim location As Long
Dim oneChar As Char
FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Binary)
While location < LOF(1)
Input(1, oneChar)
location = Loc(1)
WriteLine(1, location & ControlChars.CrLf)
End While
FileClose(1)
Note per gli sviluppatori di applicazioni per Smart Device
Questa funzione non è supportata.
Requisiti
Spazio dei nomi: Microsoft.VisualBasic
**Modulo:**FileSystem
**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)