|
Сравнение массивов в 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 элемента в одной строке. ... |
|||
:
Нравится:
Не нравится:
|
|||
17.10.2002, 17:55 |
|
Сравнение массивов в 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:42 |
|
Сравнение массивов в VB6
|
|||
---|---|---|---|
#18+
oops.. Эти две строчки надо поменять местами: flag=True if ubound(b)=n then то есть: flag=False if ubound(b)=n then flag=True 'дальше цикл ... |
|||
:
Нравится:
Не нравится:
|
|||
18.10.2002, 08:44 |
|
|
start [/forum/topic.php?fid=60&fpage=423&tid=2171595]: |
0ms |
get settings: |
11ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
28ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
45ms |
get tp. blocked users: |
2ms |
others: | 13ms |
total: | 135ms |
0 / 0 |