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

[Mckoy]

Мне нужно реализовать простую задачу: Есть колода из 52 карт. Одну карту забрали. Теперь надо обновить колоду, чтобы карты этой в ней не было.
Все это безобразие решил реализовать через массивы. (Если есть лучший споосб буду рад услышать). Если способ удалить элемент из массива? или надо его переопределять?

[GSerg]

Коллекции юзай. Коллекции.

[Mckoy]

В моем справочние по ВБ есть только описание коллекций применительно к элементам управления. Можно по-точней?

[GSerg]

dim cards as collection
set cards=new collection
cards.add "шестёрка пик", "6п"
cards.add "семёрка пик", "7п"

...

cards.remove "7п"

[Tuco]

Создаёшь коллекцию, myCollection.add, который добавляет элементы (в твоём случае - карты, по одной). Когда ты берёшь карту из коллекции, используешь myCollection.remove, при котором из коллекции элемент удаляется. Получаешь значение карты - myCollection.item. Колличество карт в колоде - myCollection.Count.

[Mckoy]

Спасибо GSerg и Tuco, попробую.

[Sirik]

Можно было и через массивы... Поставить флажок на номер используемой карты.
А при генерации колоды флаг обнулять!

[Vitaly1]

А что, есть проблеммы удалять элемент из динамического массива?

Код: Выделить всё

for i=k to n-1
a(i) =a(i+1)
next i
n=n-1
redim preserve a(1 to n)

Где к - индекс удаляемой ячейки. n количество ячеек. Если есть проблема с динамическим массивом строчьку redim preserve a(1 to n) не используй для обычного. а количество ячеек у тебя как бы уменьшится

[tyomitch]

А что, есть проблеммы удалять элемент из динамического массива?

Код: Выделить всё

for i=k to n-1
a(i) =a(i+1)
next i
n=n-1
redim preserve a(1 to n)

Где к - индекс удаляемой ячейки. n количество ячеек. Если есть проблема с динамическим массивом строчьку redim preserve a(1 to n) не используй для обычного. а количество ячеек у тебя как бы уменьшится

Где-то тут недалеко обсуждалось использование для этого CopyMemory вместо цикла...

[Mckoy]

Спасибо всем, оба варианта получились. Я все таки остановился на массиве.

[alibek]

CopyMemory не подойдет при наличии строк переменной длины в массиве.

[Mckoy]

А если все стороки из 2х символв?

[alibek]

Если они определены, как строки фиксированной длины (.Code As String*2), то можно. А иначе наврядли.
А нельзя ли заменить эти двухсимвольные строки на числовой идентификатор? В крайнем случае, перегоняй строки в Long (AscW(Mid$(.Code,1,1))*65536& + AscW(Mid$(.Code,2,1))).

[Vitaly1]

Так как карт всего <=54 (а вообще то <=53, 1 джокер запасной!) то нельзяли в качестве массива спользовать строку?

'добавление номера карты в колоду
s= s+chr(Номер_карты)

'укаление "к" карты из колоды
s = Mid(s, 1, k - 1) + Mid(s, k + 1)

'получение Номера "к" карты
Номер_карты = asc(mid(s,k,1))

[Mckoy]

alibek, Vitaly1
А зачем такие умние функции и преобразования? для быстродействия? Я пока в них не разбираюсь и пытаюсь только заставить программу хотя бы работать.

[Vitaly1]

Не только для быстродействия, код проще становится.

Впрочем, если пока не понятно, делай так, как ты понимаешь!

[tyomitch]

CopyMemory не подойдет при наличии строк переменной длины в массиве.

Конечно же подойдёт, только нужно перед сдвигом обменять местами последний и удаляемый элемент. Ну, или руками удалить удаляемый и затереть нулём последний. И то, и другое - по две строчки кода. Какие проблемы-то?

[Rainbow]

Не только для быстродействия, код проще становится.

Код проще при работе со строкой???? Да вы чего!? Его отлаживать будешь годами!

Конечно же подойдёт, только нужно перед сдвигом обменять местами последний и удаляемый элемент...

Ну не надо использовать низкоуровневые функции для работы с памятью, где этого не требуют условия жесткой необходимости! CopyMemory для удаления элемента из массива! Придумали тоже...

Пишите класс для карты и колоды, если вам чего-то не хватает, и будьте счастливы!