*根据你的思路(有点被你的思路搞蒙了,有点当年我学Passal传统编程语言的味道.)试试下面:
gen str40 name=""
foreach n of numlist 10/4 {
        cap confirm v v`n'
        if _rc==0{
                foreach m of numlist 3/`n'{
                        replace name=name+v`m'+","
        }
                continue, break       
        else{
        continue, break
        }
        }
}
replace name=subinstr(name,",,","",.)
replace name=substr(name,1,length(name)-1) if substr(name,-1,.)==","
egen address=ends(name),p(,) l
replace name=substr(name,1,length(name)-length(address)-1)
replace address=subinstr(address,"00000","N/A",.)

另外,还有一种思路:用reshape也可以避免关于空值的影响.同时也可避免变量数之未知的麻烦.
这个留给楼主吧.

谢谢你的回复，我现在用下面的程序在子程序里跑没问题了，但是一旦用母程序调用就会提示我invalid foreach，不知道foreach是不是在使用上有什么限制啊？

具体一点，母程序是这样的：
* Read in the Creditor records for each of the boroughs;
#delimit;
do "J:\DEPT\REUP\Core Data\Lis Pendens - PDC\lp_creditor1x.do" BX;
然后在子程序里：

**************;
** Creditor **;
#delimit;

args lpboro;
insheet using "J:\DEPT\REUP\Core Data\Lis Pendens - PDC\LP_`lpboro'.txt", clear;
keep if v1=="CR";
rename v2 key;

gen str40 name=""
foreach n of numlist 10/4 {
        cap confirm v v`n'
        if _rc==0{
                        tostring v`n', replace
                foreach m of numlist 3/`n'{
                        replace name=name+v`m'+","
        }
                continue, break        
        else{
        continue, break
        }
        }
}
replace name=subinstr(name,".","",.)
replace name=subinstr(name,",,","",.)
replace name=substr(name,1,length(name)-1) if substr(name,-1,.)==","
egen address=ends(name),p(,) l
replace name=substr(name,1,length(name)-length(address)-1)
replace address=subinstr(address,"00000","N/A",.)
       
replace name = trim(name)
egen tag = tag(key name address)
        tab tag
        drop if tag==0

keep key name address

compress
sort key

save "J:\DEPT\REUP\Core Data\Lis Pendens - PDC\temp data\creditor_`lpboro'.dta", replace;

你也样问题，没法回答。
麻烦你自己造个数据让别人调试。
在调试的过程中才能发现问题。