例043ファイルの場所

Stream.Seek（Int64、SeekOrigin）メソッド

https://docs.microsoft.com/zh-cn/dotnet/api/system.io.stream.seek?view=netframework-4.8#System_IO_Stream_Seek_System_Int64_System_IO_SeekOrigin_

名前空間：System.IO

アセンブリ：mscorlib.dll

派生クラスでオーバーライドされると、現在のストリームの位置を設定します。

パラメータ

• オフセット     Int64の     相対的な  origin バイトオフセットパラメータを。
• 原点の  SeekOrigin  タイプの値は、新しい位置を取得するために使用される基準点を示します。
• Int64     の現在のストリームの新しい位置を返します       。

    SeekOrigin列挙型クラスの値は次のとおりです。

• 始める、と言った;
• 現在、現在の位置を示します。
• 終わりは終わりを意味します。

System.IO
モジュールModule1をインポートします

    Sub Main（）
        testSeek（）

        Console.ReadLine（）
    End Sub

    Private Sub testSeek（）
        Dim FS As FileStream
        Dim FReader As StreamReader
        Dim FWriter As StreamWriter

        Dim LineContext As String = "a"
        FS = New FileStream（ "F：\ test \ test.txt"、FileMode.OpenOrCreate、FileAccess.Write）
        FWriter = New StreamWriter（FS）
        Console.WriteLine（ "Input File Content"）
        While LineContext.Length> 0
            LineContext = Console.ReadLine
            FWriter.WriteLine（LineContext）
        End While
        Console.WriteLine（「ENTERは書き込みを終了し、以下のファイルの読み取りを開始します」）
        FWriter.Close（）

        FS = New FileStream（ "F：\ test \ test.txt"、FileMode.Open、FileAccess.Read）
        FReader = New StreamReader（FS）
        LineContext = FReader.ReadToEnd
        Console.WriteLine（LineContext）

        FS.Seek（0、SeekOrigin.Begin）
        While FReader.Peek> -1
            LineContext = FReader.ReadLine
            Console.WriteLine（LineContext）
        End While

        FReader.Close（）

    End Sub

エンドモジュール