comparar dos vectores

Hola,

Soy nuevo en el foro y tengo poca experiencia con VB.

Quiero comparar dos matrices y guardar en otras dos los elementos de sobran y faltan en la primera respecto de la segunda.

Estas dos matrices con las diferencias tendrán que ser dinámicas, digo yo. Por ejemplo no consigo que funcione este sencillo elemplo:

Option Explicit

Private Sub Command1_Click()
Dim Matriz1(4) As Variant
Matriz1(0) = "Capa1"
Matriz1(1) = "Capa2"
Matriz1(2) = "Capa3"
Matriz1(3) = "Capa4"
Dim Matriz2(4) As Variant
Matriz2(0) = "Capa1"
Matriz2(1) = "Capa2"
Matriz2(2) = "Capa3"
Matriz2(3) = "Lista4"

ReDim Sobran(2) As Variant
Sobran(0) = "Uno"
Sobran(1) = "Dos"

Dim n As Variant
For Each n In Matriz1()
List1.AddItem (n)
Next

Dim m As Variant
For Each m In Matriz2()
List2.AddItem (m)
Next

Dim elem As Variant
For Each elem In Matriz1()
Dim correcto As Boolean
correcto = False
Dim elem2 As Variant
For Each elem2 In Matriz2()
If elem = elem2 Then
correcto = True
End If
Next
MsgBox (correcto)
If correcto = False Then
ReDim Preserve Sobran(elem)
End If
Next

Dim o As Variant
For Each o In Sobran()
List3.AddItem (o)
Next
End Sub

En realidad lo que quiero es comprobar dos matrices con elementos de AutoCAD, por eso voy a usar VBA.

Muchas gracias a todos.

Un saludo. </TR>

RE: comparar dos vectores

No me aclaro muy bien de lo que pretendes hacer... pero lo que sí tengo bien claro es que estás malgastando RAM por un tubo...

Si tu pones

Dim n As Integer
For Each n In Matriz1()

y luego en todos los For Each... dices

For Each n In Matriz2()... etc. No tienes que dimensionar nuevas variables para recorrer cada matriz, sino que puedes utilizar la misma "n"... Y no la definas como Variant...

Cuando hagas esto, probablemente tu código quedará más inteligible, y veré si me aclaro de lo que pretendes hacer...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

RE: comparar dos vectores

Yo la verdad es que tampoco me aclaro mucho con tu pregunta. Por una parte estás hablando de vectores y en las matrices hablas de capas (de dibujo supongo).

Dependiendo de la versión de Autocad que tengas instalada, ésta, te instalará y proporcionará diferentes controles OCX mediante los que podrás acceder a las diferentes capas contenidas en el dibujo y a su vez a las entidades que éstas contienen. Autocad no te va a retornar vectores (tal y como yo entiendo un vector) sino que te retornará un punto(x,y), una dirección enradianes y su magnitud, o bien pares de puntos (xx,yy) o una polilínea. Todos ellos los puedes localizar con la sentencia SEQUEND (creo recordar que es así pero no estoy muy seguro).

Si lo que pretendes es comparar desde tu aplicación si dos ficheros dwg o dxf tienen las mismas o diferentes capas, nada mejor que las colecciones de datos, es decir.

<BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR>

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion