Como buscar palabras clave en un textbox VB 2008

[Brian1511]

Hola a todos como etan espero que bien bueno como dice el titulo he creado un programa la cual descarga archivos de internet y pues quiero que al introducir el URL me diga que extensión es si es .mp3 .png .exe etc ...

si alguien me ayudara fuera un exito ya que mi programa no avansa por esto

Código [Seleccionar] Expandir

Esto va en el Boton

Dim ex

ex = TextBox1.Text 


If ex = Textbox1.text + ".mp3" Then

MsgBox ("Es un archivo .MP3")

End If 


[b]o [/b]

Dim ex

ex = TextBox1.Text 


If ex = ex & ".mp3" Then

MsgBox ("Es un archivo .MP3")

End If 






Esto es mas o menos lo que tengo pero no me funciona si alguien supiera ayudenme pliss!!

[$Edu$]

Tienes 2 codigos ahi parecidos, pensa bien lo que estas escribiendo, no es programar asi por programar cualquier cosa.
Dices que es vb 2008 asique sera vb.NET no visual basic 6!
Entonces tenes una funcion en .net que es Contains(). La usas asi:

Código (vbnet) [Seleccionar] Expandir


If TextBox1.Text.Contains(".mp3") then

msgbox ("Es un archivo .MP3")

end if

[Brian1511]

Gracias amigo por responder ahoramismo lo pruebo Gracias!!

[Brian1511]

hey $Edu$ eres el mejor gracias ya termine mi proyecto gracias a ti, te dare creditos por tu ayuda

[$Edu$]

De nada, solo intento ayudar con las cosas que ya me han tocado hacer, asi se sigue aprendiendo aunque ya no programe hace un tiempo. Saludos!

[seba123neo]

el tema es que usando Contains estas buscando en la palabra entera, y puede fallar facilmente si tengo esto por ejemplo, un archivo que se llame asi:

hola.mp3.mp4

si pregunto si es "mp3", me va a decir que SI simplemente porque la palabra contiene la palabra "mp3", pero en realidad es extension "mp4".

para traer realmente la extension real se usa esto:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(IO.Path.GetExtension("miarchivomp3.mp4"))
    End Sub
End Class


saludos.

[Brian1511]

Hola seba123neo si eso me paso pero agradeci a $Edu$ por su gran ayuda aver probare tu code para ver si me funciona gracias por adelantado

[Brian1511]

el tema es que usando Contains estas buscando en la palabra entera, y puede fallar facilmente si tengo esto por ejemplo, un archivo que se llame asi:

hola.mp3.mp4

si pregunto si es "mp3", me va a decir que SI simplemente porque la palabra contiene la palabra "mp3", pero en realidad es extension "mp4".

para traer realmente la extension real se usa esto:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(IO.Path.GetExtension("miarchivomp3.mp4"))
    End Sub
End Class


saludos.

Hola amigo como estas probre tu code pero no me resulto , bueno el problema esta en que cuando escrbo cualquier cosa me aparece un mensaje de que si es .mp4 pero eso no es lo que quiero lo que quiero es que cuando escriba cialquier cosa pues me diga que no es corecto al menos que tenga las ultimas palabras .mp3 o .mp4


En vb.NET hay una variable que dice StartWith que esta es para decir que si el texto no empiesa con lo que se pone en la variable no sucedera nada bueno eso es lo que quiero pero en ves de que empiese , que termine con xxx frase

[seba123neo]

Hola amigo como estas probre tu code pero no me resulto , bueno el problema esta en que cuando escrbo cualquier cosa me aparece un mensaje de que si es .mp4 pero eso no es lo que quiero lo que quiero es que cuando escriba cialquier cosa pues me diga que no es corecto al menos que tenga las ultimas palabras .mp3 o .mp4

algo mal debes estar haciendo, porque te tiene que funcionar, pone el codigo que usas y lo vemos.

En vb.NET hay una variable que dice StartWith

tambien esta la funcion EndWith .

[Brian1511]

seba123neo eres mi idolo gracias de corazon gracias a este foro por ser de mucha ayuda ! si pudiera darte puntos te dira muchos ahora mismo gracias