Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/12/2003, 11:09
carlostapi
Usuario baneado!
 
Fecha de Ingreso: enero-2003
Mensajes: 184
Antigüedad: 22 años, 3 meses
Puntos: 0
Exclamación contar lineas en visual basic de un TXT

tengo un archivo en TXT y tengo un progrma en visual basic que lo valeyendo linea a linea pero stas lineas estan a lo largo de todo el programa es decir,,

parte el programa y lee la primera linea si cumple condicion va a una sub rutina y ay lee otra linea
si cumple con condicion va a dar a un case y cda uno puede leer la linea desde el archivo TXT

ya mi prolblema es que no se como para porque me da error porque leyo y ya el archivo termino,,

no puedo poner que cuando sea fin de archivo se salgaprque el progrma despeus de que lee todo genera una base de datos, y si le digo

END se me sale pero no me sirve

cree

Private Sub acabo()
If archivo.AtEndOfStream = True Then
end

End If
End Sub

que no me sirve porque se sale y me falta generar la base de datos

pense entonces que lo mejor sera controlar por numero de lineas pero debo prmero hacer un do... loop que sea capas de recorrere todo el archivo TXT y me diga cuantas lineas hay ,,entonces asi cada vez que en cualquieer parte del programa lea una linea el contador se incrementa hasta llegr a la ultima y se sale porque es la ultima linea,,,


miproblema es:

1) omo lo hago contar todas las lineas del TXT y luego volverlo al principio
onda recuerdo que en asp yo hagoque lea todo el Recordset y luego lo devuelvo con TXT.movefirst

2) una vez quelo devuelva taria listo

alguien tiene una mejor idea para ayudarme ,el problema es que como lee las lineas desde cualquier parte debo ir controlando por eso cree esa sub rutina,

bueno cualquier aporte extra a:

[email protected]