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

dxystata

6568

收藏 2010-06-21

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

扫码加我拉你入群

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

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

全部回复

houquan

2010-6-21 23:58:14

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'

扫码加我拉你入群

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

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

dxystata

2010-6-22 07:02:54

欠通用
local aaa "aa b c d"

扫码加我拉你入群

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

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

jzhyue

2010-6-22 17:31:19

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'"

扫码加我拉你入群

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

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

jzhyue

2010-6-22 18:29:46

试试这个：
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'"

扫码加我拉你入群

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

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

sungmoo

2010-6-22 18:33:24

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 )

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

扫码加我拉你入群

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

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

点击查看更多内容…

sungmoo

2010-6-22 18:40:58

*试一下：
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'"

扫码加我拉你入群

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

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

sungmoo

2010-6-23 07:55:35

*若宏变量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'"

扫码加我拉你入群

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

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

dxystata

2011-2-19 07:40:19

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

如何实现呢？

扫码加我拉你入群

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

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

sungmoo

2011-2-19 08:37:08

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

如何实现呢？

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

扫码加我拉你入群

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

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

dxystata

2011-2-19 08:57:54

晕每次aaa的赋值有可能不一样啊如何做到通用

扫码加我拉你入群

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

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

dxystata

2011-2-19 10:08:40

如果已知分成三段，如何实现？

扫码加我拉你入群

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

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

sungmoo

2011-2-19 11:17:59

dxystata 发表于 2011-2-19 08:57 每次aaa的赋值有可能不一样啊如何做到通用

dxystata 发表于 2011-2-19 10:08 如果已知分成三段，如何实现？

既然aaa每次赋值不一样，“分成三段”的原则是“通用”的吗？

扫码加我拉你入群

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

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

sungmoo

2011-2-19 11:28:14

dxystata 发表于 2011-2-19 10:08 如果已知分成三段，如何实现？

loc aaa "aa bbb cccc ddddd eeeee ffffff ggggggg"

这里“分成三段”的原则是什么？

如果是且只是分成三段，无论aaa如何赋值，使用substr()都可以很容易实现吧？

扫码加我拉你入群

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

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

dxystata

2011-2-19 13:06:56

编程是传递进去是a b c d  指定分成2组就是 aaa1为a b       aaa2为c d
传递进去是a b c d  e f 指定分成3组就是 aaa1为a b       aaa2为c d aaa3 为e f
传递进去是a b c d  e f  g h指定分成4组就是 aaa1为a b       aaa2为c d aaa3 为e f  aaa4 为g h

扫码加我拉你入群

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

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

sungmoo

2011-2-19 13:24:12

dxystata 发表于 2011-2-19 13:06
编程是传递进去是a b c d  指定分成2组就是 aaa1为a b       aaa2为c d
传递进去是a b c d  e f 指定分成3组就是 aaa1为a b       aaa2为c d aaa3 为e f
传递进去是a b c d  e f  g h指定分成4组就是 aaa1为a b       aaa2为c d aaa3 为e f  aaa4 为g h

分组规则表述似乎还不充分。

进去的是5、7或9个"words"，如何分组？分几组？

扫码加我拉你入群

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

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

dxystata

2011-2-19 15:44:07

分组是我指定的，保证分组后各组的数目相同

扫码加我拉你入群

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

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

sungmoo

2011-2-19 23:16:45

dxystata 发表于 2011-2-19 15:44 分组是我指定的，保证分组后各组的数目相同

能否详尽地（针对aaa各种可能情况穷举式地）说明一下分组规则？

扫码加我拉你入群

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

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

dxystata

2011-2-19 23:42:46

编程是传递进去是a b c d  指定分成2组就是 aaa1为a b       aaa2为c d
传递进去是a b c d  e f 指定分成3组就是 aaa1为a b       aaa2为c d aaa3 为e f
传递进去是a b c d  e f  g h指定分成4组就是 aaa1为a b       aaa2为c d aaa3 为e f  aaa4 为g h
传递进去是a b c d  e f  g h i 指定分成3组就是 aaa1为a b  c    aaa2为 d e f aaa3 为 g h i
分组是我指定的，保证分组后各组的数目相同
没其他特别的啦

扫码加我拉你入群

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

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

sungmoo

2011-2-19 23:56:02

dxystata 发表于 2011-2-19 23:42
编程是传递进去是a b c d  指定分成2组就是 aaa1为a b       aaa2为c d
传递进去是a b c d  e f 指定分成3组就是 aaa1为a b       aaa2为c d aaa3 为e f
传递进去是a b c d  e f  g h指定分成4组就是 aaa1为a b       aaa2为c d aaa3 为e f  aaa4 为g h
传递进去是a b c d  e f  g h i 指定分成3组就是 aaa1为a b  c    aaa2为 d e f aaa3 为 g h i

if wordcount("`aaa'")==4 {
loc aaa1=word("`aaa'",1)+" "+word("`aaa'",2)
loc aaa2=word("`aaa'",3)+" "+word("`aaa'",4)
}
else if wordcount("`aaa'")==6 {
loc aaa1=word("`aaa'",1)+" "+word("`aaa'",2)
loc aaa2=word("`aaa'",3)+" "+word("`aaa'",4)
loc aaa3=word("`aaa'",5)+" "+word("`aaa'",6)
}
else if wordcount("`aaa'")==8 {
loc aaa1=word("`aaa'",1)+" "+word("`aaa'",2)
loc aaa2=word("`aaa'",3)+" "+word("`aaa'",4)
loc aaa3=word("`aaa'",5)+" "+word("`aaa'",6)
loc aaa4=word("`aaa'",7)+" "+word("`aaa'",8)
}
else if wordcount("`aaa'")==9 {
loc aaa1=word("`aaa'",1)+" "+word("`aaa'",2)+" "+word("`aaa'",3)
loc aaa2=word("`aaa'",4)+" "+word("`aaa'",5)+" "+word("`aaa'",6)
loc aaa3=word("`aaa'",7)+" "+word("`aaa'",8)+" "+word("`aaa'",9)
}

扫码加我拉你入群

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

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

sungmoo

2011-2-20 00:32:54

dxystata 发表于 2011-2-20 09:01 如果是"a1 a2 a3 b4 b1 b2 b3 b4 c1 c2 c3 c4 d1 d2 d3 d4"传递进去分成4组？

*设aaa中不含重复的word，如下命令可按分组插入"|"，再按"|"分组（以分4组为例）：

loc p="`aaa'"
forv i=1/4{
loc w=word("`p'",`i'*wordcount("`p'")/4)
loc p=subinword("`p'","`w'","`w'|",1)
}

forv i=1/4{
gettoken aaa`i' p:p,p("|")
loc p=subinstr("`p'","|","",1)
}

扫码加我拉你入群

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

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

dxystata

2011-2-20 07:52:19

1. 传递进去的word的总数是已知的，分组也是已知的！能否用循环写？
2. substr这个函数不能用，如果传递进去的变量名是x0 x1 rbc0 rbc1 aptt0 aptt1

扫码加我拉你入群

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

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

sungmoo

2011-2-20 08:28:26

loc n=wordcount("`aaa'")
if mod(`n',2)==0{
  loc c=`n'/2
  forv i=1/`c'{
loc aaa`i'=word("`aaa'",2*`i'-1)+" "+word("`aaa'",2*`i')
  }
}
else if mod(`n',9)==0{
  loc c=`n'/3
  forv i=1/3{
forv j=1/`c'{
   loc aaa`i'="`aaa`i''"+word("`aaa'",`j'+`c'*(`i'-1))+" "
}
  }
}

扫码加我拉你入群

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

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

dxystata

2011-2-20 09:01:33

如果是a1 a2 a3 b4 b1 b2 b3 b4 c1 c2 c3 c4 d1 d2 d3 d4 传递进去分成4组？

扫码加我拉你入群

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

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

dxystata

2011-2-20 09:11:03

如果传递进去是20个变量名分成5组？

扫码加我拉你入群

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

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

dxystata

2011-2-20 09:54:39

讨论就有收获！

扫码加我拉你入群

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

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

sungmoo

2011-2-20 13:17:04

dxystata 发表于 2011-2-20 09:11 如果传递进去是20个变量名分成5组？

*可以依此类推，aaa中含任意5n个words（n是正整数），且把aaa中各word按顺序平均分成5组：

loc n=wordcount("`aaa'")/5
forv i=1/5{
forv j=1/`n'{
loc aaa`i'="`aaa`i''"+word("`aaa'",`j'+`n'*(`i'-1))+" "
}
}

扫码加我拉你入群

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

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

sungmoo

2011-2-20 13:46:28

dxystata 发表于 2011-2-20 09:01 如果是a1 a2 a3 b4 b1 b2 b3 b4 c1 c2 c3 c4 d1 d2 d3 d4 传递进去分成4组？

*aaa中含任意4n个words，均分成4组：

loc n=wordcount("`aaa'")/4
forv i=1/4{
forv j=1/`n'{
loc aaa`i'="`aaa`i''"+word("`aaa'",`j'+`n'*(`i'-1))+" "
}
}

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群