Advertisement
jsbsan

clasificar_organizar

Jan 19th, 2014
2,083
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.80 KB | None | 0 0
  1. public sub Clasificar_Organizar()
  2. ...  
  3. ...
  4. 'lista de estrategias de crear comandos diponibles...
  5.   GenerarListaEstrategisasCrearComandosDisponibles()
  6.  
  7.   'lectura del fichero de datos
  8.   'crear listado de comandos
  9.   '     por cada linea del fichero de datos, se crea un comando con sus caracteristicas
  10.   For Each linea In Split(File.Load(User.Home & "/.OrganizadorDescargas/reglas.dat"), "\n")
  11.     palabras = Split(linea, gb.Tab)
  12.     If palabras.count <> 0 Then
  13.       comandoTmp = SelectorEstrategias.operar(palabras[3], linea) 'palabras[3] es la accion, al enviarla como parametro da listaEstrategiasDisponibles duelve la Estrategia
  14.       'ejecuto el comando
  15.       comandoTmp.ejecutar()
  16.     Endif
  17.   Next
  18.  
  19. Message.Info(("Terminado de ejecutar la clasificación y ordenación de ficheros"))
  20.  
  21. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement