Encontre nueva solucion a problema Matrices_Multidimension4

[marcosdavid]

Con la finalidad de mantener ordenado este foro me gustaria que:
1 - un moderador añada la siguiente solucion a un tema ya cerrado y que esta en el siguiente link https://forum.openoffice.org/es/forum/v ... f=4&t=6724
La siguiente macro es para añadir como respuesta a: https://forum.openoffice.org/es/forum/v ... f=4&t=6724

para no tener dos temas abiertos de lo mismo, sin embargo creo que sirve mi aportacion

Código: Seleccionar todo

Sub Matrices_Multidimension4
Dim mDirectorio( 0, 1 ) As String
Dim Nombre As String
Dim Telefono As String
Dim iContinuar As Integer
Dim co1 As Integer
Dim sTmp As String
dim texto as string

	Do
		'Solicitamos el nombre, observa el uso de la función Trim para quitar espacios sobrantes
		Nombre = Trim( InputBox( "Escribe un nombre", "Nombre" ) )
		Telefono = Trim( InputBox( "Ahora su teléfono", "Teléfono" ) )
		'Redimensionamos la matriz, pero OJO, solo la primer dimensión
		Redim Preserve mDirectorio( co1, 1 )
		'Guardamos los datos en el nuevo indice
		mDirectorio( co1, 0 ) = Nombre
		mDirectorio( co1, 1 ) = Telefono 	
		'Vamos construyendo nuestro directorio
		sTmp = sTmp & "El teléfono de " & mDirectorio( co1, 0 ) & " es " & mDirectorio( co1, 1 ) & Chr(13)
		'Incrementamos nuestro contador de registros
		co1 = co1 + 1
		'Preguntamos si desea continuar
		iContinuar = MsgBox( "¿Deseas capturar mas datos?", 4 + 32, "Continuar" )
	Loop While iContinuar = 6
	For co1 = Lbound( mDirectorio, 1) To Ubound( mDirectorio, 1 )
		'MsgBox "El teléfono de " & mDirectorio( co1, 0 ) & " es " & mDirectorio( co1, 1 ) & Chr(13)
		texto = texto & "El teléfono de " & mDirectorio( co1,0 ) & " es " & mDirectorio( co1,1 ) & chr(13)
	Next
	msgbox texto
End Sub