FileSystem.Seek Yöntem

Kaynak:

FileSystem.vb

Kaynak:

FileSystem.vb

Kaynak:

FileSystem.vb

public:
 static long Seek(int FileNumber);

public static long Seek (int FileNumber);

static member Seek : int -> int64

Public Function Seek (FileNumber As Integer) As Long

Parametreler

Döndürülenler

Long işlevi kullanılarak FileOpen açılan bir dosyada geçerli okuma/yazma konumunu belirten veya işlevi kullanılarak açılan bir dosyada bir sonraki okuma/yazma işleminin FileOpen konumunu ayarlar.

Özel durumlar

Örnekler

Bu örnek, geçerli dosya konumunu döndürmek için işlevini kullanır Seek . Örnekte, yapısının Recordkayıtlarını içeren bir dosya olduğu varsayılırTestFile.

Structure Record   ' Define user-defined type.
    Dim ID As Integer
    Dim Name As String
End Structure

Modda Random açılan dosyalar için sonraki Seek kaydın sayısını döndürür.

FileOpen(1, "TESTFILE", OpenMode.Random)
Do While Not EOF(1)
    WriteLine(1, Seek(1))   ' Write record number.
    FileGet(1, MyRecord, -1)   ' Read next record.
Loop
FileClose(1)

Mod dışında Random modlarda açılan dosyalar için, Seek sonraki işlemin gerçekleştiği bayt konumunu döndürür. Birkaç satır metin içeren bir dosya olduğunu varsayalım TestFile .

' Report character position at beginning of each line.
Dim TextLine As String
FileOpen(1, "TESTFILE", OpenMode.Input)   ' Open file for reading.
While Not EOF(1)
    ' Read next line.
    TextLine = LineInput(1)
    ' Position of next line.
    MsgBox(Seek(1))
End While
FileClose(1)

Bu örnekte, bir dosyadaki Seek bir sonraki okuma veya yazma işleminin konumunu ayarlamak için işlevi kullanılır.

Mod dışında Random modlarda açılan dosyalar için, Seek sonraki işlemin gerçekleştirildiği bayt konumunu ayarlar. Birkaç satır metin içeren bir dosya olduğunu varsayalım TestFile .

Dim someText As String = "This is a test string."
' Open file for output.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Move to the third character.
Seek(1, 3)
Input(1, someText)
Console.WriteLine(someText)
FileClose(1)

Açıklamalar

Seek 1 ile 2.147.483.647 (2^31 - 1'e eşdeğer) (dahil) arasında bir değer döndürür.

Aşağıda her dosya erişim modu için dönüş değerleri açıklanmaktadır:

Ayrıca bkz.

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Visual Basic'te Dosyaları Okuma
• Visual Basic'te Dosyalara Yazma

Kaynak:

FileSystem.vb

Kaynak:

FileSystem.vb

Kaynak:

FileSystem.vb

public:
 static void Seek(int FileNumber, long Position);

public static void Seek (int FileNumber, long Position);

static member Seek : int * int64 -> unit

Public Sub Seek (FileNumber As Integer, Position As Long)

Parametreler

Özel durumlar

Örnekler

Bu örnek, geçerli dosya konumunu döndürmek için işlevini kullanır Seek . Örnekte, yapısının Recordkayıtlarını içeren bir dosya olduğu varsayılırTestFile.

Structure Record   ' Define user-defined type.
    Dim ID As Integer
    Dim Name As String
End Structure

Modda Random açılan dosyalar için sonraki Seek kaydın sayısını döndürür.

FileOpen(1, "TESTFILE", OpenMode.Random)
Do While Not EOF(1)
    WriteLine(1, Seek(1))   ' Write record number.
    FileGet(1, MyRecord, -1)   ' Read next record.
Loop
FileClose(1)

Mod dışında Random modlarda açılan dosyalar için, Seek sonraki işlemin gerçekleştiği bayt konumunu döndürür. Birkaç satır metin içeren bir dosya olduğunu varsayalım TestFile .

' Report character position at beginning of each line.
Dim TextLine As String
FileOpen(1, "TESTFILE", OpenMode.Input)   ' Open file for reading.
While Not EOF(1)
    ' Read next line.
    TextLine = LineInput(1)
    ' Position of next line.
    MsgBox(Seek(1))
End While
FileClose(1)

Bu örnekte, bir dosyadaki Seek bir sonraki okuma veya yazma işleminin konumunu ayarlamak için işlevi kullanılır.

Mod dışında Random modlarda açılan dosyalar için, Seek sonraki işlemin gerçekleştirildiği bayt konumunu ayarlar. Birkaç satır metin içeren bir dosya olduğunu varsayalım TestFile .

Dim someText As String = "This is a test string."
' Open file for output.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Move to the third character.
Seek(1, 3)
Input(1, someText)
Console.WriteLine(someText)
FileClose(1)

Açıklamalar

Seek 1 ile 2.147.483.647 (2^31 - 1'e eşdeğer) (dahil) arasında bir değer döndürür.

Aşağıda her dosya erişim modu için dönüş değerleri açıklanmaktadır:

Ayrıca bkz.

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Visual Basic'te Dosyaları Okuma
• Visual Basic'te Dosyalara Yazma