Découper une chaîne en VB.NET

Je suis en train de séparer en deux chaînes.

"SERVER1.DOMAIN.COM Running"

Pour cela, j'utilise le code.

Dim Str As String = "SERVER1.DOMAIN.COM Running"
Dim strarr() As String
strarr = Str.Split(" ")
For Each s As String In strarr
    MsgBox(s)
Next

Cela fonctionne bien, et j'ai deux boîtes de message avec "SERVER1.DOMAIN.COM" et "Running".

La question que je vais avoir, c'est que certains de mes premières chaînes ont plus d'un espace.

"SERVER1.DOMAIN.COM        Off"

Il y a environ huit espaces d'entre-deux ".COM" et "Off".

Comment puis-je séparer dans cette chaîne de la même manière?

Utilisation StringSplitOptions.RemoveEmptyEntries.

OriginalL'auteur Matt Leyland | 2013-06-12

  1. 14

    Essayer cette

    Dim array As String() = strtemp.Split(" ".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
    Au lieu de " ".ToCharArray() vous pouvez simplement utiliser un tableau de les chaînes de caractères: strtemp.Split({" "c}, StringSplitOptions.RemoveEmptyEntries).

    OriginalL'auteur Sachin

  2. 2

    Utiliser de cette façon:

    Dim line As String = "SERVER1.DOMAIN.COM Running"
Dim separators() As String = {"Domain:", "Mode:"}
Dim result() As String
result = line.Split(separators, StringSplitOptions.RemoveEmptyEntries)

    OriginalL'auteur Jayram Singh

  3. 1

    Voici une méthode utilisant la classe Regex:

        Dim str() = {"SERVER1.DOMAIN.COM Running", "mydomainabc.es     not-running"}
    For Each s In str
        Dim regx = New Regex(" +")
        Dim splitString = regx.Split(s)
        Console.WriteLine("Part 1:{0}  |  Part 2:{1}", splitString(0), splitString(1))
    Next

    Et LINQ façon de le faire: 

        Dim str() = {"SERVER1.DOMAIN.COM Running", "mydomainabc.es     not-running"}
    For Each splitString In From s In str Let regx = New Regex(" +") Select regx.Split(s)
        Console.WriteLine("Part 1:{0}  |  Part 2:{1}", splitString(0), splitString(1))
    Next

    OriginalL'auteur bbqchickenrobot