Как выполнить итерацию неровного массива?
-
09-06-2019 - |
Вопрос
Это сводило меня с ума в течение нескольких дней.Почему следующее не работает?
Dim arr(3, 3) As Integer For y As Integer = 0 To arr.GetLength(0) - 1 For x As Integer = 0 To arr.GetLength(y) - 1 arr(y, x) = y + x Next Next
Кроме того, что, если бы массив выглядел следующим образом?
{ {1, 2, 3},
{4, 5, 6, 7, 8, 9, 9, 9},
{5, 4, 3, 2}
}
Решение
Итак, что вам действительно нужно, так это "неровный массив".Это позволит вам иметь "массив, который содержит другие массивы различной длины".
Dim arr As Integer()() = {New Integer() {1, 2, 3}, New Integer() {4, 5, 6, 7, 8, 9, 9, 9}, New Integer() {5, 4, 3, 2}}
For x = 0 To arr.GetUpperBound(0)
Console.WriteLine("Row " & x & " has " & arr(x).GetUpperBound(0) & " columns")
For y = 0 To arr(x).GetUpperBound(0)
Console.WriteLine("(" & x & "," & y & ") = " & arr(x)(y))
Next
Next
Выходной сигнал:
Row 0 has 2 columns
(0,0) = 1
(0,1) = 2
(0,2) = 3
Row 1 has 7 columns
(1,0) = 4
(1,1) = 5
(1,2) = 6
(1,3) = 7
(1,4) = 8
(1,5) = 9
(1,6) = 9
(1,7) = 9
Row 2 has 3 columns
(2,0) = 5
(2,1) = 4
(2,2) = 3
(2,3) = 2
Другие советы
Потому что нет измерения "2" или "3".Должно быть .getLength(1) вместо .getLength(y)
Также:в VB.Объявления сетевых массивов работают немного по-другому.Нижний индекс, который вы указываете в объявлении, является последним индексом, а не количеством элементов, созданных, как с помощью C # или C ++.Но массив по-прежнему проиндексирован на 0, как C # или C ++, а не на 1, как VB6.Это означает, что если вы перейдете на VB.Net с другого языка, ваши инстинкты массива, вероятно, неверны, независимо от того, какой это язык.В VB.Net, Dim arr(3,3) Как целое число фактически создает 4x4 массив.
arr.GetLength(y)
должно быть
arr.GetLength(1)
Ну, а что, если бы у меня был массив, который выглядел бы примерно так
{ {1, 2, 3},
{4, 5, 6, 7, 8, 9, 9, 9},
{5, 4, 3, 2}
}
Как бы getLength (1) все еще знал длину каждой строки?
По сути, я хочу вот чего.... способ найти количество элементов в любой заданной строке.
Dim arr(3, 3) As Integer
Dim y As Integer
Dim x As Integer
For x = 0 To arr.Rank - 1
For y = 0 To arr.GetLength(x) - 2
arr(x, y) = x + y
Next
Next
Приведенный выше код сработал для меня.
Отредактируйте, хотя код кажется грязным.Мне интересно, чего именно вы пытаетесь достичь?
Этот код на C # предназначен для получения всех комбинаций элементов в неровном массиве:
static void Main(string[] args)
{
bool exit = false;
int[] indices = new int[3] { 0, 0, 0 };
string[][] vectores = new string[3][];
vectores[0] = new string[] { "A", "B", "C" };
vectores[1] = new string[] { "A", "B" };
vectores[2] = new string[] { "B", "D", "E", "F" };
string[] item;
int[] tamaños = new int[3]{vectores[0].GetUpperBound(0),
vectores[1].GetUpperBound(0),
vectores[2].GetUpperBound(0)};
while (!exit)
{
item = new string[]{ vectores[0][indices[0]],
vectores[1][indices[1]],
vectores[2][indices[2]]};
Console.WriteLine("[{0},{1},{2}]={3}{4}{5}", indices[0], indices[1], indices[2], item[0], item[1], item[2]);
GetVector(tamaños, ref indices, ref exit);
}
Console.ReadKey();
}
public static void GetVector(int[] tamaños, ref int[] indices, ref bool exit)
{
for (int i = tamaños.GetUpperBound(0); i >= 0; i--)
{
if (tamaños[i] > indices[i])
{
indices[i]++;
break;
}
else
{
//ULTIMO ITEM EN EL ARRAY, VALIDAR LAS OTRAS DIMENSIONES SI YA ESTA EN EL ULTIMO ITEM
if (!ValidateIndexes(tamaños, indices))
indices[i] = 0;
else
{
exit = true;
break;
}
}
}
}
public static bool ValidateIndexes(int[] tamaños, int[] indices)
{
for (int i = 0; i < tamaños.Length; i++)
{
if (tamaños[i] != indices[i])
return false;
}
return true;
}
Результат выглядит следующим образом [0,0,0]= AAB [0,0,1]= AAD [0,0,2]=AAE [0,0,3]=AAF [0,1,0]=ABB [0,1,1]=ABD [0,1,2] =ABE [0,1,3]=ABF [1,0,0]=BAB [1,0,1] = ПЛОХОЙ [1,0,2] = BAE [1,0,3]=BAF [1,1,0] = BBB [1,1,1]=BBD [1,1,2] = BBE [1,1,3] = BBF [2,0,0] = CAB [2,0,1] = CAD [2,0,2]=CAE [2,0,3] = CAF [2,1,0] = CBB [2,1,1]= CBD [2,1,2]= CBE [2,1,3]= CBF
Ваше заявление: DIM arr(3,3) As Integer
allready указывает, что в любой заданной строке есть 3 элемента (или 4, я не очень уверен насчет VB)
Ты мог бы попробовать:
Dim arr(3) as Integer()
Тогда вы должны быть в состоянии сделать:
arr(n).Length
Чтобы найти длину строки n.
Я немного заржавел на VB6 и никогда не учился VB.NET, но это должно дать вам "неровный" массив.Ознакомьтесь с документацией msdn по многомерным массивам.