document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits InterfaceCrearComando
  4. Private comandotmpCopiar As New Copiar
  5.  
  6. Public Sub guard(valor As String) As Boolean
  7.  
  8.   If valor = ("Copiar") 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.     comandotmpCopiar.nombre = palabras[0] \'nombre
  26.     comandotmpCopiar.RutaDestino = palabras[1] \'carpeta destino
  27.     listaExtensiones = Split(Replace$(palabras[2], ",", ";"), ";") \'extensiones
  28.     comandotmpCopiar.extensiones = listaExtensiones
  29.     Return comandotmpCopiar
  30.   Endif
  31.  
  32. End
');