/*
cap mkdir 香樟经济学术圈
cd 香樟经济学术圈
copy "http://cec.blog.caixin.com/" temp.txt, replace
infix strL v 1-100000 using temp.txt, clear
keep if index(v,`"<img class="headpic""') 
save 1,replace
forvalues i =2/60{
copy "http://cec.blog.caixin.com/page/`i'"  temp.txt, replace
infix strL v 1-100000 using temp.txt, clear
 keep if index(v,`"<img class="headpic""')
 save `i',replace
}
openall
split v, p(`"<a href=""' `""><img"') 
split v3, p(`"alt=""' `""/></a>"') 
keep v2 v32
rename v2 链接
rename v32 标题
save 香樟经济学术圈,replace
split 链接, p(`"http://cec.blog.caixin.com/archives/"')
rename 链接2 期数 
destring 期数, gen(期数5)
sort 期数5
replace  标题 =期数+ ". "+标题
gen 格式= 链接 + "++" + 标题 + "++"+"《香樟经济学术圈》" + "学术论文"+ "++"+ "学术论文"+ "++"+ "论文"


br 格式

*/



copy "https://cec.blog.caixin.com/" temp.txt, replace
infix strL v 1-100000 using temp.txt, clear
keep if index(v,`"<img class="headpic""') 
save 1,replace
split v, p(`"<a href=""' `""><img"') 
split v3, p(`"alt=""' `""/></a>"') 
keep v2 v32
rename v2 链接
rename v32 标题
save 香樟经济学术圈,replace
split 链接, p(`"http://cec.blog.caixin.com/archives/"')
rename 链接2 期数 
destring 期数, gen(期数5)
sort 期数5
replace  标题 =期数+ ". "+标题
gen 格式= 链接 + "++" + 标题 + "++"+"《香樟经济学术圈》" + "学术论文"+ "++"+ "学术论文"+ "++"+ "论文"


br 格式