1 Star 0 Fork 4

HuTu_chongchong/stata_do

forked from songbl/stata_do 
加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
该仓库未声明开源许可证文件(LICENSE),使用请关注具体项目描述及其代码上游依赖。
克隆/下载
zhongguogongyejingji.do 2.35 KB
一键复制 编辑 原始数据 按行查看 历史
clear all
local year=2021 //年份
local j=1 //期数
qui{
tempfile data`j'
copy "http://ciejournal.ajcass.org/Magazine/GetIssueContentList?Year=`year'&Issue=`j'" temp.txt, replace
infix strL v 1-100000 using temp.txt, clear
keep if index(v, "/Magazine/show/?id=")
split v, p("id=")
split v2,p(">")
gen id = substr(v2,1,5)
gen name = v22
keep name id
destring id, replace
capture postclose mypost`j'
postfile mypost`j' str100 论文 str100 附件 str200 标题 str20 期数 using "`data`j''", replace
levelsof id, local(number)
foreach i in `number' {
copy "http://ciejournal.ajcass.org/Magazine/Show?id=`i'" temp.txt, replace
infix strL v 1-100000 using temp.txt, clear
keep if index(v, "UploadFile") | index(v, "044693")
replace v = v + "?" + v[_n + 1] + "?" + v[_n + 2]
keep in 1
if strmatch(v,"*.zip*")==1{
split v, p(".pdf" "UploadFile" ".zip")
split v5, p(`"">"'"</span>")
keep v2 v4 v53
gen 论文 = "http://ciejournal.ajcass.org/UploadFile"+v2+".pdf"
gen 附件 = "http://ciejournal.ajcass.org/UploadFile"+v4+".zip"
gen 标题 = v53
keep 论文 附件 标题
local 论文=论文[1]
local 附件=附件[1]
local 标题=标题[1]
post mypost`j' ("`论文'") ("`附件'") ("`标题'") ("`year'年第`j'期")
}
else{
split v, p(".pdf" "UploadFile")
split v3, p(`"">"'"</span>?")
keep v2 v33
gen 论文 = "http://ciejournal.ajcass.org/UploadFile"+v2+".pdf"
gen 标题 = v33
keep 论文 标题
local 论文=论文[1]
local 标题=标题[1]
post mypost`j' ("`论文'") ("") ("`标题'") ("`year'年第`j'期")
}
}
postclose mypost`j'
use "`data`j''",clear
*forvalues j = 1/2{
* append using "`data`j''"
*}
gen 格式1 = 论文 + "++" + 标题 + ".pdf" + "++"+"《中国工业经济》"+期数 + "学术论文"+ "++"+ "学术论文"+ "++"+ "论文"
gen 格式2 = 附件 + "++" + 标题 + ".zip"+ "++" +"《中国工业经济》"+ 期数 + "学术论文"+ "++"+ "论文代码"+ "++"+ "论文"
replace 格式2="" if 附件==""
local N=_N
insobs `N'
gen 格式=""
replace 格式=格式2[_n-`N']
replace 格式=格式1 if 格式1!=""
drop if 格式==""
rename 格式 v
keep v
br
}
Loading...
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
其他
1
https://gitee.com/HuTu_chongchong/stata_do.git
[email protected]:HuTu_chongchong/stata_do.git
HuTu_chongchong
stata_do
stata_do
master

搜索帮助