代码拉取完成,页面将自动刷新
同步操作将从 songbl/stata_do 强制同步,此操作会覆盖自 Fork 仓库以来所做的任何修改,且无法恢复!!!
确定后同步将在后台操作,完成时将刷新页面,请耐心等待。
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
}
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。