Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión ...
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
Hola,

El amigo shordi me paso un conversor CSV y todo estupendo.

Pero tras una conversación indirecta con él, se me ocurre que no quiero la intervención de un usuario para la conversión del CSV.

Lo que quiero es que el usuario ponga en una carpeta (digamos container CSV) y tras meter el usuario el archivo CSV el programa se encarga de forma automática o manual pulsado algún botón de actualizar de hacer todo el trabajo con el CSV que encuentre en esa carpeta y tras hacerlo mover este archivo a otra carpeta del interior de esta para dejar la carpeta vacía hasta que el usuario ponga otro CSV.

Bueno pues tengo que empezar por algún sitio y no se como hacer el título del hilo:

-Recuperar un archivo de una ruta sabiendo parte del nombre y la extensión-

Nota: El archivo siempre empieza por "Gasto-" y también tengo la extensión .CSV


=========================Solución===============================
   Dim sCarpeta, sArchivo, sExtension As String

   sCarpeta = User.Home &/ "Descargas"

   For Each sArchivo In Dir(sCarpeta)
      If Right(Stat(sCarpeta &/ sArchivo).Path, 3) = "csv" Then
         Print Stat(sCarpeta &/ sArchivo).Path
      Endif
   Next
 



 
última edición por gambafeliz el Domingo, 22 Septiembre 2019, 17:02; editado 1 vez 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
gambafeliz escribió:  
Nota: El archivo siempre empieza por "Gasto-" y también tengo la extensión .CSV


=========================Solución===============================
   Dim sCarpeta, sArchivo, sExtension As String

   sCarpeta = User.Home &/ "Descargas"

   For Each sArchivo In Dir(sCarpeta)
      If Right(Stat(sCarpeta &/ sArchivo).Path, 3) = "csv" Then
         Print Stat(sCarpeta &/ sArchivo).Path
      Endif
   Next


Más brevemente:

Public Sub Main()

  Dim sCarpeta, sArchivo As String
  
  sCarpeta = User.Home &/ "Descargas"
  
  For Each sArchivo In Dir(sCarpeta, "*.csv", gb.File)
    Print sCarpeta &/ sArchivo
  Next

End

 



 
última edición por vuott el Domingo, 22 Septiembre 2019, 17:57; editado 2 veces 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
vuott no te lo vas a creer, me rio mientras escribo esto, ves que me has dado una solución mejor, pues mi código esta basado en algo más complejo que tu mismo has escrito, y yo te he copiado y simplificado.

Gracias por esta segunda vez.

Si es que al final os voy a tener que querer.  
 



 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
gambafeliz escribió:  
algo más complejo que tu mismo has escrito

Cual ? Donde ?  
 



 
última edición por vuott el Domingo, 22 Septiembre 2019, 19:16; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
vuott escribió:  
gambafeliz escribió:  
algo más complejo que tu mismo has escrito

Cual ? Donde ?  


Este es el enlace web:
https://www.gambas-es.org/viewtopic.php?f=1&t=5093&start=20

Pero, oye, que yo he basado mi código en el tuyo no que tu hayas escrito lo que yo he puesto como solución. Tu lo harías mucho mejor, vamos la solución de ahora que me has dado.

Saludos
 



 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
Ah, pero se hablaba de "la fecha de ultimo cambio de cada archivo contenido en la carpeta".

Para respetar la definición de los parámetros formales de la función Dir( ) es más exacto esto:

For Each archivo In Dir(carpeta, "*.*", gb.File)
 .....etc...

 



 
última edición por vuott el Lunes, 23 Septiembre 2019, 00:55; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
vuott escribió:  
Ah, pero se hablaba de "la fecha de ultimo cambio de cada archivo contenido en la carpeta".

Para respetar la definición de los parámetros formales de la función Dir( ) es más exacto esto:

For Each archivo In Dir(carpeta, "*.*", gb.File)
 .....etc...


Sí, tienes toda la razón, yo es que cogí tu código por que deduje que así obtenía la ruta entera de un CSV pero como no era lo que exactamente buscaba pues improvise a mi manera, ya que no sabia como obtener esta ruta.

Gracias ayer me enseñaste otro poquito más.
 



 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
vuott escribió:  
Ah, pero se hablaba de "la fecha de ultimo cambio de cada archivo contenido en la carpeta".

Para respetar la definición de los parámetros formales de la función Dir( ) es más exacto esto:

For Each archivo In Dir(carpeta, "*.*", gb.File)
 .....etc...


Hola amigo esa parte de codigo hace busqueda por todos los archivos con algun " . " punto?
 



 
portaro - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
portaro escribió:  
vuott escribió:  
Ah, pero se hablaba de "la fecha de ultimo cambio de cada archivo contenido en la carpeta".

Para respetar la definición de los parámetros formales de la función Dir( ) es más exacto esto:

For Each archivo In Dir(carpeta, "*.*", gb.File)
 .....etc...


Hola amigo esa parte de codigo hace busqueda por todos los archivos con algun " . " punto?


Esto lo que hace es, "*.*" = el primer * significa nombre pero el que sea y después pone . para definir la extensión y después el segundo * que significa la extensión.

Pero como tengo poca experiencia en Linux y en gambas pues no sabría decirte como es lo que pides. Pero lo voy a investigar para ver si te lo puedo decir.

Saludos.
 



 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Recuperar Un Archivo De Una Ruta Sabiendo Parte Del Nombre Y La Extensión [Solucionado] 
 
Sì, es así.
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Separar Ruta De Nombre De Archivo v3ctor General 5 Viernes, 01 May 2015, 12:00 Ver último mensaje
vuott
No hay nuevos mensajes Sqliteman, Archivo Extensión Sql Shell Bases de Datos 3 Jueves, 28 May 2015, 21:37 Ver último mensaje
Shell
No hay nuevos mensajes Averiguar La Extensión De Un Archivo. Mé... Shell General 3 Lunes, 16 Enero 2017, 00:39 Ver último mensaje
Shell
No hay nuevos mensajes Leer El Nombre De Un Archivo En Directorio... calcena General 3 Miercoles, 09 Octobre 2019, 15:01 Ver último mensaje
tincho
 

Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario