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

[_Мика_]

Вот код...

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


Dim ar(100) As Byte
Dim arv(100) As Byte

Open "C:\1.exe" For Binary As #1
Seek #1, 100
Get #1, , ar
Close #1

Open "C:\2.exe" For Binary As #1
Seek #1, 100
Get #1, , arv
Close #1


Надо узнать, одинкавы ли масивы или нет...

Так не получается

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


If ar = arv Then
MsgBox "True"
Else
MsgBox "False"
End If


[/code]

[alibek]

Сравниваешь поэлементно.
Другой вариант - накладываешь друг на друга по XOR и если результат нулевой, значит они одинаковы. Но это не для VB.

[_Мика_]

Да, но по элементно будет очень долго, не ужели нету другого пути?

[Ennor]

Вычисли и сравни их CRC32 . Правда, не уверен, что это будет быстрее...

[alibek]

А смысл? CRC не дает гарантии (1) и в любом случае надо перебирать все элементы (2). Лучше уж сразу сравнивать.

[_Мика_]

Ну впринцапи сравнивание 100 байт проходит быстро.....спасибо

[_Мика_]

Еще...

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



Open "C:\1.exe" For Binary As #1
Seek #1, 100
Get #1, , arv
Close #1


Open "C:\1.base" For Binary As #1
Put #1, , arv
Close #1



Он записывает почемуто просто пробелы

[alibek]

Перед тем, как считать файл, сделай ReDim arv(1 To LOF(1))

[_Мика_]

не в этом дело.....

У меня она объявленна..

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


Dim arv(100) As Byte


Я считываю 100 байт и записываю в другой файл....

[alibek]

Во первых, она объявлена неправильно.
Если у тебя нет директивы Option Base 1, то этот массив состоит не из 100 элементов, а из 101 (0...100).
А во вторых покажи весь код.

[_Мика_]

вот

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


Dim arv(100) As Byte

Open "C:\1.exe" For Binary As #1
Seek #1, 100
Get #1, , arv
Close #1

Open "C:\1.base" For Binary As #1
Put #1, , arv
Close #1


[alibek]

Вроде бы правильно. А зачем тебе Seek? Позицию можно и в Get указать.

Попробуй указать arv(), а не arv.

[reajev]

Пишешь в один файл, а читаешь из другого
C:\1.exe и C:\1.base"

[_Мика_]

Пишешь в один файл, а читаешь из другого
C:\1.exe и C:\1.base"

Ну да.....а к чему вы это сказали?

[_Мика_]

все равно не получается

[_Мика_]

Блин.....тупая башка....файл C:\1.exe пустой

Так с этим все ясно......
А как сделать масив масива, т.е. что бы в масиве хранился масив.

Пробовал так...

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


Private Type qwe
zxc(100) As Byte
End Type

Dim asd() As qwe


Ошибка "Subscript out of range " когда пытаюсь седалть так...

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


Open "C:\1.exe" For Binary As #1
Seek #1, 100
Get #1, , asd(1).zxc()
Close #1


[GSerg]

А где redim asd?

[_Мика_]

Зачем Redim.....здесь он не нужен

[alibek]

Это ты так думаешь. А VB думает иначе.

[_Мика_]

КАК ТАК?? В asd хранится другой массив......

[Igor_123]

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

[_Мика_]

Я не могу понять этого

Можно пример не большой?

[GSerg]

Скажи честно, ты издеваешься?

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

Private Type qwe
  zxc(100) As Byte
End Type

Dim asd() As qwe
ReDim asd(1 to 10)

Open "C:\1.exe" For Binary As #1
Get #1, 100, asd(1).zxc
Close #1

[Igor_123]

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

Type asdf
    qwe(1 To 100) As Long
End Type

Sub Test()
Dim i As Long
Dim a() As asdf
'Распределяем на 100 элементов
ReDim a(1 To 100)
'заполняем по диагонали внутренний массив
For i = 1 To 100
    a(i).qwe(i) = i
Next i
'Выводим результат
For i = 1 To 100
    Debug.Print a(i).qwe(i)
Next i
End Sub

[_Мика_]

Аааааа.... понял.....я то думал ReDim arv(1 To LOF(1))

Спасибо