[RESUELTO]Mostrar directorio completo en una matriz multidim

¿Nuevo en Apache OpenOffice? ¿No sabe cómo comenzar o dónde hacer su pregunta? ¡Este es el lugar!
Reglas del Foro
Los moderadores podrían mover los temas creados aquí a un foro más apropiado.
Si usted publicó aquí y no encuentra el tema, puede buscar sus mensajes haciendo clic en la opción «Buscar sus mensajes» que se encuentra justo debajo de la cabecera de la página, junto al panel de control de usuario y al acceso a sus mensajes privados.

[RESUELTO]Mostrar directorio completo en una matriz multidim

Notapor Basedw » Jue May 17, 2012 11:25 pm

Estoy aprendiendo Ooo Basic con el método de Mauricio Baeza. Me está gustando aunque creo que necesita corregir la redacción. Muestra un ejemplo de matriz multidimensión y propone un ejercicio de completar el macro de forma que muestre el directorio completo. Sólo he conseguido que vaya apareciendo una de las dos columnas. Agradecería una ayuda.

Option Explicit

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

Do
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 mDirectorio( co1, 1 ), 64, "El directorio"
Next

End Sub
Última edición por RGB-es el Jue May 24, 2012 10:27 pm, editado 1 vez en total
Razón: Marcar como resuelto
LibreOffice 3.5 - Ubuntu 12.04
Basedw
 
Mensajes: 27
Registrado: Jue May 17, 2012 10:51 pm

Re: Mostrar directorio completo en una matriz multidimensión

Notapor mriosv » Vie May 18, 2012 12:50 am

Bienvenido(a) al foro Basedw.

Espero que alguien te pueda contestar pronto.

Si crees que el libro necesita alguna corrección, lo menos que puedes hacer es indicar cual, para que su autor pueda contrastar si efectivamente es necesaria.
Última edición por mriosv el Sab May 19, 2012 12:55 am, editado 1 vez en total
Puedes usar "Subir adjunto" en Respuesta rápida - Editor Completo - Pestaña Subir adjunto
Apache OpenOffice 4, LibreOffice 5 (Win10x64)
mriosv
 
Mensajes: 2176
Registrado: Sab Dic 27, 2008 1:12 am
Ubicación: Galiza (España)

Re: Mostrar directorio completo en una matriz multidimensión

Notapor Basedw » Vie May 18, 2012 12:54 pm

Gracias mriosv.
En cuanto a las correcciones, espero poder enviar en un futuro todas ellas juntas.
LibreOffice 3.5 - Ubuntu 12.04
Basedw
 
Mensajes: 27
Registrado: Jue May 17, 2012 10:51 pm

Re: Mostrar directorio completo en una matriz multidimensión

Notapor fornelasa » Mié May 23, 2012 3:45 am

Hola, se supone que solo deberias agregar esta linea:
MsgBox mDirectorio( co1, 0 ), 64, "El directorio"

aqui:

For co1 = Lbound( mDirectorio, 1) To Ubound( mDirectorio, 1 )
MsgBox mDirectorio( co1, 0 ), 64, "El directorio"
MsgBox mDirectorio( co1, 1 ), 64, "El directorio"
Next

Saludos, Federico.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3223
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Mostrar directorio completo en una matriz multidimensión

Notapor Basedw » Jue May 24, 2012 10:20 pm

RESUELTO
Muchas gracias, Federico. Efectivamente así se muestra todo el directorio.
Estoy comenzando en este leguaje de programación y todavía me resulta complicado.
LibreOffice 3.5 - Ubuntu 12.04
Basedw
 
Mensajes: 27
Registrado: Jue May 17, 2012 10:51 pm


Volver a Principiantes

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados