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

名前

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

本文

とりあえずバイト配列にしてみました

Public Structure FILE_LAYOUT
        <VBFixedStringAttribute(10)> Dim DataType As String
        Dim TransitTime() As Short
        Dim y() As Short
    End Structure

Public Function makeFile(ByRef InputData As String) As String
        Dim FileName As String
        Dim tmpArray() As String
        Dim FileData As FILE_LAYOUT
        Dim DataSize As Integer
        Dim i As Integer
        Dim fn As Integer
        Dim writeArray() As Byte
        Dim binWriter As BinaryWriter

tmpArray = InputData.Split(",")
        If tmpArray(0).Equals("SMALL") Then
            DataSize = 9
            FileName = "small.dat"
        Else
            DataSize = 19
            FileName = "large.dat"
        End If
        ReDim FileData.TransitTime(DataSize)
        ReDim FileData.y(DataSize)

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

If DataSize = 9 Then
            ReDim writeArray(49)
        Else
            ReDim writeArray(89)
        End If
        binWriter = New BinaryWriter(New IO.MemoryStream(writeArray))
        Try
            binWriter.Write(System.Text.Encoding.GetEncoding(932).GetBytes(FileData.DataType.PadRight(10)))
            For i = 0 To DataSize
                binWriter.Write(FileData.TransitTime(i))
            Next
            For i = 0 To DataSize
                binWriter.Write(FileData.y(i))
            Next
        Finally
            binWriter.Close()
        End Try

fn = FreeFile()
        FileOpen(fn, FileName, OpenMode.Random, , , writeArray.Length)
        FilePut(fn, writeArray)
        FileClose(fn)

Return FileName
    End Function

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

戻る