Posted By

softing on 09/24/12


Tagged

qlikview


Versions (?)

Gestione .qvd


 / Published in: Other
 

Backup dei files *.qvd e "svecchiamento" automatico per avere solo N backup in linea

  1. Salve a tutti condivido qui il codice commentato, che possa essere di aiuto per chi necessita di interfacciare il mondo scripting Windows in maniera efficace.
  2.  
  3. SET ThousandSep=',';
  4. SET DecimalSep='.';
  5. SET MoneyThousandSep=',';
  6. SET MoneyDecimalSep='.';
  7. SET MoneyFormat='$#,##0.00;($#,##0.00)';
  8. SET TimeFormat='hh:mm:ss';
  9. SET DateFormat='DD-MM-YYYY';
  10. SET TimestampFormat='DD-MM-YYYY hh:mm:ss[.fff]';
  11. SET MonthNames='Jan;Feb;Mar;Apr;May;Jun;Jul;Aug;Sep;Oct;Nov;Dec';
  12. SET DayNames='Mon;Tue;Wed;Thu;Fri;Sat;Sun';
  13.  
  14.  
  15. //reperimento timestamp
  16.  
  17.  
  18. let adesso=now() ;
  19. trace $(adesso);
  20. let adesso= trim(Replace ('$(adesso)',':',' ') );
  21. let adesso= trim(Replace ('$(adesso)',' ','-') );
  22. trace $(adesso);
  23.  
  24.  
  25. //copia del file QVD
  26.  
  27.  
  28. let command='cmd.exe /C copy stdp.qvd stdp.qvd.$(adesso).QBK>>bk_inps_stdp.log';
  29. trace $(command);
  30. execute $(command);
  31.  
  32.  
  33.  
  34.  
  35. // determinazione svecchiamento
  36.  
  37.  
  38. //lista dei backup su CMD tramite comando DIR
  39. execute cmd.exe /C dir /O-D /TC *.qbk >listdir.csv;
  40.  
  41.  
  42. // conta dei backup escludendo le righe inutili
  43. quantiso:
  44. LOAD count(*)-4 as quantifile
  45. FROM
  46. [C:\Users\buffaale\Documents\Lavoro\Progetti\INPS_NEW\STDP\T&T\__T&T_Alessia\Oggetti STDP\qv\sviluppo_versione_DATOSSPARZ\listdir.csv]
  47. (txt, codepage is 1252, embedded labels, delimiter is spaces, msq);
  48. let numfiles=peek ('quantifile', 0 , quantiso ) ;
  49. trace $(numfiles);
  50.  
  51.  
  52. //caricamento lista dei backup eseguiti
  53.  
  54.  
  55. filesalvati:
  56. LOAD Volume,
  57. in,
  58. drive,
  59. C as nomefile,
  60. is,
  61. PC,
  62. COE
  63. FROM
  64. [C:\Users\buffaale\Documents\Lavoro\Progetti\INPS_NEW\STDP\T&T\__T&T_Alessia\Oggetti STDP\qv\sviluppo_versione_DATOSSPARZ\listdir.csv]
  65. (txt, codepage is 1252, embedded labels, delimiter is spaces, msq);
  66.  
  67.  
  68. // lista delle occorrenze files candidate alla cancellazione, tramite un ciclo FOR/NEXT
  69. for i=-$(numfiles)+1 to 0
  70. let filetocanc=peek ('nomefile', i , filesalvati ) ;
  71. trace $(filetocanc);
  72. //cancellazione dell'occorrenza trovata idonea
  73. let command='cmd.exe /C del $(filetocanc)>>bk_inps_stdp.log';
  74. execute $(command);
  75. next i;
  76. //

Report this snippet  

You need to login to post a comment.