如何把暂元中的内容分开？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

local aaa "a b c d"  或 local "a b c d f g"
想把前一半words赋给暂元bbb(a b)  后一半赋给ccc( c d )

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Local words word OCA RDS local 如何

1# dxystata
local aaa "a b c d"
local bbb substr("`aaa'", 1, int(length("`aaa'")/2))
local ccc substr("`aaa'", int(length("`aaa'")/2) + 1, length("`aaa'"))
di `aaa' `bbb' `ccc'

欠通用
local aaa "aa b c d"

dxystata 发表于 2010-6-22 07:02
欠通用
local aaa "aa b c d"

local aaa "aa b c d"
token `aaa'
scal n=0
foreach v in `*'{
scal n=n+1
}
local bbb=word("`aaa'", int(n/2))
local ccc=word("`aaa'", -int(n/2))
di "`bbb'"
di "`ccc'"

试试这个：
local aaa "aa b c d"
token `aaa'
scal n=0
foreach v in `*'{
scal n=n+1
}
loca m=int(n/2)
loca bbb="`1'"
forvalue j=1/`m'{
macro shift
loca bbb="`bbb'"+" "+"`1'"
}
loca ccc `*'
macro list


受sungmoo启发:
local aaa "aa b c d"
loca m=wordcount("`aaa'")/2
token `aaa'
loca bbb="`1'"
forvalue j=1/`m'{
macro shift
loca bbb="`bbb'"+" "+"`1'"
}
loca ccc `*'
di "`bbb'"
di "`ccc'"

dxystata 发表于 2010-6-21 17:17 local aaa "a b c d"  或 local "a b c d f g"
想把前一半words赋给暂元bbb(a b)  后一半赋给ccc( c d )

这里的“前一半”与“后一半”是否以空格为准？

*试一下：
loc aaa "a bb ccc dddd eeeee ffffff"
loc n=wordcount("`aaa'")/2
forv i=1/`n'{
loc bbb="`bbb' "+word("`aaa'",`i')
}
forv i=-`n'/-1{
loc ccc="`ccc' "+word("`aaa'",`i')
}
di "`bbb'"
di "`ccc'"

*若宏变量aaa：（1）恰含偶数个words，（2）不含重复的words，（3）不含字符"|"，可采用：

loc aaa "a bb ccc dddd eeeee ffffff"

loc w=word("`aaa'",wordcount("`aaa'")/2)
loc p=subinword("`aaa'","`w'","`w'|",1)
gettoken bbb p:p,p("|")
gettoken ccc p:p,p("|")    /*ccc中有首空格*/
gettoken ccc p:p,p("|")    /*ccc中无首空格*/

n di "`bbb'"
n di "`ccc'"

local aaa "a b c d f g"
想得到的结果：
aaa1 a b
aaa2 c d
aaa3 f  g

如何实现呢？

dxystata 发表于 2011-2-19 07:40
local aaa "a b c d f g"
想得到的结果：
aaa1 a b
aaa2 c d
aaa3 f  g

如何实现呢？

这种比较规律的分段，用substr()即可吧