Seek
Seek é usado para se mover para uma posição alternativa no arquivo (a partir da qual você deseja ler ou gravar).
Sintaxe
Seek(Distância, Método)
Retorno
Posição atual no arquivo.
Mais informações
Distância é a medida de quantos bytes mover o cursor.
O método pode ser um dos seguintes:
- 0 - Move o cursor pela distância especificada, começando do início do arquivo
- 1 - Move o cursor pela distância especificada, a partir da posição atual no arquivo
- 2 - Move o cursor pela distância especificada, começando do final do arquivo
Exemplo
Este script mostra o conteúdo do arquivo de hosts depois de mover o cursor por 50 caracteres no arquivo:
Function Main
Dim textfile As Object
Set textfile = File.Connect("127.0.0.1")
If textfile.Open("c:\windows\system32\drivers\etc\hosts", GENERIC_READ, Open_Existing) Then
Textfile.Seek 50,0
echo(textfile.read(1024))
textfile.Close
End If
End Function