Funzione Loc

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.
Amplia le tue competenze
Esplora i corsi di formazione
Ottieni in anticipo le nuove caratteristiche
Partecipa al programma Office Insider

Queste informazioni sono risultate utili?

Grazie per i tuoi commenti e suggerimenti

Grazie per il tuo feedback! Potrebbe essere utile metterti in contatto con uno dei nostri operatori del supporto di Office.

×