Visual Basic - como saber el largo de arreglo

Life is soft - evento anual de software empresarial
 
Vista:

como saber el largo de arreglo

Publicado por Diego (4 intervenciones) el 13/10/2010 17:24:01
Señores , Como podria saber el tamaño de un arreglo o una forma de poder controlar el
arreglo cuando llegue a su fin algo parecido con el EOF.

de antemano gracias

Diego
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:como saber el largo de arreglo

Publicado por FELIPE (41 intervenciones) el 13/10/2010 18:54:16
Hola
Para empezar podrias definir el tamaño maximo de tu arreglo y un contador que te indique la cantidad de items que vas ingresando
Para los condiciones del EOF utiliza el contador

dim arreglo( ) as string
CONST TM=100 'Tamaño máximo del arreglo
Dim Contador as integer ' Numero de Items ingresado
Dim pos as integer ' indica posicion del item

Private Sub Form_load( )
redim arreglo(TM)
End Sub

Private Sub Insertar( )
if Contador < Tm then
Contador = Contador +1
arreglo(contador)=txtdato.text
if Contador = 1 then
pos = 1
txtmostrar.text = arreglo(pos)
end if
end if
End Sub

Private Sub SiguienteArreglo()
if Contador>0
if pos < Contador then
pos = pos +1
txtmostrar.text = arreglo(pos)
end if
end if
End Sub

Espero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como saber el largo de arreglo

Publicado por Diego (1 intervención) el 13/10/2010 20:39:24
Gracias Felipe, pero lo que necesito es los siguiente:

yo en base a un archivo *.txt lo separo por el caracter ":" y lo voy ingresando a un arreglo por medio de la instruccion SPLIT pero resulta que el archivo *.txt no siempre es del mismo tamaño por lo que despues que se genera la funcion que
me lo deja en el arreglo yo necesito saber el largo del arreglo.

Ojalas puedas ayudarme.

Gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:como saber el largo de arreglo

Publicado por FELIPE (41 intervenciones) el 13/10/2010 21:33:14
Ahora me es mas claro tu pregunta

Dim N As Integer 'Captura la cantidad de items
Dim arreglo() As String 'Se declara un arreglo de longitud indefinida

Sub EstablecerArreglo
cadena="01;02;03;04;05"

arreglo() = Split(cadena, ";")
'El arreglo empieza con posicion (0) por defecto)

N = UBound(arreglo) + 1

' LBound = posicion del primer item de un arreglo
' UBound = Posicion del ultimo item de un arreglo
End sub

Espero que esto resuelva tus dudas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar