Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/09/2008, 20:33
alekula
 
Fecha de Ingreso: julio-2007
Mensajes: 79
Antigüedad: 16 años, 9 meses
Puntos: 0
Array: pasar parametros

Hola tengo un problema en VB 6 porque pero soy nuevo en VB, asi que tengo varios problemas, que alguno de ustedes me podra ayudar a resolver.
Hice un pequeño programa que lee datos de algunos txt. Cada uno de estos txt los tengo que guardar en distintas matrices. Como se repetia bastante el codigo ya que son como 6 txt me parecio mejor hacer en una SubRutina pero me encuentro con el problema que no se pasar los parametros, como para que solo llame al proceso, me guarde la matriz y me la devuelva cargada. Asi con 6 serian 6 matrices. No se donde tengo que declarar las matrices si fuera o dentro de la rutina o en programa principal. Ahi dejo la rutina que hice. Y no creo que este bien la declaracion de las variables. Si alguien me pude dar una mano yo agradecido. Saludos


archivo="c:\stock.txt"


Private Sub LeerStock(u As String, k As String, qa As String, ulinea As String)
'Stock de Discos'
sArchivo = "archivo"
Open sArchivo For Input As #2
Do While Not EOF(2)
Line Input #2, ulinea
u = Split(ulinea, vbTab)
agregarceros u(0)
qa = qa + 1
k(qa, 0) = u(0) 'Numero de Juego"
k(qa, 1) = u(1) 'Cantidad'
k(qa, 2) = u(2) 'infinito'
k(qa, 3) = u(3) 'idioma'
k(qa, 4) = u(4) 'remplazo'
Loop
MsgBox k(qa, 0)
End Sub