Partir Archivos
Delphi 7 Enterprise
Tengo un archivo plano bastante grande, y necesito partirlo en trozos mas pequeños para hacerlo mas manejable, y poder procesarlos de manera individual.
Intente con un procedimiento que utiliza BLOCKREAD y BLOCKWRITE, pero tengo un problema.
Si el registro es este
1,EPS028,CC,38471049,SALAZAR,CARDONA
2,EPS028,CC,29897965,MARTINEZ,DE
3,EPS028,RC,31600888,GARCIA,OSPINA
4,EPS028,CC,9990036,HERRERA,ROBLEDO
Si por ejemplo quiero partirlo en nuevos archivos de 2 registros cada uno, obtengo
1,EPS028,CC,38471049,SALAZAR,CARDONA
2,EPS028,CC,29897
Es decir, algunos registros quedan incompletos.
El archivo pude traer cualquier cantidad de campos (separados por comas), y generalmente son muy grandes (> 50 MB).
Como puedo hacer para partir una cantidad especifica de registros, pero con la tranquilidad de que estos queden completos?
Muchas gracias
|