也可以考虑先拆分再提取

数据量有点大，先拆分跑好几个小时都跑不出来，电脑卡了

可以试一下这个命令：
g x=substr(ipc,1,4)
replace x=substr(ipc,1,4) +" "+substr(ipc,11,4)  if strlen(ipc)>=10 & strlen(ipc)<20
replace x=substr(ipc,1,4) +" "+substr(ipc,11,4) +" "+substr(ipc,21,4)  if strlen(ipc)>=20 & strlen(ipc)<30
replace x=substr(ipc,1,4) +" "+substr(ipc,11,4) +" "+substr(ipc,21,4)+" "+substr(ipc,31,4)  if strlen(ipc)>=30 & strlen(ipc)<40

substr(ipc,1,4)指的是从变量ipc的第1位开始，往后取4位，" "指的是空格，双引号中间要空一格，strlen(ipc)指ipc的字符长度，加号是把字符串连接起来。

1. 请试试 (感谢 Ali Atia 之建议)2. (尔后) 你若要问程序，请用 (ssc install) dataex 附上相关`代表性’资料 (请尽量不要用截图或其他格式)，以供回答者实验之用。请参考说明 https://bbs.pinggu.org/thread-5048204-1-1.html 或https://zhuanlan.zhihu.com/p/29911577。

哇黄河泉老师回归了，太好了！