Как удалить из массива???

@lomix · Регистрация: 07.08.2007

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

например
dim massiv(10)
for i = 0 to 9
massiv(i) = i + 5
next

i kak sdes' udalit massiv(5) naprimer 4to bq na eo mesto v stal 6!

for ii = 5 to 9
massiv(ii) = massiv(ii+1) ' tak 4t li? ili est' lu4sse sposob
next

@oldpasp · 19.05.2008, 03:30

если предполагается усиленно работать с массивом, то по-моему лучше исользовать Collection (или Recordset)
Кроме динамического размера появятся и ряд других возможностей - поиск, сортировка

19.05.2008, 05:45

Dim StartPosition as Integer

'SN - Место замены в массиве
StartPosition = 5
'SN - Надо сдвинуть все элементы массива на одно место к началу
For i = StartPosition to 8
massiv(i) = massiv(i+1)
Next
'SN - обнуляем последний элемент
massiv(9) = 0

@ma3ai · 19.05.2008, 14:45

Collection - спора нет, удобная штука, но медленная.

Последний вариант со сдвигом - для больших массивов лучше (быстрее) использовать
Private Declare Sub CopyMemory Lib 'kernel32' Alias 'RtlMoveMemory' (Destination As Any, Source As Any, ByVal Count As Long)

(Внимание: пишу прямо здесь по памяти поэтому могут быть оЧепятки и ошиПки)
Items() с базой 0. диапаззон - от 1 до ItemsCount (Обычно Items(0) использую не для данных а для удобства работы.)
...
сдвигаем вправо с поз. 0
ItemsCount=ItemsCount+1
redim preserve Items(ItemsCount)'увеличиваем размерчик
copymemory Items(2),Items(1),4*(ItemsCount-1)'4 кол-во байт в Long (можем использовать что-то другое)
...
'то же самое происходит для сдвига влево
'можно двигать на несколько позиций - это домашнее задание

)
'вроде ничего не пропустил

)))

29.05.2008, 04:34

aлгoритм для тoгo чтoбы стереть элемент из мaссивa тaкoй:
1. к мaссиву дoбaвляется ещё пoле:garbage;
знaчение 0 или 1
2. стирaем элемент: garbage=0
3. переписывaем мaссив в loopе, тoлькo
те элементы, кoтoрые не garbage

29.05.2008, 04:38

aлгoритм сдвигa(transpose) считaется неэффективным

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@lomix 0 / 0 / 0 Регистрация: 07.08.2007 Сообщений: 78

	Как удалить из массива??? 18.05.2008, 21:14. Показов 1946. Ответов 5 Метки нет (Все метки) например dim massiv(10) for i = 0 to 9 massiv(i) = i + 5 next i kak sdes' udalit massiv(5) naprimer 4to bq na eo mesto v stal 6! for ii = 5 to 9 massiv(ii) = massiv(ii+1) ' tak 4t li? ili est' lu4sse sposob next 0

@oldpasp 2 / 2 / 2 Регистрация: 23.06.2007 Сообщений: 399
	19.05.2008, 03:30
	если предполагается усиленно работать с массивом, то по-моему лучше исользовать Collection (или Recordset) Кроме динамического размера появятся и ряд других возможностей - поиск, сортировка 0

sn
	19.05.2008, 05:45
	Dim StartPosition as Integer 'SN - Место замены в массиве StartPosition = 5 'SN - Надо сдвинуть все элементы массива на одно место к началу For i = StartPosition to 8 massiv(i) = massiv(i+1) Next 'SN - обнуляем последний элемент massiv(9) = 0

@ma3ai 0 / 0 / 0 Регистрация: 20.02.2008 Сообщений: 181
	19.05.2008, 14:45
	Collection - спора нет, удобная штука, но медленная. Последний вариант со сдвигом - для больших массивов лучше (быстрее) использовать Private Declare Sub CopyMemory Lib 'kernel32' Alias 'RtlMoveMemory' (Destination As Any, Source As Any, ByVal Count As Long) (Внимание: пишу прямо здесь по памяти поэтому могут быть оЧепятки и ошиПки) Items() с базой 0. диапаззон - от 1 до ItemsCount (Обычно Items(0) использую не для данных а для удобства работы.) ... сдвигаем вправо с поз. 0 ItemsCount=ItemsCount+1 redim preserve Items(ItemsCount)'увеличиваем размерчик copymemory Items(2),Items(1),4*(ItemsCount-1)'4 кол-во байт в Long (можем использовать что-то другое) ... 'то же самое происходит для сдвига влево 'можно двигать на несколько позиций - это домашнее задание ) 'вроде ничего не пропустил ))) 0

al
	29.05.2008, 04:34
	aлгoритм для тoгo чтoбы стереть элемент из мaссивa тaкoй: 1. к мaссиву дoбaвляется ещё пoле:garbage; знaчение 0 или 1 2. стирaем элемент: garbage=0 3. переписывaем мaссив в loopе, тoлькo те элементы, кoтoрые не garbage

al
	29.05.2008, 04:38
	aлгoритм сдвигa(transpose) считaется неэффективным