求个正则

budong0000

将如下内容，改为：aaa:dsafs/sdafdc/sfdfserd; bbb:sfd sfsd/eqwwer s/ ,即将code提出来当KEY，Name部分作为后面的value。最好用。net的正则，因为想把它用到数据库处理中。

<Code>aaa</Code>
<Name>dsafs</Name>
<Code>aaa</Code>
<Name>sdafdc</Name>
<Code>aaa</Code>
<Name>sfdfserd</Name>
<Code>bbb</Code>
<Name>sfd sfsdf</Name>
<Code>bbb</Code>
<Name>eqwwer s</Name>
<Code>ccc</Code>
<Name> </Name>


py prel都可以的。
现想到的，先找到<Code>.*?<\/Code>如果还能够找得到<Code>.*?<\/Code>那么就匹配上了。

(?'code'<Code>.*?<\/Code>).*?(?(code)<Code>.*?<\/Code>|(?'code'<Code>.*?<\/Code>))



但没有得到想要的。。

budong0000

自己顶下，麻烦老大们转到perl去吧

rdcwayx

别移， 这个用shell 练练手也不错。

1. awk -F"<|>" '{if (a[$3]=="") {a[$3]++;printf "\n%s:",$3;getline;printf $3} else {getline;printf "/%s",$3}}' infile
   
2. 
   
3. 
   
4. aaa:dsafs/sdafdc/sfdfserd
   
5. bbb:sfd sfsdf/eqwwer s
   
6. ccc:
   

复制代码

nuclearxin

perldoc　XML::Simple

budong0000

谢谢各位达达，但上面的shell，看不到用正则的地方呀，perl的脚本，用字典和数据库的的游标效率一样底吧。。下面是上csdn上问到的。



thy38
(孤独的长跑者)
等　级：
2
#6楼 得分：0回复于：2010-09-09 10:59:38
既然来脚本区问，我给你用IronPython写了个：
Python code
from System.Text.RegularExpressions import Regex, RegexOptions

s = r'''<Code>aaa</Code>
<Name>dsafs</Name>
<Code>aaa</Code>
<Name>sdafdc</Name>
<Code>aaa</Code>
<Name>sfdfserd</Name>
<Code>bbb</Code>
<Name>sfd sfsdf</Name>
<Code>bbb</Code>
<Name>eqwwer s</Name>
<Code>ccc</Code>
<Name> </Name>'''

reg = Regex(r"<code>(?<code>(?<!</code>).*)</code>\s+<name>(?<name>(?<!</name>).*)</name>",
                RegexOptions.IgnoreCase);

result = {}
for x in reg.Matches(s):
    key, value = x.Groups['code'].ToString(), x.Groups['name'].ToString()
    try:
        result[key].append(value)
    except KeyError:
        result[key] = [value]

for i in result:
    str = '%s:%s' % (i, '/'.join(result[i]))
    print str


对我有用[0]丢个板砖[0]引用举报管理TOP

budong0000
(budong)
等　级：
#7楼 得分：0回复于：2010-09-09 12:29:30
多谢几位达达，偶这就去测试。我猜想。net的正则和其它脚本的不一样，所以才有上面要求。其实相似就好。
对我有用[0]丢个板砖[0]引用举报管理TOP

budong0000
(budong)
等　级：
#8楼 得分：0回复于：2010-09-09 13:55:10
刚测试好了，可用，但这种用字典再foreach的做法和sql server里的游标效率一样。实在不想这样做。：《


现在想的思路是，匹配(?'code'<code>.*?</code>)如果前面没有(?<!\k'code'.*?)即可，但找出来的仍不正确，附
Perl code
(?<!\k'code'.*?)(?'code'<code>.*?</code>)



用的是Regex Tester测试

BangBull

有使用  sed 来完成的吗