Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Erika Vega en 12 Septiembre 2006, 01:34 am


Título: Filenames y text box
Publicado por: Erika Vega en 12 Septiembre 2006, 01:34 am
COmo hago para que en un textbox despues de abrir un archivo desde un common dialog no se muestre toda la ruta sino solamente la aplicacion que quiero, es decir

Lo que obtengo y no quiero:

C:\Project\app\nog.exe

lo que quiero:

nog.exe

solo quiero que se muestre el nombre del archivo con su extension obviamente mas no toda su ruta, como le hago???

Título: Re: Filenames y text box
Publicado por: Mr.Chispa en 12 Septiembre 2006, 04:09 am
Código:
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileTitle
facil, no?

Título: Re: Filenames y text box
Publicado por: Gorky en 12 Septiembre 2006, 09:53 am
Y si no es de un CommonDialog, en general puedes hacerlo con la Api GetFileTitle. Aqui te dejo un ejemplo:

Código:
    Dim Buffer As String
    Buffer = String(255, 0)
    GetFileTitle "c:\archivos de programa\test.tst", Buffer, Len(Buffer)
    Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
    MsgBox Buffer

Título: Re: Filenames y text box
Publicado por: Erika Vega en 12 Septiembre 2006, 22:48 pm
gracias , ahora viene mi interrogante, todo conrrecto con el filetitle, pero si lo que deseo ahora es que aparezca el nombre sin su extension como se hace eso.

perdonen que sea molestosa okis.

Título: Re: Filenames y text box
Publicado por: Gorky en 12 Septiembre 2006, 23:41 pm
Para eso juegas un poco con las funciones de manejo de strings:

Código:
nombre = Left(nombre, (Len(nombre) - 4))

Título: Re: Filenames y text box
Publicado por: Erika Vega en 12 Septiembre 2006, 23:45 pm
GORKY TE AMOOOO !!!! :-* :-*

Título: Re: Filenames y text box
Publicado por: Gorky en 12 Septiembre 2006, 23:48 pm
Con un jamon me basta.  ;)

Título: Re: Filenames y text box
Publicado por: WarGhost en 13 Septiembre 2006, 02:31 am
si pero si la extensión es de mas de 4 caracteres ¿?¿?.

lo mejor es buscar la ultimo "." del fichero y luego borralo de hay para atrás.

Título: Re: Filenames y text box
Publicado por: Erika Vega en 14 Septiembre 2006, 00:27 am
pero como hago eso haber explicame mas!!! plis

Título: Re: Filenames y text box
Publicado por: WarGhost en 14 Septiembre 2006, 00:35 am
asi de facil:

Se supone que WarGhost es el nombre de un fichero y su extensión es .War, pues esto lo que hace es buscar el ultimo punto y devuelve el numero de caracteres que hay asta el punto pues luego hacemos un mid y decimos que lea solo hasta el ultimo punto ;).

Código:
Dim ruta As String
ruta = "WarGhost.War"
MsgBox Mid(ruta, 1, InStrRev(ruta, ".") - 1)

y así no importa cuantos lo larga que sea la extensión ;).

Título: Re: Filenames y text box
Publicado por: Erika Vega en 14 Septiembre 2006, 03:26 am
Interesante, yo soy una novata al lado de uds!!! gracias por ayudarme!!!, sencillamente me quede boquiabierta.

Título: Re: Filenames y text box
Publicado por: Mr.Chispa en 14 Septiembre 2006, 17:33 pm
pero q pasa si la ruta tiene mas de un ".", por q lo hay.
ej: mi.archivo.de.algo.txt
en este caso habria q buscar el primer "." pero de derecha a izquierda

Título: Re: Filenames y text box
Publicado por: WarGhost en 14 Septiembre 2006, 17:45 pm
Cita de: Mr.Chispa en 14 Septiembre 2006, 17:33 pm
pero q pasa si la ruta tiene mas de un ".", por q lo hay.
ej: mi.archivo.de.algo.txt
en este caso habria q buscar el primer "." pero de derecha a izquierda


pruebalo si quieren pon:

Código:
Dim ruta As String
ruta = "mi.archivo.de.algo.txt"
MsgBox Mid(ruta, 1, InStrRev(ruta, ".") - 1)

el resultado seria "mi.archivo.de.algo".

;D Salu2

Título: Re: Filenames y text box
Publicado por: Mr.Chispa en 14 Septiembre 2006, 17:47 pm
ah, perdon, entenci mal, pense q era instr.
no la conocia esa funcion. gracias por el dato  ;D


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines