Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Separar Ruta De Nombre De Archivo
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Separar Ruta De Nombre De Archivo 
 
buenas, mi pregunta es si hay algún comando o forma preestablecida para separar carpeta de nombre de archivo de un string

ejemplo:

string="/home/postapase/Escritorio/prueba.txt"

necesito separar "/home/postapase/Escritorio/"  de "prueba.txt" y asignarlo a dos variables


hay algún comando para eso o tengo que hacer una rutina?
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Separar Ruta De Nombre De Archivo 
 
Tienes que usar dos metodos de la Clase File:

Public Sub Main()

  Dim carpeta, nomen As String

   carpeta = File.Dir("/home/postapase/Escritorio/prueba.txt")

   nomen = File.Name("/home/postapase/Escritorio/prueba.txt")

End

 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Separar Ruta De Nombre De Archivo 
 
uy no te puedo creer lo conocía pero no recordaba, jaja miren lo que hice jajaj

' gambas class file


Public Sub Form_Open()
Dim ruta As String
Dim nombre As String
Dim a As Integer

txtRuta.Text = "/home/prueba1/Escritorio/basetaller2"  

For a = 1 To Len(txtRuta.Text)
   If Left$(Right$(txtRuta.Text, a), 1) = "/" Then
      nombre = Right$(txtRuta.Text, a - 1)
      ruta = Left$(txtRuta.Text, Len(txtRuta.Text) - a)
      Break
   Endif  
Next

Print "Nombre archivo es=" & nombre
Print "Ruta de archivo es=" & ruta

End


gracias vuott
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
última edición por v3ctor el Jueves, 30 Abril 2015, 18:37; editado 1 vez 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Separar Ruta De Nombre De Archivo 
 
v3ctor escribió: [Ver mensaje]
uy no te puedo creer lo conocía pero no recordaba, jaja miren lo que hice


....decimos que eso fue una ejercitación.
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Separar Ruta De Nombre De Archivo 
 
...pero yo se que asì mucho te gusta Extern...  

Puedes utilizar la libreria libgio:

Library "libgio-2.0:0.4002.0"

' GFile * g_file_new_for_path (const char *path)
Private Extern g_file_new_for_path(path As String) As Pointer

' char * g_file_get_basename (GFile *file)
Private Extern g_file_get_basename(gfile As Pointer) As String

' char * g_file_get_path (GFile *file)
Private Extern g_file_get_path(gfile As Pointer) As String


Public Sub Main()

  Dim gf As Pointer
  Dim carpeta, nomen As String

   gf = g_file_new_for_path("/ruta/del/archivo")
   If IsNull(gf) Then Error.Raise("No es posible crear un objecto GFile con la ruta de este fichero !")

   nomen = g_file_get_basename(gf)
   Print nomen

   carpeta = Replace(g_file_get_path(gf), nomen, Null)
   Print carpeta

End

 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Separar Ruta De Nombre De Archivo 
 
v3ctor escribió: [Ver mensaje]
jaja miren lo que hice jajaj


...al querer usar cadenas, se podría hacer más brevemente así:

Public Sub Main()

  Dim s, ruta, nombre As String

   ruta = Left(s, RInStr(s, "/"))
  
   nombre = Replace(s, ruta, Null)

   Print "Nombre archivo es= "; nombre
   Print "Ruta de archivo es= "; ruta

End
      undecided
 



 
última edición por vuott el Viernes, 01 May 2015, 12:02; editado 1 vez 
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 Recuperar Un Archivo De Una Ruta Sabiendo ... gambafeliz General 11 Miercoles, 25 Septiembre 2019, 10:46 Ver último mensaje
tincho
No hay nuevos mensajes Cómo Puedo Obtener La Ruta Del Directorio... edivaldo General 2 Viernes, 25 Abril 2014, 03:17 Ver último mensaje
edivaldo
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
No hay nuevos mensajes Problema Para Saber El Nombre Del Archivo ... tincho Aplicaciones/Fragmentos de Código 4 Sabado, 11 Noviembre 2017, 16:34 Ver último mensaje
tincho
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
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