General :: Separar Ruta De Nombre De Archivo

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Martes, 21 May 2024, 09:11 • Todas las horas son UTC + 1 Hora

Separar Ruta De Nombre De Archivo

Página 1 de 1

Separar Ruta De Nombre De Archivo

Autor	Mensaje
v3ctor Analista Programador Registrado: May 2013 Mensajes: 1786 Edad: 44 Ubicación: Uruguay	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/
#1 Jueves, 30 Abril 2015, 16:48

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	Re: Separar Ruta De Nombre De Archivo Tienes que usar dos metodos de la Clase File: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] 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
#2 Jueves, 30 Abril 2015, 17:12

v3ctor Analista Programador Registrado: May 2013 Mensajes: 1786 Edad: 44 Ubicación: Uruguay	Re: Separar Ruta De Nombre De Archivo uy no te puedo creer lo conocía pero no recordaba, jaja miren lo que hice jajaj Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] ' 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, 17:37; editado 1 vez
#3 Jueves, 30 Abril 2015, 17:35

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	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.
#4 Jueves, 30 Abril 2015, 19:40

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	Re: Separar Ruta De Nombre De Archivo ...pero yo se que asì mucho te gusta Extern... Puedes utilizar la libreria libgio: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] 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
#5 Jueves, 30 Abril 2015, 20:50

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	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í: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] 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 última edición por vuott el Viernes, 01 May 2015, 11:02; editado 1 vez
#6 Viernes, 01 May 2015, 11:00

Mostrar mensajes anteriores:

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Cómo Puedo Obtener La Ruta Del Directorio...	edivaldo	General	2	Viernes, 25 Abril 2014, 02:17 edivaldo
Problema Para Saber El Nombre Del Archivo ...	tincho	Aplicaciones/Fragmentos de Código	4	Sabado, 11 Noviembre 2017, 16:34 tincho
Recuperar Un Archivo De Una Ruta Sabiendo ...	gambafeliz	General	11	Miercoles, 25 Septiembre 2019, 09:46 tincho
Leer El Nombre De Un Archivo En Directorio...	calcena	General	3	Miercoles, 09 Octobre 2019, 14:01 tincho

Página 1 de 1

Fecha y hora actual: Martes, 21 May 2024, 09:11 • Todas las horas son UTC + 1 Hora

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
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.4339s (PHP: -78% SQL: 178%)
Consultas SQL: 46 - Debug off - GZIP Activado

Design by Mighty Gorgon