Question

How to extract a column from a rectangular array to a one-dimensional array in VB.NET

Answer 1

Imports System
Imports System.Linq

Public Class Program
    Public Shared Sub Main()
        Dim rectangularArray As String(,) = New String(2, 2) {
        	{"a", "b", "c"},
        	{"d", "e", "f"},
        	{"g", "h", "i"}}
        
		Dim colNum As Integer = 1
        
		Dim column As Object() = Enumerable.Range(0, rectangularArray.GetLength(0)).
								 Select(Function(row) CObj(rectangularArray(row, colNum))).
								 ToArray()
        
		Console.Write(String.Join(", ", column))
    End Sub
End Class



' run:
'
' b, e, h
'

 

70+ SQL courses for beginners and professionals