可変配列を持つ構造体をファイル出力するには？ (ID：147168)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

インターフェース全然使えない

Public Interface IFileLayout
        Property DataType() As String
        Property TransitTime(ByVal index As Integer) As Short
        Property y(ByVal index As Integer) As Short
    End Interface

Public Class SmallLayout
        Implements IFileLayout
        <VBFixedStringAttribute(10)> Dim _DataType As String
        <VBFixedArray(9)> Dim _TransitTime() As Short
        <VBFixedArray(9)> Dim _y() As Short

Public Property DataType() As String Implements IFileLayout.DataType
            Get
                Return _DataType
            End Get
            Set(ByVal value As String)
                _DataType = value
            End Set
        End Property

Public Property TransitTime(ByVal index As Integer) As Short Implements IFileLayout.TransitTime
            Get
                Return _TransitTime(index)
            End Get
            Set(ByVal value As Short)
                _TransitTime(index) = value
            End Set
        End Property

Public Property y(ByVal index As Integer) As Short Implements IFileLayout.y
            Get
                Return y(index)
            End Get
            Set(ByVal value As Short)
                y(index) = value
            End Set
        End Property

Public Sub New()
            ReDim _TransitTime(9)
            ReDim _y(9)
        End Sub
    End Class

Public Function makeFile(ByRef InputData As String) As String
        Dim FileName As String
        Dim tmpArray() As String
        Dim FileData As IFileLayout
        Dim DataSize As Integer
        Dim i As Integer
        Dim fn As Integer

tmpArray = InputData.Split(",")
        If tmpArray(0).Equals("SMALL") Then
            DataSize = 9
            FileName = "small.dat"
            FileData = New SmallLayout
        Else
            DataSize = 19
            FileName = "large.dat"
            'FileData = New LargeLayout
        End If

FileData.DataType = tmpArray(0)
        For i = 0 To DataSize
            FileData.TransitTime(i) = tmpArray(2 * i + 1)
            FileData.y(i) = tmpArray(2 * i + 2)
        Next

fn = FreeFile()
        FileOpen(fn, FileName, OpenMode.Random, , , Len(FileData))
        FilePut(fn, FileData)
        FileClose(fn)

Return FileName
    End Function

Set(ByVal value As Short)のところで
System.StackOverflowExceptionが発生してしまった
なぜスタックオーバーフローなのか？
インターフェースってどういう構造なのか？
いろいろ疑問が出てしまった

←解決時は質問者本人がここをチェックしてください。

戻る