Página 1 de 1

Función que devuelva la cantidad de datos de un array

Publicado: 13 Dic 2009, 20:03
por Snopk
Hola a todos,creo que es una duda simple. Les explico mi duda con el siguiente código:

Código: Seleccionar todo

Dim Dato As String, sDato() As String
Dim i As Integer
sDato() = Split(Dato, " ")

For i = 0 To [color=#BF0000]FUNCION[/color](sDato)
MsgBox sdatos(i)
Next i
:
Lo que me falta es una función que devuelva la cantidad de datos que contiene la variable sDato
() que en este caso seria la cantidad de palabras (separadas por un espacio)

Espero que me pueda ayudar, saludos.

Re: Función que devuelva la cantidad de datos de un array

Publicado: 14 Dic 2009, 00:15
por skyweb07
Amigo para eso estan los comandos Ubound() que devuelve el valor máximo de un Array y el Lbound() que devuelve el valor minimo de un Array ;) Saludos!

Re: Función que devuelva la cantidad de datos de un array

Publicado: 18 Dic 2009, 02:01
por Snopk
Excelente!, creo que me salte el capitulo donde estaban esas funciones.
Gracias a los dos.

Re: Función que devuelva la cantidad de datos de un array

Publicado: 18 Dic 2009, 10:15
por cobein
Un dato mas simplemente para completar esto, Ubound y Lbound aceptan un 2do parametro opcional para indicar la dimension.

Código: Seleccionar todo

Private Sub Form_Load()
    Dim bvData(0 To 1, 2 To 3) As Byte

    Debug.Print UBound(bvData, 1)
    Debug.Print LBound(bvData, 1)
    Debug.Print UBound(bvData, 2)
    Debug.Print LBound(bvData, 2)
End Sub

Re: Función que devuelva la cantidad de datos de un array

Publicado: 26 Dic 2009, 04:30
por Snopk
cobein escribió:Un dato mas simplemente para completar esto, Ubound y Lbound aceptan un 2do parametro opcional para indicar la dimension.

Código: Seleccionar todo

Private Sub Form_Load()
    Dim bvData(0 To 1, 2 To 3) As Byte

    Debug.Print UBound(bvData, 1)
    Debug.Print LBound(bvData, 1)
    Debug.Print UBound(bvData, 2)
    Debug.Print LBound(bvData, 2)
End Sub
Gracias por el dato.