view/ShogiNextMove/KifuDataDirectoryReader.vb

Public Class KifuDataDirectoryReader

    Private kifu As New Board.Kifu.Kifu

    Public ReadOnly Property CurrentKyokumen As Board.Kyokumen
        Get
            Return kifu.KyokumenList(_kifuIndex)
        End Get
    End Property

    Public ReadOnly Property Moving As Board.Te
        Get
            Return kifu.MoveList(_kifuIndex)
        End Get
    End Property

    Public ReadOnly Property hasMove As Boolean
        Get
            Return _kifuIndex < kifu.MoveList.Count
        End Get
    End Property

    Private _dirname As String
    Public ReadOnly Property dirName As String
        Get
            Return _dirname & "\KifuData\"
        End Get
    End Property

    Public ReadOnly Property Count As Integer
        Get
            Return _file.Count
        End Get
    End Property


    Public Sub New()

        Dim exeName As String = System.Reflection.Assembly.GetEntryAssembly().Location
        _dirname = System.IO.Path.GetDirectoryName(exeName)
        _file = System.IO.Directory.GetFiles(dirName, "*.csa", System.IO.SearchOption.TopDirectoryOnly)
        _fileIndex = 0

    End Sub

    Public Sub Write(ByVal kifu As Board.Kifu.Kifu, filename As String)
        Dim writer As New Board.Kifu.CSAKifuWriter
        Dim kifStr As String = writer.MakeKifuCSAString(kifu)
        Using sw As New System.IO.StreamWriter(filename, False, System.Text.Encoding.GetEncoding("shift_jis"))
            sw.Write(kifStr)
        End Using
    End Sub

    Dim _file As String()
    Dim _fileIndex As Integer
    Dim _kifuIndex As Integer

    Public Sub readNextFile()
        Debug.Assert(_fileIndex < _file.Length)
        Using sr As New System.IO.StreamReader(_file(_fileIndex), _
            System.Text.Encoding.GetEncoding("shift_jis"))
            Dim kifuStr As String = sr.ReadToEnd()
            kifu = (New Board.Kifu.CSAKifuReader).ReadCSAString(kifuStr)
        End Using
        _fileIndex += 1
        _kifuIndex = 0
    End Sub

    Public Function hasNextFile() As Boolean
        If _fileIndex < _file.Length Then
            Return True
        End If
        Return False
    End Function

    Public Function hasNextKyokumen() As Boolean
        If _kifuIndex < kifu.KyokumenList.Count - 1 Then
            Return True
        End If
        Return False
    End Function

    Public Function NextKyokumen() As Board.Kyokumen
        _kifuIndex += 1
        Return CurrentKyokumen
    End Function


End Class