Resultados 1 al 8 de 8

Tema: Ejemplo guardar lista de archivos

  1. #1
      Acabo de llegar...
    l

    Registrado
    marzo de 2022
    Ubicación
    Yucatán
    Mensajes
    14
    Última visita
    11.07.2022

    Agradecimientos
     
    Recibidos
    3
    Enviados
    2

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Tabla Ejemplo guardar lista de archivos

    Alguien tiene un código para poner el listado de archivos que contiene un directorio, en un archivo de texto?

    Por ejemplo el directorio "New Folder" contiene 20 archivos idx y se guarde los nombre de los archivos
    en el archivos "Listado.txt"

    en rmcobol 7, gracias

    0 Not allowed!

  2. #2
      Senior
    Avatar de Joseg

    Registrado
    abril de 2015
    Mensajes
    273
    Última visita
    Hoy a las 15:10

    Agradecimientos
     
    Recibidos
    115
    Enviados
    72

    Citaciones y menciones
     
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Activista del Foro / Point Value: 0 Innovación / Point Value: 0

    Predeterminado

    CommandLine

    CODE Código:
    1. DIR \New Folder\*.IDX >> Listado.txt

    0 Not allowed!

  3. #3
      Senior
    J

    Registrado
    junio de 2016
    Ubicación
    Albacete
    Edad
    56
    Mensajes
    293
    Última visita
    Hoy a las 19:52

    Agradecimientos
     
    Recibidos
    192
    Enviados
    99

    Citaciones y menciones
     
    Mentioned
    9 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    1 Post(s)
    Poder de Reputación
    24
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

    Cita Iniciado por Joseg Ver Mensaje
    CommandLine

    CODE Código:
    1. DIR \New Folder\*.IDX >> Listado.txt

    Yo lo hago así: ( con /B y en este caso el directorio a listar entre comillas para directorios que contengasn espacios)

    Bash Código:
    1. DIR   /B   "\New Folder\*.IDX" >> Listado.txt

    Ya que, así no hay que ir buscando los ficheros en el detalle, cada línea, un fichero.

    0 Not allowed!

  4. #4
      Acabo de llegar...
    l

    Registrado
    marzo de 2022
    Ubicación
    Yucatán
    Mensajes
    14
    Última visita
    11.07.2022

    Agradecimientos
     
    Recibidos
    3
    Enviados
    2

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado

    COBOL Código:
    1. 1 WK-OPERACION.
    2.             02 pic x(19) value 'DIR *.IDX /B /l >> '.
    3.             02 arch-op pic x(8).
    4.  
    5.  01 temp value 'TEMP'.
    6.            02 HH   pic x(4).
    7.            02 MI   pic 9(2).
    8.            02 SS   pic 9(2).
    9.  
    10. ACCEPT WK-HORA FROM TIME.
    11.              MOVE WK-MI TO MI.
    12.              MOVE WK-SS TO SS.
    13.             MOVE TEMP TO TEMP1.
    14.            MOVE 'TMP1' TO TEMP1(1:4).
    15.              MOVE TEMP1 TO ARCH-OP.
    16.  
    17. call 'system' USING wk-operacion.

    no, no funciona, no logra crear el archivo con tmp con minutos y segundos en su nombre, que es algo trivial realmente.

    No se crea el archvio, en rmcbol 5 si funciona el codigo, que paso?

    0 Not allowed!

  5. #5
      Senior
    J

    Registrado
    junio de 2016
    Ubicación
    Albacete
    Edad
    56
    Mensajes
    293
    Última visita
    Hoy a las 19:52

    Agradecimientos
     
    Recibidos
    192
    Enviados
    99

    Citaciones y menciones
     
    Mentioned
    9 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    1 Post(s)
    Poder de Reputación
    24
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

    Tienes que poner el path completo, si no, no encontrara nada.

    DIR /B "\New Folder\*.IDX" >> Listado.txt

    En qué directorio estás buscando ?

    ---------- Post añadido el 13 de mayo de 2022 a las 00:29 ----------

    Además, tienes que poner el path completo del fichero destino. Solo Dios sabe dónde lo creará.

    DIR /B "\New Folder\*.IDX" >> c:\Dios\Listado.txt

    ---------- Post añadido el 13 de mayo de 2022 a las 00:40 ----------

    Si lo quieres localizar , por ejemplo, c:\tmp\listado.txt

    DIR /B "\New Folder\*.IDX" > c:\tmp\Listado.txt

    Y sólo >, para que cree el fichero, si pones >>, añade a lo que contenia

    ---------- Post añadido el 13 de mayo de 2022 a las 00:51 ----------

    Indica lo que no entiendas !!

    0 Not allowed!

  6. #6
      Acabo de llegar...
    l

    Registrado
    marzo de 2022
    Ubicación
    Yucatán
    Mensajes
    14
    Última visita
    11.07.2022

    Agradecimientos
     
    Recibidos
    3
    Enviados
    2

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado

    Una disculpa no supe explicarme

    la aplicación funciona en este directorio "C:\usr\dat", dentro del directorio están los *.cob y los *.idx, entonces la instrucción donde se ejecuta el comando se guarda aquí
    COBOL Código:
    1.  02 pic x(19) value 'DIR *.IDX /B /l >> '.
    , no se si se ejecuta, pero el archivo tmp1 o temp1 no se crea (por cierto, por cosas que desconozco del programador original, crea un archivo, luego hace que se copie en otro, bueno no importa).

    antes funcionada con rmcobol 5.26.00, ahora con el rmcobol 7.00.02 no funciona el código, supongo el actualizar el runtime algo ya no funciona, pero realmente no se que cambiar para que funcione.

    arriba en mi segunda respuesta esta parte del codigo que junta el dir con el nombre del archivo deseado, quedando asi "DIR *.IDX /B /L > TEMP1"

    0 Not allowed!

  7. #7
      Senior
    J

    Registrado
    junio de 2016
    Ubicación
    Albacete
    Edad
    56
    Mensajes
    293
    Última visita
    Hoy a las 19:52

    Agradecimientos
     
    Recibidos
    192
    Enviados
    99

    Citaciones y menciones
     
    Mentioned
    9 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    1 Post(s)
    Poder de Reputación
    24
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

    Prueba esto y luego lo pesonalizas para resolver tu problema:

    COBOL Código:
    1.  
    2.  
    3. call 'system' USING 'c:\windows\system32\cmd.exe /c  dir /b c:\usr\dat > c:\usr\prueba.txt'
    4.  

    0 Not allowed!

  8. #8
      Acabo de llegar...
    l

    Registrado
    marzo de 2022
    Ubicación
    Yucatán
    Mensajes
    14
    Última visita
    11.07.2022

    Agradecimientos
     
    Recibidos
    3
    Enviados
    2

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado

    Cita Iniciado por JCantero Ver Mensaje
    Prueba esto y luego lo pesonalizas para resolver tu problema:

    COBOL Código:
    1.  
    2.  
    3. call 'system' USING 'c:\windows\system32\cmd.exe /c  dir /b c:\usr\dat > c:\usr\prueba.txt'
    4.  
    Funciono, por fin, muchas gracias lo deje asi
    COBOL Código:
    1.  value 'c:\windows\system32\cmd.exe /c  dir *.idx /l /b >'

    0 Not allowed!

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Información] Lista de usuarios que se eliminarán del Foro
    Por Kuk en el foro COBOLForo.es
    Respuestas: 12
    Último Mensaje: 08.10.2021, 12:12
  2. [Sintaxis] sumar numeros de una lista
    Por Breew en el foro COBOL - General
    Respuestas: 12
    Último Mensaje: 03.06.2020, 22:34
  3. [Sintaxis] Cargar la lista por columnas ctList de DBI-Tech
    Por Breew en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 5
    Último Mensaje: 25.02.2018, 21:59
  4. [Sintaxis] Guardar/cargar jerarquía de nodos en TreeView
    Por dmosca en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 8
    Último Mensaje: 28.08.2017, 22:53
  5. [Sintaxis] Sacar y guardar el cógido fuente de una pagina Web
    Por Roger en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 20
    Último Mensaje: 11.03.2015, 22:56

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •