Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Сравнение массивов в 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?desktop=1&fid=60&tid=2171595]: |
0ms |
get settings: |
10ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
35ms |
get topic data: |
9ms |
get forum data: |
3ms |
get page messages: |
41ms |
get tp. blocked users: |
2ms |
| others: | 13ms |
| total: | 132ms |

| 0 / 0 |
