Hi,
how can I delete many Stata datasets whose name follow a pattern (e.g., *tmp*.dta) in a Stata code?
how can I delete many Stata datasets whose name follow a pattern (e.g., *tmp*.dta) in a Stata code?
sysuse auto, clear save tmp1.dta save tmp2.dta save 1tmp.dta save 2tmp.dta local list : dir . files "*tmp*.dta" foreach f of local list { erase "`f'" }
sysuse auto, clear save tmp1.dta save tmp2.dta save 1tmp.dta save 2tmp.dta local list : dir . files "*tmp*.dta" foreach f of local list { erase "`f'" }
clear all set more off global base "" cd $base ** local cod_encuesta "687 634 603 546 498 440 404 324 291 279 285 284 283 282 281 280" foreach x of local cod_encuesta { copy http://iinei.inei.gob.pe/iinei/srienaho/descarga/STATA/`x'-Modulo05.zip `x'-Modulo05.zip,replace } *ssc install filelist /*Instalar por unica vez */ local cod_encuesta " 687 634 603 546 440 404 291 279 285 284 283 282 281 280" foreach x of local cod_encuesta { ******descomprimiendo************** version 14: unzipfile "`x'-Modulo05.zip", replace filelist , dir("$temp2\`x'-Modulo05") pattern(*.dta) norecur tempfile file500 save "`file500'" cap mkdir MOD500_stata use "`file500'",clear gen nombre=substr(filename,1,17) if regexm(filename, "500.dta") drop if nombre=="" cap mkdir MOD500_stata local source = nombre local f = dirname + "\" + filename clear use "`f'" save "MOD500_stata/`source'.dta", replace erase "`x'-Modulo05.zip" /*elimina zipeado*/ shell rd "`x'-Modulo05" /s /q /*elimina carpeta*/ } exit *********************************************************************
Comment