[SOLUCIONADO] Matrices tridimensionales de diferente tipo

[oskarrr]

Necesito declarar una matriz tridimensional, donde:
1ª dimensión: string
2ª dimesión: integer
3ª dimensión: integer

No sé los campos que van a tener, y necesito que sea una variable pública. He estado mirando la documentación de VB6 con respecto a las matrices pero no he encontrado como se pueden declarar matrices con dimensiones de diferente tipo.

[pkj]

Quizas puedas usar type:

Al comienzo del form:

Código vb:

Private Type VARIABLE
    cadena As String
    entero1 As Integer
    entero2 As Integer
  End Type
 
  Public matriz1(200) As VARIABLE
 

De este modo tienes una matriz unidimensional con 3 valores en cada elemento

Código vb:

Dim f As Integer
  For f = 0 To 200
    matriz1(f).cadena = "xxx"
    matriz1(f).entero1 = 111
    matriz1(f).entero2 = 222
  Next f
 

Suerte

PD: lo edito porque lo que quieres publico es la matriz y lo habia hecho con la variable.

[oskarrr]

Exacto, no conocía type! Me viene de perlas para hacer el código más clarificador

La otra duda es si puede haber matrices infinitas, de manera que las vaya rellenando hasta donde haga falta y poder recogerlas con Ubound.
Hasta ahora lo estoy haciendo bastante chapucero. Declaro una matriz bastante más grande de lo que me hace falta, la recorro y le asignó todos los valores "empty" por ej., y luego la recorro manualmente hasta que encuentre empty.

Por ej, la relleno así:
Dim Matriz(1 to 2000, 1 to 2000) as string
For i=1 to 2000
For j=1 to 2000
Matriz(i,j)="empty"
j=j+1
Next j
i=i+1
Next i

Luego le introduzco valores en la matriz hasta donde sea necesario, y para recorrerla uso:
i=1
j=1
Do while Matriz(i,j)<>"empty"
Do while Matriz(i,j)<>"empty"
'Instrucciones
j=j+1
Loop
i=i+1
Loop

Perdón por el código pero estoy estoy escribiendo desde el móvil sin tabulaciones, etc.

Pienso que debe haber alguna forma para crear una matriz infinita de (n,n) y rellenar sus elementos hasta donde lleguen, y luego poder recorrerla con un for con el valor que te devuelva ubound.

El porque de usar esta matriz, es para almacenar un archivo de texto en una matriz, donde la primera dimensión indica la página y la segunda la línea. Como una página puede tener más líneas que otras no puedo leerla y establecer una matriz fija usando redim pues siempre quedarán posiciones vacías.

No se si estoy diciendo barbaridades jeje, nunca he estudiado programacion. Sólo intentó leer mucho y aprender por mero hobby.

Saludos

[erbuson]

Para lo que quieres deberías leer acerca de ReDim Preserve

Siguiendo con el ejemplo anterior

Código vb:

Option Explicit
Private Type VARIABLE
    cadena As String
    entero1 As Integer
    entero2 As Integer
End Type
 
Dim matriz1() As VARIABLE
 
Private Sub Form_Load()
  ReDim matriz1(200) As VARIABLE
  Dim f As Integer
  For f = 0 To 200
    matriz1(f).cadena = "xxx"
    matriz1(f).entero1 = 111
    matriz1(f).entero2 = 222
  Next f
  ReDim Preserve matriz1(400) As VARIABLE
  For f = 201 To 400
    matriz1(f).cadena = "yyy"
    matriz1(f).entero1 = 333
    matriz1(f).entero2 = 444
  Next f
  MsgBox UBound(matriz1)
End Sub
 

Antes de Añadir elementos a la Matriz, debes ver si Ubound esta ocupado y si es así con el ReDim Preserve añadirle los elementos que necesites.

[oskarrr]

Gracias. Tus ejemplos me han válido mucho y ya tengo esa parte del prpgrma a acabada.