Se puede hacer un programa que cuente 2 tipos de registros distintos de un mismo archivo txt?
Necesito hacer un programita que abra un archivo txt y cuente cuántas líneas comienzan con 3 y cuántas con 7. El resto no importan.
1 Respuesta
Respuesta de James Bond
Prueba esta macro solo pégala en un libro nuevo y cambia la línea que dice ruta
Sub contar()
ruta = "c:\archivos excell\libro1.txt"
Workbooks.Open (ruta)
Set datos = Range("a1").CurrentRegion
For Each Cell In datos
numero = Left(Cell, 1)
If numero = 3 Then x = x + 1
If numero = 7 Then y = y + 1
Next Cell
With datos
col = .Columns.Count
.Cells(1, col + 2) = "cuenta 3"
.Cells(2, col + 2) = "cuenta 7"
.Cells(1, col + 3) = x
.Cells(2, col + 3) = y
End With
Set datos = Nothing
End Sub
