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