SEQUENTIALファイル

VB.NET
Module Module1
    Structure REC1
        <VBFixedString(4)> Public A As String
        <VBFixedString(9)> Public B As String
        <VBFixedString(1)> Public C As String
    End Structure
    Sub Main()
        WD()    '順編成ファイル書き込み
        RD()    '順編成ファイル読み込み
    End Sub
    Private Sub WD()
      Dim FileNo As Integer = FileSystem.FreeFile
      FileSystem.FileOpen(FileNo, "C:\SEQ.txt", OpenMode.Binary)
        Dim WR As New REC1
        For i As Integer = 1 To 5
            WR.A = Format(i, "000:")
            WR.B = "VB.NET2K5"
            WR.C = "x"
         FileSystem.FilePut(FileNo, WR)
       Next
        FileSystem.FileClose(FileNo)
    End Sub
    Private Sub RD()
      Dim FileNo As Integer = FileSystem.FreeFile
     FileSystem.FileOpen(FileNo, "C:\SEQ.txt", OpenMode.Binary)
        Dim RR As New REC1
        FileSystem.FileGet(FileNo, RR)
        Do Until EOF(FileNo)
            Console.WriteLine(RR.A & RR.B & RR.C)
            FileSystem.FileGet(FileNo, RR)
        Loop
        FileSystem.FileClose(FileNo)
    End Sub
End Module

お役に立てましたか？
ＩＴ、プログラミングのランキングサイトはこちらです。

最新記事の自動受信登録はこちらです。