Nota: La funzione, il metodo, la proprietà o l'oggetto descritto in questo argomento è disabilitato se Microsoft Jet Expression Service è in esecuzione in modalità sandbox, che impedisce la valutazione delle espressioni potenzialmente pericolose. Per altre informazioni sulla modalità sandbox, cercare "modalità sandbox" nella Guida.
Restituisce un valore Long che specifica la posizione di lettura/scrittura corrente all'interno di un file aperto.
Sintassi
Loc( numfile )
L'argomento numfileargomento obbligatorio è qualsiasi numero di file valido di tipo Integer.
Osservazioni
Di seguito sono descritti i valori restituiti per ogni modalità di accesso ai file:
|
Modalità |
Valore restituito |
|
Random |
Numero dell'ultimo record letto dal file o scritto nel file. |
|
Sequential |
Posizione corrente del byte nel file divisa per 128. Le informazioni restituite da Loc per i file aperti in modalità di accesso sequenziale non vengono usate e non sono necessarie. |
|
Binary |
Posizione dell'ultimo byte letto o scritto. |
Esempio
Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
Questo esempio usa la funzione Loc per restituire la posizione di lettura/scrittura corrente all'interno di un file aperto. L'esempio presuppone che TESTFILE sia un file di testo contenente alcune righe di dati di esempio.
Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.
