Comment découper une chaîne de caractères dans une chaîne de longueur fixe tableau?

J'ai une longue chaîne comme celle-ci

dim LongString as String = "123abc456def789ghi"

Et je tiens à le diviser en un tableau de chaînes. Chaque élément du tableau doit être dans les 3 caractères de longueur

Par exemple,

Dim LongArray(5) As String
LongArray(0)  = "123"
LongArray(1)  = "abc"
LongArray(2)  = "456"
LongArray(3)  = "def"
LongArray(4)  = "789"
LongArray(5)  = "ghi"

Comment puis-je diviser à l'aide de VB.net code?

Ce qui devrait se produire si la longueur de la chaîne n'est pas un multiple de 3?
Voir msdn.microsoft.com/en-us/library/6x627e5f(v=vs. 80).aspx
Skeet: C'est toujours un multiple de 3
Je l'ai essayé. Mais qu'est-ce que le delimiter de la valeur pour mon cas?
Double Possible de stackoverflow.com/questions/1450774/...

OriginalL'auteur Yoga Fire | 2011-09-11

Cela pourrait fonctionner.

 Module Module1

    Sub Main()
        Dim LongString As String = "123abc456def789ghi"
        Dim longlist As New List(Of String)
        For i As Integer = 0 To Convert.ToInt32(LongString.Length / 3) - 1
            longlist.Add(LongString.Substring(i * 3, 3))
        Next
        For Each s As String In longlist
            Console.WriteLine(s)
        Next
        Console.ReadLine()
    End Sub

End Module

Et cela devrait fonctionner .Net 1.1

Module Module1

    Sub Main()
        Dim LongString As String = "123abc456def789ghi"
        Dim longlist(Convert.ToInt32(LongString.Length / 3) - 1) As String
        For i As Integer = 0 To Convert.ToInt32(LongString.Length / 3) - 1
            longlist(i) = (LongString.Substring(i * 3, 3))
        Next
        For i As Integer = 0 To Convert.ToInt32(LongString.Length / 3) - 1
            Console.WriteLine(longlist(i))
        Next
        Console.ReadLine()
    End Sub

End Module

OriginalL'auteur chrissie1

4

Vous pouvez utiliser LINQ comme suit:
```
' VB.NET
Dim str = "123abc456def789ghij"
Dim len = 3
Dim arr = Enumerable.Range(0, str.Length / len).Select (Function(x) str.Substring(x * len, len)).ToArray()
 
```
```
// C#
var str = "123abc456def789ghij";
var len = 3;
var arr = Enumerable.Range(0, str.Length / len).Select (x => str.Substring(x * len, len)).ToArray();
 
```
Remarque cela ne prend que complète occurrences de la longueur (c'est à dire 3 ensembles dans une chaîne de 10 caractères).

Merci pour la réponse, mais LINQ n'est pas pris en charge .Net v1.1
Peut-être vous devriez avoir écrit vous étiez encore à l'aide d'instruments anciens!
dans sa défense, il a un .net1.1 tag à la question.
Seulement depuis xanatos ajouté.

OriginalL'auteur Aaron

Ce C# code devrait fonctionner:

public static string[] SplitByLength(string text, int length)
{
    // According to your comments these checks aren't necessary, but
    // I think they're good practice...
    if (text == null)
    {
        throw new ArgumentNullException("text");
    }
    if (length <= 0)
    {
        throw new ArgumentOutOfRangeException("length");
    }
    if (text.Length % length != 0)
    {
        throw new ArgumentException
            ("Text length is not a multiple of the split length");
    }
    string[] ret = new string[text.Length / length];
    for (int i = 0; i < ret.Length; i++)
    {
        ret[i] = text.Substring(i * length, length);
    }
    return ret;
}

Réflecteur qui convertit VB:

Public Shared Function SplitByLength(ByVal [text] As String, _
                                      ByVal length As Integer) As String()
    ' Argument validation elided
    Dim strArray As String() = New String(([text].Length \ length)  - 1) {}
    Dim i As Integer
    For i = 0 To ret.Length - 1
        strArray(i) = [text].Substring((i * length), length)
    Next i
    Return strArray
End Function

Il est possible que ce n'est pas idiomatique VB, c'est pourquoi j'ai inclus le C#.

merci pour la réponse!
Pourquoi est-réflecteur convertin division entière de non-entier (VB.NET) divisions? Ne devrait-elle pas convertir \ à /? Il ne sait pas la prereq que le nombre est toujours divisible par 3.
Peut - être- je ne suis pas un VB personne... modifier.
Dit par l'un des quatre personnes avec l'insigne d'or de VB.NET 🙂 C'était plus une question de "est-ce un bug du réflecteur ou quoi"

OriginalL'auteur Jon Skeet

Je suis le fractionnement de la chaîne de 35.

var tempstore ="12345678901234567890123456789012345";

for (int k = 0; k < tempstore.Length; k += 35) {
    PMSIMTRequest.Append(tempstore.Substring(k,
      tempstore.Length - k > 35 ? 35 : tempstore.Length - k));
    PMSIMTRequest.Append(System.Environment.NewLine);
}

messagebox.Show(PMSIMTRequest.tostring());

OriginalL'auteur vangli

0
```
Dim LongString As String = "1234567"

Dim LongArray((LongString.Length + 2) \ 3 - 1) As String

For i As Integer = 0 To LongString.Length - 1 Step 3
    LongArray(i \ 3) = IF (i + 3 < LongString.Length, LongString.Substring(i, 3), LongString.Substring(i, LongString.Length - i))           
Next

For Each s As String In LongArray
    Console.WriteLine(s)
Next
```
Il y a quelques pièces intéressantes, l'utilisation de la \ division entière (c'est toujours arrondi vers le bas), le fait que, dans VB.NET vous avez à dire pour varier l'intensité maximale de l'élément du tableau (donc la longueur de la matrice est de +1) (c'est drôle que pour C#, programmeurs) (et il est résolu par le -1 dans la pénombre), le "+ 2" plus (j'ai besoin d'arrondir le montant de la division par 3, donc j'ai simplement ajouter 2 au dividende, J'aurais pu utiliser un opérateur ternaire et le module, et dans le premier test que j'ai fait), et l'utilisation de l'opérateur ternaire SI() dans l'obtention de la sous-chaîne.

merci pour la réponse!

OriginalL'auteur xanatos

Dernier tableau est manquant:

Public Function SplitByLength(ByVal text As String, _
                                  ByVal length As Integer) As String()

  ' Argument validation elided
  Dim strArray As String() = New String((text.Length \ length)  - 1) {}
  Dim i As Integer
  For i = 0 To text.Length - 1
      strArray(i) = text.Substring((i * length), length)
  Next i

  ' Get last array:
  ReDim Preserve strArray(i)
  strArray(i) = text.Substring(i * length)
  Return strArray
End Function

OriginalL'auteur Kan

J'ai ajouté un peu plus de logique à @jon code. Cela fonctionne parfaitement pour la chaîne qui a une longueur inférieure à la longueur de passé.

 Public Shared Function SplitByLength(ByVal [text] As String, ByVal length As Integer) As String()

    Dim stringLength = text.Length
    Dim arrLength As Integer = ([text].Length \ length) - 1 + IIf(([text].Length 
                                             Mod length) > 0, 1, 0)
    Dim strArray As String() = New String(arrLength) {}

    Dim returnString As String = ""
    Dim i As Integer
    Dim remLength As Integer = 0

    For i = 0 To strArray.Length - 1
      remLength = stringLength - i * length
      If remLength < length Then
        strArray(i) = [text].Substring((i * length), remLength)
      Else
        strArray(i) = [text].Substring((i * length), length)
      End If
    Next i

       Return  strArray
END FUNCTION

OriginalL'auteur Amir

Vous devez vous connecter pour publier un commentaire.