Сравнить два массива

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
|( () ( T |/| |(
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 211
Зарегистрирован: 01.10.2005 (Сб) 15:49

Сравнить два массива

Сообщение |( () ( T |/| |( » 04.10.2006 (Ср) 10:41

Код: Выделить всё
Private Function compareArrey(arrey1() As Byte, arrey2() As Byte) As Boolean
Dim p As Long
If UBound(arrey1) <> UBound(arrey2) Then compareArrey = False: Exit Function
For p = 0 To UBound(arrey1)
If arrey1(p) <> arrey2(p) Then compareArrey = False: Exit Function
Next
compareArrey = True
End Function


вопрос: можно ли как нибуть ускорить это дело?, не каких нибуть API для этого?

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 04.10.2006 (Ср) 10:59

ntdll!RtlCompareMemory
Изображение

|( () ( T |/| |(
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 211
Зарегистрирован: 01.10.2005 (Сб) 15:49

Сообщение |( () ( T |/| |( » 04.10.2006 (Ср) 11:27

А с RtlCompareMemory примерчик есть?, или хотябы как её обявить?

P.S. Это разве стандартная API?

Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Сообщение Antonariy » 04.10.2006 (Ср) 12:11

Код: Выделить всё
Private Declare Function EqualMemory Lib "ntdll" Alias "RtlCompareMemory" (Destination As Any, Source As Any, ByVal Length As Long) As Long

r = EqualMemory(arr1(0), arr2(0), ubound(arr1) + 1)
IsEqual = r = ubound(arr1) + 1

А бывают нестандартные?
Лучший способ понять что-то самому — объяснить это другому.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 04.10.2006 (Ср) 12:21

Бывают недокументированные :)
Но эта -- документирована.
Lasciate ogni speranza, voi ch'entrate.

keks-n
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2509
Зарегистрирован: 19.09.2005 (Пн) 17:17
Откуда: г. Москва

Сообщение keks-n » 04.10.2006 (Ср) 13:55

Про 9х опять забыли :(
Изображение

Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Сообщение Antonariy » 04.10.2006 (Ср) 14:02

Ах, бедная, несчастная 9х! :cry: Покойся с миром.
Лучший способ понять что-то самому — объяснить это другому.

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 04.10.2006 (Ср) 15:14

keks-n писал(а):Про 9х опять забыли :(
А что, бывает такая? :shock: А ХР типа поставить дорого? Ну так приезжай к нам, в Россию :D
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!

keks-n
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2509
Зарегистрирован: 19.09.2005 (Пн) 17:17
Откуда: г. Москва

Сообщение keks-n » 04.10.2006 (Ср) 15:17

Если 98 - уже реликт, то Me ещё стоит на некотором проценте компов. Это раз. Не все программы(есть древние вещи, без аналогов) работают под NT - это два. И не все компы(знаете ли у некоторых ещё стоит старьё, а новый комп в отличие от винды за 30 рублей не купишь) потянут NT.
Изображение

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 04.10.2006 (Ср) 15:57

Новый комп стоит 214 баксов (самый дешевый, конечно, но ХР потянет со свистом). Это смертельно дорого?
Вложения
Comp.GIF
(12.16 Кб) Скачиваний: 179
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 7

    TopList  
cron