.net 如何将singles（）写入文件

出于调试目的，我需要将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

这是一条单行线：

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

这是一条单行线：

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

这是一条单行线：

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

这是一条单行线：

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

---

您可以使用

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

---

您可以使用

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

---

您可以使用

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

---

您可以使用

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

---

---

这是为了调试。。。他可能想要一些可读的东西。@JoelCoehoorn你可能是对的。我倾向于直截了当地回答问题。有趣的是@Joel Coehoorn的方法产生的输出与您的不同，所以我想知道哪一个是正确的。@t很明显，他们都是“对的”。这段代码编写了单数的二进制表示，Joel编写了字符串表示。我希望该文件带有十六进制编辑器，因此，我不寻求任何先进的解决方案。那么我选择@Blackwood的答案是对的吗？这是为了调试。。。他可能想要一些可读的东西。@JoelCoehoorn你可能是对的。我倾向于直截了当地回答问题。有趣的是@Joel Coehoorn的方法产生的输出与您的不同，所以我想知道哪一个是正确的。@t很明显，他们都是“对的”。这段代码编写了单数的二进制表示，Joel编写了字符串表示。我希望该文件带有十六进制编辑器，因此，我不寻求任何先进的解决方案。那么我选择@Blackwood的答案是对的吗？这是为了调试。。。他可能想要一些可读的东西。@JoelCoehoorn你可能是对的。我倾向于直截了当地回答问题。有趣的是@Joel Coehoorn的方法产生的输出与您的不同，所以我想知道哪一个是正确的。@t很明显，他们都是“对的”。这段代码编写了单数的二进制表示，Joel编写了字符串表示。我希望该文件带有十六进制编辑器，因此，我不寻求任何先进的解决方案。那么我选择@Blackwood的答案是对的吗？这是为了调试。。。他可能想要一些可读的东西。@JoelCoehoorn你可能是对的。我倾向于直截了当地回答问题。有趣的是@Joel Coehoorn的方法产生的输出与您的不同，所以我想知道哪一个是正确的。@t很明显，他们都是“对的”。这段代码编写了单数的二进制表示，Joel编写了字符串表示。我希望该文件带有十六进制编辑器，因此，我不寻求任何先进的解决方案。那么我选择@Blackwood的答案是对的吗？请问往返是什么意思？浮点数是不精确的。如果不小心，写入流的内容可能不会作为完全相同的数字读回。往返格式确保写出一个将作为相同值而不是略有不同的值读回的数字。因为这是为了调试，所以可能不需要担心，您可以使用任何想要的格式。文件在这里：请问往返是什么意思？浮点数不准确。如果不小心，写入流的内容可能不会作为完全相同的数字读回。往返格式确保写出一个将作为相同值而不是略有不同的值读回的数字。因为这是为了调试，所以可能不需要担心，您可以使用任何想要的格式。文件在这里：请问往返是什么意思？浮点数不准确。如果不小心，写入流的内容可能不会作为完全相同的数字读回。往返格式确保写出一个将作为相同值而不是略有不同的值读回的数字。因为这是为了调试，所以可能不需要担心，您可以使用任何想要的格式。文件在这里：请问往返是什么意思？浮点数不准确。如果不小心，写入流的内容可能不会作为完全相同的数字读回。往返格式确保写出一个将作为相同值而不是略有不同的值读回的数字。因为这是为了调试，所以可能不需要担心，您可以使用任何想要的格式。文件如下：