Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
17.10.2002, 17:55
|
|||
---|---|---|---|
Сравнение массивов в VB6 |
|||
#18+
Как можно сравнить в VB6 два массива с одинаковой структурой? Упрощенно проблема выглядит следующим образом: Создан пользовательский тип из 35 полей и созданы два массива по этому пользовательскому типу. Дело в том, что если сравнивать каждый элемент массива по принципу if a.1<>b.1 or _ a.2 <>b.2 or _ ............ a.35 <>b.35 then .... то VB6 имеет ограничение ( ошибка "Too many line continuations ") в 25 связанных строк или в 24 элемента в одной строке. ... |
|||
:
Нравится:
Не нравится:
|
|||
|
18.10.2002, 08:42
|
|||
---|---|---|---|
Сравнение массивов в VB6 |
|||
#18+
VB под руками нет, потому ничего не гарантирую, но принцип стар как мир: .. dim i, n as Integer dim flag as Boolean n=ubound(a) flag=True if ubound(b)=n then for i=1 to n if a(i)<>b(i) then flag=False exit for end if next i end if ... |
|||
:
Нравится:
Не нравится:
|
|||
|
18.10.2002, 08:44
|
|||
---|---|---|---|
Сравнение массивов в VB6 |
|||
#18+
oops.. Эти две строчки надо поменять местами: flag=True if ubound(b)=n then то есть: flag=False if ubound(b)=n then flag=True 'дальше цикл ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=60&tablet=1&tid=2171595]: |
0ms |
get settings: |
11ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
34ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
41ms |
get tp. blocked users: |
2ms |
others: | 13ms |
total: | 137ms |
0 / 0 |