Сортировка данных в массиве

@Garik_1993 · Регистрация: 02.06.2016

Студворк — интернет-сервис помощи студентам

Имеем приведённый далее массив:

1	а	asd
2	b	asd
Nothing	Nothing	Nothing
Nothing	Nothing	Nothing
Nothing	Nothing	Nothing
...	...	...
3	c	asd

Необходимо перенести нижнюю строку наверх к остальным. Т.е. нужен такой же массив, но сортированный. А ещё лучше строки с Nothing вообще удалить, если есть такая возможность (получились они при построчном заполнении массива). Подскажите, пожалуйста, как это сделать.
Пробовал по аналогии с указанными методами Массивы. Обьявление массивов. Сортировка массивов, но ничего дельного не получилось.

@Казанский · 20.11.2017, 13:44

Garik_1993, Nothing это текст "Nothing" или Variant/Object, которому ничего не присвоено?
В любом случае можно посчитать строки, которые не "Nothing", создать новый массив нужного размера и перенести туда строки, а этот массив удалить.

@Alex77755 · 20.11.2017, 13:54

получились они при построчном заполнении массива

Ну или, как вариант, подпилить макрос заполнения массива и не выводить не нужное

@Garik_1993 · 20.11.2017, 17:52 **[ТС]**

На счёт поправить предыдущую логику.
Быть может подскажите?
Вот почти весь код:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
AdapterProductionUnits.Fill(TableProductionUnits)
        Rows2 = TableProductionUnits.Select
        'Формирование массива станков
        Dim ArrayUnits(Rows2.Count - 1, Rows2.First.ItemArray.Count - 1) As Object
        Dim RN1 As Integer
        Dim CN1 As Integer
        For RN1 = 0 To Rows2.Count - 1
            For CN1 = 0 To Rows2.First.ItemArray.Count - 1
                ArrayUnits(RN1, CN1) = Rows2.ElementAt(RN1).ItemArray.ElementAt(CN1).ToString
            Next
        Next
        AdapterProducts.Fill(TableProducts)
        Rows = TableProducts.Select
        'Формирование массива продуктов
        Dim ArrayProducts(Rows.Count - 1, Rows.First.ItemArray.Count - 1) As Object
        Dim RN2 As Integer
        Dim CN2 As Integer
        For RN2 = 0 To Rows.Count - 1
            For CN2 = 0 To Rows.First.ItemArray.Count - 1
                ArrayProducts(RN2, CN2) = Rows.ElementAt(RN2).ItemArray.ElementAt(CN2).ToString
            Next
        Next
        Dim StrokPr As Integer
        Dim StrokUn As Integer
        'Формирование результирующего массива
        Dim Massiv_Rezult(ArrayProducts.GetLength(0), 3) As Object
        For StrokPr = 0 To ArrayProducts.GetLength(0) - 1
            For StrokUn = 0 To ArrayUnits.GetLength(0) - 1
                If ArrayUnits(StrokUn, 0) = ArrayProducts(StrokPr, 5) And ArrayUnits(StrokUn, 1) = "OMC" Then 'Если индекс станка равен индексу станка, производившего продукт и станок назывался ОМС
                    Massiv_Rezult(StrokPr, 0) = ArrayProducts(StrokPr, 0)
                    Massiv_Rezult(StrokPr, 1) = ArrayProducts(StrokPr, 3)
                    Massiv_Rezult(StrokPr, 2) = ArrayProducts(StrokPr, 4)
                    Massiv_Rezult(StrokPr, 3) = ArrayUnits(StrokUn, 1)
                End If
            Next
        Next

Тут происходит формирование двух массивов из базы данных. Далее формируется третий результирующий массив, который заполнятся на основании соответствия станка (Unit) продукту (29 строка кода). Размер результирующего массива задаю изначально равным максимальному количеству продуктов. Проблема возникает как только устанавливаю фильтр по станкам в 29 строке кода "And ArrayUnits(StrokUn, 1) = "OMC"". Количество информации сокращается, а размер массива остаётся. В итоге на лист Excel попадает много разрывов в виде пустых строк.
Не могу задать динамический массив, пишет "Не удалось привести тип объекта "System.String" к типу "System.Object[]"."".
Делал это так:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim Massiv_Rezult()
        For StrokPr = 0 To ArrayProducts.GetLength(0) - 1
            For StrokUn = 0 To ArrayUnits.GetLength(0) - 1
                If ArrayUnits(StrokUn, 0) = ArrayProducts(StrokPr, 5) And ArrayUnits(StrokUn, 1) = "OMC" Then 
                    Massiv_Rezult = ArrayProducts(StrokPr, 0)
                    Massiv_Rezult = ArrayProducts(StrokPr, 3)
                    Massiv_Rezult = ArrayProducts(StrokPr, 4)
                    Massiv_Rezult = ArrayUnits(StrokUn, 1)
                End If
            Next
        Next

Быть может проще убирать пустые строки массива при выводе на лист Excel? Но как это сделать?
Сейчас это реализовано так:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
Dim Range As Excel.Range = ActiveWorkSheet.Range(ActiveWorkSheet.Cells(2, 2), ActiveWorkSheet.Cells(Massiv_Rezult.GetLength(0), Massiv_Rezult.GetLength(1) + 1))
        Range.Value = Massiv_Rezult

Т.е. Range тоже формируется по максимальным меркам результирующего массива.

Добавлено через 29 минут
А Самое для меня не понятное, почему при такой реализации вывода информации на лист Excel программа продолжает выводить пустые строки. Вроде же стоит условие, что если в строке нету ОМС, то выйди из текущей итерации цикла For и смотри следующую строку. Или я неправильно понимаю?

Добавлено через 20 секунд

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
        Dim q As Integer
        Dim w As Integer
        For q = 0 To Massiv_Rezult.GetLength(0) - 1
            For w = 0 To Massiv_Rezult.GetLength(1) - 1
                If Massiv_Rezult(q, 3) = "OMC" Then
                    ActiveWorkSheet.Cells(q + 2, w + 2) = Massiv_Rezult(q, w)
                Else GoTo line1
                End If
line1:
            Next
        Next

Остап Бонд · 20.11.2017, 19:08

Сообщение от Garik_1993

А про ветку: вы имеете в виду, что нужно было вопрос задавать в разделе .NET -> Visual Studio?

Да, вот ваш раздел - https://www.cyberforum.ru/vb-net/

@Alex77755 · 21.11.2017, 11:54

Visual Basic
1
2
3
        For StrokPr = 0 To ArrayProducts.GetLength(0) - 1
'        тут вставить проверку значения которое может оказаться пустым. Например так. Но возможно другой тип данных там
            If Not ArrayProducts(StrokPr, 0) Is Nothing Then

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	20.11.2017, 13:44
	Garik_1993, Nothing это текст "Nothing" или Variant/Object, которому ничего не присвоено? В любом случае можно посчитать строки, которые не "Nothing", создать новый массив нужного размера и перенести туда строки, а этот массив удалить. 0