Ejemplo de uso de FromUrl

 Una de las cosas que nos pasa siempre a los novatos es comprender en que situación se puede aplicar un código. Este es el caso de FromUrl que es para decodificar una url, que no es mas ni menos que cambiar el formato de un texto a otro.

 En este ejemplo arrastraremos un sin fin de archivos y el sistema nos da una cadena con caracteres raros y otros innecesarios.

Ejemplo de la info que da el sistema al arrastrar un archivo .mp3 obtenida mediante Drag.Data en el evento Drop:

file:///home/user10/Escritorio/Whitney%20Houston%20-%20I%20Have%20Nothing%20(Official%20Video).mp3

-28:-60:70:70

después del proceso:

/home/user10/Escritorio/Whitney Houston - I Have Nothing (Official Video).mp3

 
http://gambaswiki.org/wiki/lang/fromurl?l=es&nl

Necesario tener tildado componente gb.desktop para poder usar Desktop.Open()

' gambas class file

'by postapase
'https://novatocodegambas.blogspot.com.uy/
'Ejemplo de FromUrl

Public Sub Form_Drop()

Dim divide As New String[]
Dim Ruta As String

TextArea1.Text = Drag.Data

divide = Split(Drag.Data, "\r\n")

Ruta = String.Right(FromUrl$(divide[0]), -7)

TextBox1.Text = Ruta



 If chkAuto.Value Then Desktop.Open(Ruta)

End

Descargar de DropBox: FromUrl-0.0.1.tar.gz

Mostrar lista de coincidencias de nombres

Esto trata de presentar una lista de nombres que coincidan con lo que vamos tipeando en el txt, la lista la presentamos en un combox que esta oculto solo se ve cuando encuentra al menos una coincidencia.

Tuve que hacer así, pues lo tenia hecho solo en un combobox pero después de una actualización de gambas ningún combobox funcionaba bien, además de mis limitaciones como programador novato que soy, pero esta solución esta prolija y funciona bien, se las dejo para que experimenten.

Cuando disponga de tiempo comentare el código, saludos.

' gambas class file

' by Postapase

Public EstosNombres As New String[]

Public Sub Form_Open()

Me.Center

EstosNombres.Add("JOSE")
EstosNombres.Add("JUAN")
EstosNombres.Add("JOSELO")
EstosNombres.Add("MARIA")
EstosNombres.Add("MARCELO")
EstosNombres.Add("MARCOS")

End

Public Sub txtNombre_KeyRelease()
Dim nombre As String

If Len(txtNombre.Text) = 0 Then
cbxNombre.Visible = False
Return
Endif

cbxNombre.Clear

For Each nombre In EstosNombres
If InStr(Left(UCase(nombre), Len(txtNombre.Text)), UCase(txtNombre.Text)) = 1 Then
cbxNombre.Add(nombre)
cbxNombre.Visible = True
Endif
Next

End

Public Sub cbxNombre_Click()

txtNombre.Text = cbxNombre.Text
cbxNombre.Visible = False

End

ListaComboBox-0.0.1.tar.gz