Visual Basic - Contar lineas archivo

Life is soft - evento anual de software empresarial
   
Vista:

Contar lineas archivo

Publicado por claudio tapia (38 intervenciones) el 02/09/2009 22:18:41
Estimados.

Alguien sabe como puedo contar la cantidad e lineas de un archivo estuve probando pero no me resulta me entrega un valor nada que ver

Transcrivo lo que tengo

archivo = "C:/Archivo.txt"
Open archivo For Input As #1
Contar = 0
While Not EOF(1)

Line Input #1, mivariable
Contar = Contar + 1
Wend

Se agradece cualquier ayuda
Saludos
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

RE:Contar lineas archivo

Publicado por juan carlos (518 intervenciones) el 03/09/2009 03:08:11
hola claudio, le hice algunas modificaciones a tu codigo,
lo prove con un command1
cualquier duda contactame a
mega.juca@hotmail.es
Dios te bendiga

-------------------------------------------------------
tu codigo:
-------------------------------------------------------
Private Sub Command1_Click()
archivo = "C:/Archivo.txt"
Open archivo For Input As #1
Contar = 0
While Not EOF(1)

Line Input #1, mivariable
Contar = Contar + 1
Wend
end sub

-------------------------------------------------------
con las modificaciones
-------------------------------------------------------
Private Sub command1_Click()
Dim contar As long
archivo = "C:/Archivo.txt"
Open archivo For Input As #1
While Not EOF(1)
Line Input #1, mivariable
contar = contar + 1
Wend
Close #1
MsgBox contar & " lineas"
End Sub
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