document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits InterfaceCrearComando
  4. Private comandotmpMover As New Mover
  5.  
  6. Public Sub guard(valor As String) As Boolean
  7.  
  8.   If valor = ("Mover") Then
  9.     Return True
  10.   Else
  11.     Return False
  12.   Endif
  13.  
  14. End
  15.  
  16. Public Sub crearComando(linea As String) As Comando
  17.  
  18.   Dim palabras As New String[]
  19.   Dim listaExtensiones As New String[]
  20.  
  21.   palabras = Split(linea, gb.Tab)
  22.   If palabras.count = 0 Then
  23.     Return Null
  24.   Else
  25.    
  26.     comandotmpMover.nombre = palabras[0] \'nombre
  27.     comandotmpMover.RutaDestino = palabras[1] \'carpeta destino
  28.     listaExtensiones = Split(Replace$(palabras[2], ",", ";"), ";") \'extensiones
  29.     comandotmpMover.extensiones = listaExtensiones
  30.     Return comandotmpMover
  31.   Endif
  32.  
  33. End
');