Contador de Páginas

[ProgMaru]

Hola! Necesito crear una rutina que me calcule el total de páginas que van a enviarse a imprimir despues de armar un txt. Para ésto debo "contar" las líneas, al llegar a la número 16 cambio de página (eso ya esta) . Pero necesito que me salga una leyenda en el pie que diga "Página 1 de 12" por ejemplo. Alguien me pude ayudar a como realizar esta rutina? Espero una pronta respuesta. O una ayuda como guia. Gracias

[lokoman]

Hola!!
A ver... una forma seria asi:

1) OBTENEMOS EL TOTAL DE LINEAS
dim Total as integer, CONT as integer, RutaArchivo as string, RutaArchivoConPie as string, Data

open RutaArchivo for input as #1
do while not eof(1)
Total=Total+1
loop
close #1

Total=Total/16
if Total<1 then Total=1

2)CREAMOS UN NUEVO ARCHIVO CON LOS DATOS DEL ARCHIVO ORIGINAL
Open RutaArchivoConPie for output as #2
open RutaArchivo for input as #1
do while not eof(1)
input#1, Data
Write #2, Data
CONT=CONT+1
if CONT=16 then write#2,"Pagina " & CONT & " de " & TOTAL
loop
close#1
close#2

3)ELIMINAMOS EL ARCHIVO ORIGINAL PARA SOLO TENER EL NUEVO
Kill RutaArchivo

Prueba a ver si te funciona

[pkj]

Creo que te falta leer las líneas del primer fichero para contarlas, y en la ultima parte debes poner a cero CONT cuando llega a 16, aparte de que no lo debes usar como contador de páginas porque cuenta líneas.

Saludos

[lokoman]

je, je,je... se me pasó

1) OBTENEMOS EL TOTAL DE LINEAS
dim Total as integer, CONT as integer, RutaArchivo as string, RutaArchivoConPie as string, PAG as integer,Data

PAG=0
CONT=0
open RutaArchivo for input as #1
do while not eof(1)
input #1, Data
Total=Total+1
loop
close #1

Total=Total/16
if Total<1 then Total=1

2)CREAMOS UN NUEVO ARCHIVO CON LOS DATOS DEL ARCHIVO ORIGINAL
Open RutaArchivoConPie for output as #2
open RutaArchivo for input as #1
do while not eof(1)
input#1, Data
Write #2, Data
CONT=CONT+1
if CONT=16 then
PAG=PAG+1
write#2,"Pagina " & PAG & " de " & TOTAL
CONT=0
end if
loop
close#1
close#2

3)ELIMINAMOS EL ARCHIVO ORIGINAL PARA SOLO TENER EL NUEVO
Kill RutaArchivo

Prueba a ver si te funciona