Question

How to create a string from one row of a two-dimensional character array in VB.NET

Answer 1

Imports System
Imports System.Text

Public Class CreateStringFromOneRow
    Public Shared Sub Main()
        Dim array As Char(,) = {
        	{"a"c, "a"c, "a"c, "a"c, "a"c},
        	{"b"c, "b"c, "b"c, "b"c, "b"c},
        	{"c"c, "c"c, "c"c, "c"c, "c"c}}
        Dim sb As StringBuilder = New StringBuilder()
        Dim len As Integer = array.GetLength(1)

        For i As Integer = 0 To len - 1
            sb.Append(array(1, i))
        Next

        Dim result As String = sb.ToString()
	
        Console.WriteLine("The string is: " & result)
    End Sub
End Class



' run:
'
' The string is: bbbbb
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Text

Public Class CreateStringFromOneRow
    Public Shared Sub Main()
        Dim jaggedArray As Char()() = New Char(2)() {}
        	jaggedArray(0) = New Char() {"V"c, "B"c}
        	jaggedArray(1) = New Char() {"p"c, "r"c, "o"c, "g"c, "r"c, "a"c, "m"c, "m"c, "i"c, "n"c, "g"c}
        	jaggedArray(2) = New Char() {"l"c, "a"c, "n"c, "g"c, "u"c, "a"c, "g"c, "e"c}
        Dim sb As StringBuilder = New StringBuilder()

        For Each ch As Char In jaggedArray(1)
            sb.Append(ch)
        Next

        Dim result As String = sb.ToString()
	
        Console.WriteLine("The string is: " & result)
    End Sub
End Class



' run:
'
' The string is: programming
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System

Public Class CreateStringFromOneRow
    Public Shared Sub Main()
        Dim array As Char(,) = {
        	{"a"c, "a"c, "a"c, "a"c, "a"c},
        	{"b"c, "b"c, "b"c, "b"c, "b"c},
        	{"c"c, "c"c, "c"c, "c"c, "c"c}}
        Dim rowArray As Char() = New Char(array.GetLength(1) - 1) {}
        Dim len As Integer = array.GetLength(1)

        For i As Integer = 0 To len - 1
            rowArray(i) = array(1, i)
        Next

        Dim result As String = New String(rowArray)
	
        Console.WriteLine("The string is: " & result)
    End Sub
End Class



' run:
'
' The string is: bbbbb
'

 

70+ SQL courses for beginners and professionals