How to split a string into chunks of two characters each in VB.NET

1 Answer

0 votes
Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Function SplitStringIntoChunks(ByVal str As String, ByVal chunkSize As Integer) As List(Of String)
        Dim chunks As List(Of String) = New List(Of String)()
        Dim length As Integer = str.Length
        Dim i As Integer = 0

        While i < length
            chunks.Add(str.Substring(i, Math.Min(chunkSize, length - i)))
            i += chunkSize
        End While

        Return chunks
    End Function

	Public Shared Sub Main(ByVal args As String())
        Dim str As String = "abcdefghijk"
        Dim chunkSize As Integer = 2
		
        Dim chunks As List(Of String) = SplitStringIntoChunks(str, chunkSize)
        
		Console.WriteLine("Chunks of two characters:")
        For Each chunk As String In chunks
            Console.WriteLine(chunk)
        Next
    End Sub
End Class

 
' run:
'
' Chunks of two characters:
' ab
' cd
' ef
' gh
' ij
' k
'

 



answered Mar 30 by avibootz
...