请教高手，如何取出文件中两相同字符串之间所有内容，放置到相应位置？

qyaqin

例如：


A文件：

test(ABC1) {
.
.
.
.
}
test(ABC1)
test(DEF2){
.
.
.
}
test(DEF2)


B文件：

test(ABC1){
{...
{...
   {...
    }
   }
  }
}
test(DEF2){
{...
{...
   {...
    }
   }
  }
}

需要取出A文件中，2个test(ABC1)之间（包括所在行）所有行，放入B文件中，test(ABC1)后面的倒数第二个括号所在那行。。。。。

每个test()里面有不同的字符，但是每个都做相应处理。

太难了，求助~~~叩谢~~~

[ 本帖最后由 qyaqin 于 2009-12-22 16:08 编辑 ]

qyaqin

例子中，完成之后如下：

test(ABC1){
{...
{...
   {...
    }
   }
test(ABC1) {
.
.
.
.
}
test(ABC1)  }
}
test(DEF2){
{...
{...
   {...
    }
   }
test(DEF2){
.
.
.
}
test(DEF2)}
}

yazi0127

有点难，顶一下

ywlscpl

1. awk 'NR==FNR{if ($0==v&&T) {a[v]=a[v]"\n"$0;T=0;v=""}if (/.*\(.*\) *{/) {split($0,m," *{");v=m[1];a[v]=$0;T=1;next}if (T) a[v]=a[v]"\n"$0}NR>FNR{if (/.*\(.*\) *{/) {if (T1) for (i=n;i>0;i--) {if (b[i]~/}/) o++;if (o==2){num=i;break}}if (num) {for (i=1;i<num;i++) print b[i];print a[v]""b[num];for (i=num+1;i<=n;i++) print b[i]}n=0;T1=0;o=0;num=0;delete b;split($0,m," *{");v=m[1];if (v in a) {T1=1;b[++n]=$0;next}}if (T1) {b[++n]=$0;next}print}END{if (T1) for (i=n;i>0;i--) {if (b[i]~/}/) o++;if (o==2){num=i;break}}if (num) {for (i=1;i<num;i++) print b[i];print a[v]""b[num];for (i=num+1;i<=n;i++) print b[i]}}' A B

复制代码

1. [root@Mylinux tmp]# cat A
   
2. test(ABC1) {
   
3. Abc1.
   
4. }
   
5. test(ABC1)
   
6. test(DEF2){
   
7. def2.
   
8. .
   
9. }
   
10. test(DEF2)
    
11. kkkk
    
12. [root@Mylinux tmp]# cat B
    
13. oo
    
14. test(ABC1){
    
15. {...
    
16. {...
    
17.    {...
    
18.     }
    
19.    }
    
20.   }
    
21. k
    
22. }
    
23. oo
    
24. test(DEF2){
    
25. {...
    
26. {...
    
27.    {...
    
28.     }
    
29.    }
    
30.   }
    
31. o
    
32. }
    
33. 
    
34. [root@Mylinux tmp]# awk 'NR==FNR{if ($0==v&&T) {a[v]=a[v]"\n"$0;T=0;v=""}if (/.*\(.*\) *{/) {split($0,m," *{");v=m[1];a[v]=$0;T=1;next}if (T) a[v]=a[v]"\n"$0}NR>FNR{if (/.*\(.*\) *{/) {if (T1) for (i=n;i>0;i--) {if (b[i]~/}/) o++;if (o==2){num=i;break}}if (num) {for (i=1;i<num;i++) print b[i];print a[v]""b[num];for (i=num+1;i<=n;i++) print b[i]}n=0;T1=0;o=0;num=0;delete b;split($0,m," *{");v=m[1];if (v in a) {T1=1;b[++n]=$0;next}}if (T1) {b[++n]=$0;next}print}END{if (T1) for (i=n;i>0;i--) {if (b[i]~/}/) o++;if (o==2){num=i;break}}if (num) {for (i=1;i<num;i++) print b[i];print a[v]""b[num];for (i=num+1;i<=n;i++) print b[i]}}' A B
    
35. oo
    
36. test(ABC1){
    
37. {...
    
38. {...
    
39.    {...
    
40.     }
    
41.    }
    
42. test(ABC1) {
    
43. Abc1.
    
44. }
    
45. test(ABC1)  }
    
46. k
    
47. }
    
48. oo
    
49. test(DEF2){
    
50. {...
    
51. {...
    
52.    {...
    
53.     }
    
54.    }
    
55. test(DEF2){
    
56. def2.
    
57. .
    
58. }
    
59. test(DEF2)  }
    
60. o
    
61. }
    
62. 
    
63. [root@Mylinux tmp]#

复制代码

qyaqin

唉，不行呃。

test(***)这样的格式是固定的，且只挑这样的处理。

其他的比如test123()都不能受影响。

并且A不是只有单纯这样固定的格式，还有些其他零零散散的东西。但是只取出形如test(***)这样的每段。。。

晕。是不是太复杂了

blackold

应该是没有把问题描述清楚吧，所以复杂了。

fllintel

太 牛了。。。看的都晕了

ywlscpl

其他的比如test123()都不能受影响。

把正则/.*\(.*\) *{/改成/.*\(.+\) *{/
即可

qyaqin

先谢谢ywlscpl 的无私帮助。。。 不过还是未解决 =。=

可能俺的表述能力太差。。。

现把实际例子放在附件里。

需要把a文件中，以cell(A0I13D1)开头，并以/*cell(A0I13D1)*/结尾的第16648~17096行，插入到，b文件的第17654行。可以看到b文件的17201行，也是cell(A0I13D1)开头的，即插入到相对应的那段的倒数第二个大括号内。

好人帮忙帮到底吧。。。。再次感谢~~~~~~~·

qyaqin

就是类似于cell(****)这样的，都做同样操作。