/* created by TLM to take the new data edmunds text files and put them into stata files*/
/* modified */


clear
set more off
#delimit;

capture program drop txt2dta;
program define txt2dta;
    args mth smth yr filename;
    local `filename' = upper("`filename'");
    insheet using "C:\Workdocs\Hellerstein\edmunds\data_files_from_share\\`yr'\\`smth'`yr'\ED_for_berkeley_``filename''_N.tab.txt", clear;
    gen mymth= real("`mth'");
    gen myyear= real("`yr'");
    gen mydate= ym(myyear, mymth);
    format mydate %tm;

    *depending on which file it is;
    capture drop if ed_model_id==.;
    capture sort mydate ed_model_id;

    capture drop if ed_style_id==.;
    capture sort mydate ed_style_id;

    save "C:\Workdocs\Hellerstein\edmunds\\`mth'`yr'`filename'.dta", replace;

end;


#delimit cr

txt2dta 04 apr 2004 style
txt2dta 05 may 2004 style
txt2dta 06 june 2004 style
txt2dta 07 jul 2004 style
txt2dta 08 aug 2004 style
txt2dta 09 sept 2004 style
txt2dta 10 oct 2004 style
txt2dta 11 nov 2004 style
txt2dta 12 dec 2004 style
txt2dta 01 jan 2005 style
txt2dta 02 feb 2005 style
txt2dta 03 mar 2005 style

txt2dta 04 apr 2004 holdback
txt2dta 05 may	2004 holdback
txt2dta 06 june	2004 holdback
txt2dta 07 jul	2004 holdback
txt2dta 08 aug	2004 holdback
txt2dta 09 sept	2004 holdback
txt2dta 10 oct	2004 holdback
txt2dta	11 nov	2004 holdback
txt2dta	12 dec	2004 holdback
txt2dta	01 jan	2005 holdback
txt2dta	02 feb	2005 holdback
txt2dta	03 mar	2005 holdback

txt2dta	04	apr	2004	warranty
txt2dta	05	may	2004	warranty
txt2dta	06	june	2004	warranty
txt2dta	07	jul	2004	warranty
txt2dta	08	aug	2004	warranty
txt2dta	09	sept	2004	warranty
txt2dta	10	oct	2004	warranty
txt2dta	11	nov	2004	warranty
txt2dta	12	dec	2004	warranty
txt2dta	01	jan	2005	warranty
txt2dta	02	feb	2005	warranty
txt2dta	03	mar	2005	warranty