[Gambas-user] Drag & drop files

[Jussi Lahtinen]

It seems to be in gvfs package in debian/ubuntu.

Jussi



On Fri, Dec 2, 2011 at 19:54, Maria <geaplanet at ...397...> wrote:

> Thanks, Pham
>
> I can't find libgvfscommon in debian, is it an old library pearhaps?
>
>
> In gambas-es comunity, jguardon, resolved the problem using a function for
> automatic conversion:
> http://www.gambas-es.org/viewtopic.php?f=1&t=2054&postdays=0&postorder=asc&start=10
>
>
> Here it is the code of jguardon:
>
> ' Gambas class file
>
> Public Sub Form_Open()
>
> End
>
> Public Sub boton_Drop()
>
>   Dim a As String
>   Dim b As String[]
>
>   a = Drag.Paste("text/uri-list") ' limitamos el tipo de los datos pegados
>   b = Split(a, gb.CrLf, "", True) ' cargamos la lista de rutas en un array
> b
>                                   ' escapando las terminaciones de línea
>   a = Null  ' reutilizamos la variable "a"
>
>   For Each a In b
>     a = Right$(a, -7) ' quitamos "file://"
>     a = URLDecode(a)  ' descodificamos las cadenas
>     Print a
>     Desktop.Open(a)   ' para probar, abrimos cada tipo de
>                       ' fichero con la aplicacion correspondiente
>   Next
>
> End
>
> Static Private Function URLDecode(txt As String) As String
>   ''' Descodifica los caracteres hexadecimales en las URI's recorriendo la
> cadena dada
>   ''' Params: txt la URI a descodificar
>   ''' Return: la URI descodificada
>
>   Dim txt_len As Integer
>   Dim i As Integer
>   Dim ch As String
>   Dim digits As String
>   Dim resultado As String
>
>   resultado = ""
>   txt_len = Len(txt)
>   i = 1
>   Do While i <= txt_len
>     ' Examinar el siguiente caracter
>     ch = Mid$(txt, i, 1)
>     If ch = "+" Then
>       ' Convertir a espacio
>       resultado = resultado & " "
>     Else If ch <> "%" Then
>       ' Normal, no cambiar
>       resultado = resultado & ch
>     Else If i > txt_len - 2 Then
>       resultado = resultado & ch
>     Else
>       ' Obtener los siguientes caracteres hex.
>       digits = Mid$(txt, i + 1, 2)
>       ' Debug digits
>       ' aquí convertimos el valor hexadecimal a entero y
>       ' se lo pasamos a Chr que devuelve el carácter correcto.
>       resultado = resultado & Chr$(CInt(Val("&" & digits)))
>       i = i + 2
>     Endif
>     i = i + 1
>   Loop
>
>   Return resultado
>
> End
>
> ------------------------------------------------------------------------------
> All the data continuously generated in your IT infrastructure
> contains a definitive record of customers, application performance,
> security threats, fraudulent activity, and more. Splunk takes this
> data and makes sense of it. IT sense. And common sense.
> http://p.sf.net/sfu/splunk-novd2d
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>