Funzione Seek

Importante :  Il presente articolo è stato tradotto automaticamente, vedere la dichiarazione di non responsabilità. Per visualizzare la versione inglese dell'articolo, fare clic qui.

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 con l'istruzione Open .

Sintassi

Seek ( numfile )

Il obbligatorio numfileargomento è un numero intero che contiene un valido numero di file.

Osservazioni

Ricerca restituisce un valore compreso tra 1 e 2.147.483.647 (equivalente a 2 ^ 31-1), inclusi.

Di seguito vengono descritti i valori restituiti per ogni modalità di accesso al file.

Modalità

Valore restituito

Random

Numero di record successivo letto o scritto

Binario,
Output
accodare,
Input

Posizione del byte in cui verrà eseguita l'operazione successiva. Il primo byte in un file si trova in posizione 1, il secondo byte alla posizione 2 e così via.


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 viene usata la funzione Seek per restituire la posizione corrente del file. Si presuppone che TESTFILE è un file contenente i record di tipo definito dall'utente Record.

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

Per i file aperti in modalità casuale, Seek restituisce numero del record successivo.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Per i file aperti in modalità diverse da casuale, Seek restituisce la posizione del byte in cui verrà eseguita l'operazione successiva. Si supponga TESTFILE è un file contenente alcune righe di testo.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Nota : Dichiarazione di non responsabilità per la traduzione automatica: Il presente articolo è stato tradotto tramite un software di traduzione automatica e non da una persona. Microsoft offre le traduzioni automatiche per consentire a coloro che non conoscono la lingua inglese di leggere gli articoli sui prodotti, sui servizi e sulle tecnologie Microsoft. Dal momento che l'articolo è stato tradotto automaticamente, potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli.

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.

×