Eliminar archivos duplicados

Este código lo hice al ver que una carpeta tenía muchas imágenes repetidas, es decir totalmente idénticas, de ahí surge el problema y la pregunta. ¿Como eliminar las imagenes (.png) iguales?. Pues bien se me ocurrió usar el comando de Linux de consola "sha256sum" el cual te da un hash único, en teoría es imposible que salgan dos hashes iguales si los archivos son diferentes, solamente salen iguales si son idénticos. Este método es usado para comprobar la integridad de un archivo que ha sido descargado. Un ejemplo lo tenemos en el mismo Gambas, en la granja después de elegido un proyecto y descargado Gambas comprueba el hash, si es distinto te tirar error si es igual te dice que el archivo se descargo correctamente.

El código fuente se encuentra en la granja. Saludos

https://gambas.one/gambasfarm/?id=803&action=search

aspell (clase)

Puedes usar esta clase para corregir las faltas ortográficas de un texto x, usa el programa aspell y para corregir en español instala aspell-es. Después amplio el post esta en la granja de gambas.

https://gambas.one/gambasfarm/?id=785&action=search

Sencilla interfaz gráfica para youtube-dl

' Gambas class file


Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub btnDescargar_Click()
Shell "youtube-dl " & txtvideo.Text
End

Public Sub btnClear_Click()
  txtvideo.Clear
  txtvideo.SetFocus
End

Public Sub btnPegarPP_Click()
  Dim a As String
  a = Clipboard.Paste()
  txtvideo.Text = a
End

Código fuente: Gui_youtube-dl-0.0.1.tar.gz

Usando el comando shell

' Gambas class file

'declaración de constantes ya que sudo, cat y pipe
'son comandos que seguramente usaremos mas de una vez
Public Const cat1 As String = " cat"
Public Const sudo1 As String = "sudo"
Public Const pipe1 As String = "|"

Public Sub Form_Open()
  Me.center
End
'creamos esta función así nos ahorramos código,
'jeje que algún programador explique como funciona una función
Public Function comandoymodificadores(fvar1 As String, fvar2 As String, fvar3 As String, fvar4 As String, fvar5 As String, fvar6 As String, fvar7 As String, fvar8 As String)
  Dim va1, va2, va3, va4, va5, va6, va7, va8, resultado As String
  va1 = fvar1
  va2 = fvar2
  va3 = fvar3
  va4 = fvar4
  va5 = fvar5
  va6 = fvar6
  va7 = fvar7
  va8 = fvar8
  Shell va1 & va2 & va3 & va4 & va5 & va6 & va7 & va8 To resultado
  TextArea1.Text = resultado
End

Public Sub btnifconfig_Click()
  Dim ifconfig1 As String
  ifconfig1 = "ifconfig"
  comandoymodificadores(ifconfig1, Null, Null, Null, Null, Null, Null, Null)

End

Public Sub btnuname_Click()
  Dim uname1, help1 As String
  help1 = " --help"
  uname1 = "uname"
  comandoymodificadores(uname1, help1, Null, Null, Null, Null, Null, Null)
End

Public Sub btngroup_Click()
  Dim group1, help1 As String
  group1 = " /etc/group"
  comandoymodificadores(sudo1, cat1, group1, Null, Null, Null, Null, Null)
End

Public Sub btnarchivo_Click()
  Dim grep1, dir1, nano1, xfile1 As String
  TextArea1.Clear
  grep1 = "grep"
  dir1 = " /proc/meminfo"
  nano1 = "nano"
  xfile1 = "/home/vector/Escritorio/memtoral.txt"
  comandoymodificadores(grep1, cat1, dir1, pipe1, nano1, xfile1, Null, Null)
  TextArea1.Text = "Acción ejecutada"
End

Public Sub btnsalir_Click()
  Me.Close
End
'Gracias Shell, con tu código pude resolver ( Shell orden & modificador To TextArea1.Text )