如何将 singles() 写入文件

Question

出于调试目的，我需要将一个 single() 数组写入一个新文件，但我没有找到任何示例。因为我正在尝试调试某些东西，所以我不想相信自己的直觉如何去做。谁能告诉我吗？

这是正确的方法吗？我很害怕我可能引入了一个错误。

Public Sub WriteSinglesToFile(ByVal uSingles() As Single, ByVal uPath As String)

    Using fs As New FileStream(uPath, FileMode.Create)
        Using bw As New BinaryWriter(fs)
            For Each no In uSingles
                bw.Write(no)
            Next
        End Using
    End Using

End Sub

Answer 1

这是一条线：

Public Sub WriteSinglesToFile(ByVal uSingles() As Single, ByVal uPath As String)
    'The "R" is for "Round-trip". 
    ' It ensures what you read back later matches what you had originally
    File.WriteAllLines(uPath, uSingles.Select(Function(s) s.ToString("R")))
End Sub

如果您想稍后再读这些：

'Assumes file written by above code...
Public Function ReadSinglesFromFile(ByVal uPath As String) As IEnumerable(Of Single)
    Return File.ReadLines(uPath).Select(Function(l) Single.Parse(l))
End Sub

Answer 2

可以用BinaryWriter.Write的方法来写单曲

Public Sub WriteSinglesToFile(ByVal uSingles() As Single, ByVal uPath As String)
    Using writer As IO.BinaryWriter = New IO.BinaryWriter(IO.File.Open(uPath, IO.FileMode.Create))
        For Each uVal As Single In uSingles 
            writer.Write(uVal)
        Next
    End Using 
End Sub

如何将 singles() 写入文件

How to write singles() to a file

.net

vb.net

arrays

io

stream