Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > Programación e Informática > Lenguajes de programación > WinDev
WinDev Entorno RAD cada vez más popular.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
Como generar un PrintScreen Hrmcobol Controles y Componentes (DLL/OCX) 11 14 de agosto de 2018 15:32
[Información] Generar fichero PDF desde cobol Irene AcuCobol 6 15 de marzo de 2018 11:24
[Sintaxis] Crear Rutina que exporte archivos DAT a TXT? KalEl NetCOBOL for Windows 15 24 de septiembre de 2017 21:43
[Sintaxis] Generar archivo xml en utf-8 Fito PowerCOBOL (ActiveX, v4 - v11) 4 29 de julio de 2017 23:44
Leer y contar .TXT Anthony AcuCobol 2 11 de junio de 2015 18:03
Respuesta
 
Herramientas

  #1
Antiguo 11 de noviembre de 2016, 21:36
IDENTIFICATION DIVISION
Dasije
 Novato Senior
ENVIRONMENT DIVISION
Avatar de Dasije
DATA DIVISION
noviembre 2015
Jerez De La Frontera (cádiz)
16.06.2021 17:30
PROCEDURE DIVISION
Posts: 176
Enviado: 1
Recibido: 78
Soluiones: 7
Reputación: 13
Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road
Predeterminado Crear generar un TXT

Una de las formas más fácil y rápida de crear un fichero de texto, como puede ser para exportar datos por ejemplo, sería así:

Crear fichero:

Código WinDev:
  1. TraceStart(trCreation+trFile,"tickets_subidos.txt")

Volcar información:

Código WinDev:
  1. Trace("ticket"+";"+"linea")

Terminar:

Código WinDev:
  1. TraceEnd()

Saludos.


Nitzer, JRBonafonte, Fito,


Empresa de desarrollo de aplicaciones en COBOL.

DASIJE INFORMATICA, S.L.
C/ TOMAS BRETON 20
11406 JEREZ DE LA FRONTERA
CADIZ

Teléfono : 956 11 21 11
Web: http://www.dasije.es / DASIJE INFORMATICA
E-m@il: clientes(@)dasije.es
Dasije no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Fito (12 de noviembre de 2016)
  #2
Antiguo 12 de noviembre de 2016, 02:21
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
febrero 2015
Córdoba, Villa María
50 años
18.06.2021 20:05
PROCEDURE DIVISION
Posts: 264
Enviado: 137
Recibido: 127
Soluiones: 13
Reputación: 19
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

Para aportar otra forma, sería así:

Supongamos que tenemos un archivo de artículos y queremos hacer un csv, separado por ";", con el código, descripción, existencia.

Código WinDev:
  1. sArchivoCSV is string  = ""  // definimos una variable para "acumular" los datos
  2.        
  3. FOR EACH Arti     // leemos todo el archivo de articulos y pasamos los valores a
  4.                         // la variable
  5.     sArchivoCSV += Arti.Codigo + ";" + Arti.Descrip + ";" + Arti.Existencia + CR
  6.     // fijense que mezclé campos numéricos y alfanuméricos sin aplicar ninguna
  7.     // funcion para convertir tipo de dato. Windev lo hace solo.
  8. END
  9. IF sArchivoCSV<>"" THEN
  10.     fSaveText("Archivo.CSV",sArchivoCSV)
  11. END

Saludos.

Fito...
Fito no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 19:36.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.