\' Gambas class file
Inherits InterfaceCrearComando
Private comandotmpBorrar As New Borrar
Public Sub guard(valor As String) As Boolean
If valor = ("Borrar") Then
Return True
Else
Return False
Endif
End
Public Sub crearComando(linea As String) As Comando
Dim palabras As New String[]
Dim listaExtensiones As New String[]
palabras = Split(linea, gb.Tab)
palabras = Split(linea, gb.Tab)
If palabras.count = 0 Then
Return Null
Else
comandotmpBorrar.nombre = palabras[0] \'nombre
listaExtensiones = Split(Replace$(palabras[2], ",", ";"), ";") \'extensiones
comandotmpBorrar.extensiones = listaExtensiones
Return comandotmpBorrar
Endif
End