如何将字符串复制到字节数组

Question

我有一个充满文本行的 StringArray，我需要获取每个字符串数组并将它们转换为字节。一旦

Dim splitText() As String = TextRead.Split(Chr(13))
Dim byteArray() as string = Byte.Parse(splitText(0))

我可以将字符串数组的一个元素转换为字节，我将为字符串数组中的每个位置放置一个循环，但它表示字符串格式对于 byte.parser 来说不正确。

Answer 1

换行符很少是单个 CR 字符，它几乎仅由旧的 Macintosh 系统（即版本 9 及更早版本）使用。常见的换行符是 CR+LF (Windows) 和 LF (Unix/OS X)。

如果在错误的换行符上分割字符串，则最终整个字符串将作为数组中的单个项目不受影响，或者在字符串中留下一半换行符。无论哪种方式，您都将无法解析字符串。

对于具有 Windows 类型换行符的字符串：

Dim splitText() As String = TextRead.Split(ControlChars.CrLf)

对于具有 Unix/OS X 类型换行符的字符串：

Dim splitText() As String = TextRead.Split(ControlChars.Lf)

处理两种换行符：

Dim splitText() As String = TextRead.Split(New String() { ControlChars.CrLf, ControlChars.Lf }, StringSplitOptions.None)

使用当前系统的换行符：

Dim splitText() As String = TextRead.Split(New String() { Envitonment.NewLine }, StringSplitOptions.None)

---

例如，如果字符串包含十进制格式的数字13{break}37{break}42，您现在可以将字符串解析为字节：

Dim byteArray() as Byte = splitText.Select(AddressOf Byte.Parse).ToArray()

---

全部作为单行代码：

Dim byteArray() as Byte = TextRead.Split(ControlChars.CrLf).Select(AddressOf Byte.Parse).ToArray()

Answer 2

    ' Dim splitText() As String = TextRead.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
    Dim splitText() As String = TextRead.Split(New Char() {ControlChars.Cr}, StringSplitOptions.RemoveEmptyEntries)
    For Each foo As String In splitText
        'make sure to select correct encoding
        Dim byteArray() As Byte = System.Text.Encoding.ASCII.GetBytes(foo)
    Next

Answer 3

看起来您正在尝试解析整行文本，而不是单个字节。为了完成您想要做的事情，您需要循环遍历字符串中的每个字符并将其解析为一个字节。但是，您可能会发现使用内置的 .NET 解析方法将字符串转换为字节，而不是采取漫长的路线。例如，

Dim yourBytes as Byte() = System.Text.Encoding.UTF8.GetBytes(yourString)

您可以更改编码方法（根据您的要求），在本例中我使用的是 UTF8。

附带说明一下，您还可以使用 GetString 将整个字节数组反转为字符串，该方法与 GetBytes 位于同一类中。

Answer 4

你试过吗

Dim someBytes() as Byte = System.Text.ASCIIEncoding.GetBytes(putyourStringhere)