Hola para todos.
Amigos estoy atrapado en una tontería que no consigo la solución.
Tengo un archivo.dat (es un .TXT) que tiene varios números de 8 caracteres de longitud. En el pueden haber 20, 40, 100 ó XX registros de números guardados.
La pregunta es:
¿Como hago para saber la cantidad de registros guardados en ese archivo.dat?
Esa cantidad de registros es para colocarla en una Variable y luego poder hacer un: FOR 1 to Variable
He intentado varias formas pero no doy con la solución.
Si alguno me pudiera ayudar a resolver esto, le estaría muy agradecido.
Este es uno de mis fallidos intentos. Está un poco confuso como yo.
'''Aquí debo hacer un Get y un For para leer datos en el .Dat
Dim MiCar As String
Open "RS232.dat" For Random As #1 'Len = Len(MiCar) 'Len("RS232.dat")
MiCar = String(41, " ")
Do While Not EOF(1) '''Repite hasta el final del archivo.
Get #1, 8, MiCar
'MiCar = Left(Input(1, #1), 8) '''Lee el siguiente carácter de datos.
For iCol = 1 To 41 'Asc(MiCar) '41
Input #1, varLinea
Next iCol
Loop
Close #1 ' Cierra el archivo.
El programa me funciona, pero debo abrir el archivo.dat contar manualmente cuantos numeros hay,
luego voy al programa y en el "For iCol = 1 To 41" <--Cambio este último número y así trabaja
sin problemas. Como pueden ver es un fastidio, abrir y contar, cambiar y ejecutar.
Este es el original sin cambios.
Open "RS232.dat" For Input As #2 '''Abre el archivo para lectura.
For iCol = 1 To 41 '2 '50 '24 '52 '''armo un contador
Input #2, varLinea '''meto en la variable varLinea cada dato
aTemp(iCol) = varLinea '''paso al ARRAY el valor leído
Next iCol '''incremento el contador y sigo
Close #2
Por favor si alguien sabe como hacerlo, les agradecería el auxilio que pudieran darme.
Si gustan, al finalizarlo les paso el programita completo, es bien ponqueto, simpático pués.
Bye('_').
