| Pregunta: | 5356 - IMPRIMIR Y LEER ARCHIVOS TXT |
| Autor: | peter bear´sking |
| Como puedo crear, leer e imprimir archivos de texto ( TXT ) con clipper5.2. gracias. Saludos desde chile. | |
| Respuesta: | Norman Devia |
| Peter:
La mejor opción es dar los comandos SET PRINTER TO myfile.txt // Indica el archivo txt SET DEVICE TO PRINTER // SET PRINTER ON // activa la salida de aqui en adelante todos los comandos @ SAY irán directo al archivo myfile.txt Cuando finalice el reporte das: SET PRINTER OFF // Desactiva salida SET DEVICE TO // Los comandos @ SAY irán a la pantalla SET PRINTER TO // Libera el archivo txt Para leer el archivo txt en pantalla existe una utilidad que se llama list.com Suerte | |
| Respuesta: | Fernando Reyes |
| Compatriota, respondo ésta por ésta y la anterior.
Para crear archivos de texto puedes... Si quieres imprimir a un archivo (es decir que en vez de imprimir a la impresora, escriba todo a un archivo), debes añadir antes del SET PRINTER ON el comando SET PRINTER TO <file>, donde <file> es el nombre de archivo con la extensión de tu preferencia (por defecto .prn), en todo caso si le dás como <file>="LPT1" imprimirá directo a este puerto, si le dás "COM1" imprimirá directo a este puerto y así... (te aviso que esto no le gusta mucho al windows), pero para todo esto funciona mejor el ? y el ?? (ó QOut() y QQout() ), el @ ... say te puede dar problemas. Si quieres escribir a un archivo el contenido de una cadena (65 Kb. como límite) puedes utilizar la función MEMOWRIT( <file> , <string> ). Si, por otro lado quieres crear un archivo txt con datos o lo anterior no te sirve, puedes cabecearte con las funciones FCreate, FOpen, FWrite. Si deseas leer un archivo txt y dejarlo en una cadena (65 Kb. como límite) puedes usar la función MEMOREAD( <file> ), de lo contrario FRead, FReadStr acompañadas de FOpen, y no olvides cerrar con FClose. Si no sabes por donde va la cosa hojea un rato las NG. o escríbeme. | |