如何在 vb.net 中分割分隔空间并修剪

Question

我正在尝试在 vb.net 中分割分隔空间并修剪。

请指导我

谢谢

Module Module1
Sub Main()
Dim s As String = "     5010    2024-03-18 06:59:10 1   0   0   0"
Dim words As String() = s.Split(CType(vbTab, Char()))
 For Each word As String In words
            Console.WriteLine("WORD: {0}", word)
        Next
        Console.Read()
    End Sub

End Module

上面代码的输出

WORD:      5010
WORD: 2024-03-18 06:59:10
WORD: 1
WORD: 0
WORD: 0
WORD: 0

期望的输出

WORD: 5010
WORD: 2024-03-18
WORD: 06:59:10
WORD: 1
WORD: 0
WORD: 0
WORD: 0

Answer 1

根据@Blackcat的推荐

并基于此链接https://learn.microsoft.com/en-us/dotnet/api/system.string.split?view=net-8.0#system-string-split(system-char())

Module Module1

    Sub Main()
Dim s As String = "     5010    2024-03-18 06:59:10 1   0   0   0"
Dim separators As Char() = New Char() {" "c, Char.Parse(vbTab)}
        Dim words As String() = s.Split(separators, StringSplitOptions.RemoveEmptyEntries)
For Each word As String In words
            Console.WriteLine("WORD: {0}", word)
        Next
        Console.Read()
    End Sub

End Module

输出结果

WORD: 5010
WORD: 2024-03-18
WORD: 06:59:10
WORD: 1
WORD: 0
WORD: 0
WORD: 0