刪除文本中某一列－－－太折騰人了

joepayne

文本文件a.dat:
insert into t values(1,'abc',78,'greger2343','grtg');
insert into t values(2,'dgre',44,'jty','grtg');
insert into t values(3,'grhg',65,'66k','ghre');
insert into t values(4,'muy',68,'yj','g5');
insert into t values(5,'54yn',98,'67','54h');
.......
表件中放的是表T的所有記錄，是SQL的格式存放的。表T有5個(gè)屬性，N條記錄。即，文本中“（” 與 “）”之間以“，”隔開的有5個(gè)域，文件中共N行數(shù)據(jù)。
要求刪除第M列。
例：
如果M為5，刪除后的結(jié)果應(yīng)該為：
insert into t values(1,'abc',78,'greger2343');
insert into t values(2,'dgre',44,'jty');
insert into t values(3,'grhg',65,'66k');
insert into t values(4,'muy',68,'yj');
insert into t values(5,'54yn',98,'67');
如果M為3，刪除后的結(jié)果應(yīng)該為：
insert into t values(1,'abc',greger2343','grtg');
insert into t values(2,'dgre','jty','grtg');
insert into t values(3,'grhg','66k','ghre');
insert into t values(4,'muy','yj','g5');
insert into t values(5,'54yn','67','54h');
大蝦們幫忙看看，有沒有什么好的方案？

yestreenstars

1. [root@localhost ~]# awk -vM=3 'BEGIN{FS=",";RS="[()]"}NF==5{for(i=0;i++<NF;)if(i!=M)s=s?s","$i:$i;$0=s;s=""}{printf $0 RT}' i
   
2. insert into t values(1,'abc','greger2343','grtg');
   
3. insert into t values(2,'dgre','jty','grtg');
   
4. insert into t values(3,'grhg','66k','ghre');
   
5. insert into t values(4,'muy','yj','g5');
   
6. insert into t values(5,'54yn','67','54h');
   
7. [root@localhost ~]# awk -vM=5 'BEGIN{FS=",";RS="[()]"}NF==5{for(i=0;i++<NF;)if(i!=M)s=s?s","$i:$i;$0=s;s=""}{printf $0 RT}' i
   
8. insert into t values(1,'abc',78,'greger2343');
   
9. insert into t values(2,'dgre',44,'jty');
   
10. insert into t values(3,'grhg',65,'66k');
    
11. insert into t values(4,'muy',68,'yj');
    
12. insert into t values(5,'54yn',98,'67');
    
13. [root@localhost ~]#

復(fù)制代碼

這個(gè)冬天不冷

1. [root@everIover ~]# cat ii
   
2. insert into t values(1,'abc',78,'greger2343','grtg');
   
3. insert into t values(2,'dgre',44,'jty','grtg');
   
4. insert into t values(3,'grhg',65,'66k','ghre');
   
5. insert into t values(4,'muy',68,'yj','g5');
   
6. insert into t values(5,'54yn',98,'67','54h');
   
7. [root@everIover ~]# awk -vFS="[(),]" '{printf("%s(%s,%s,%s,%s",$1,$2,$3,$5,$6) ;print ")"}' ii
   
8. insert into t values(1,'abc','greger2343','grtg')
   
9. insert into t values(2,'dgre','jty','grtg')
   
10. insert into t values(3,'grhg','66k','ghre')
    
11. insert into t values(4,'muy','yj','g5')
    
12. insert into t values(5,'54yn','67','54h')
    
13. [root@everIover ~]#
    

復(fù)制代碼

joepayne

回復(fù) 3# 這個(gè)冬天不冷

TKS！
需要?jiǎng)h除的第M列是一個(gè)入?yún)�。大蝦好像把它給寫死了，而且最后的;給弄沒了

jason680

回復(fù) 1# joepayne

$ awk -F'[(,)]' -vM=5 '{s="";printf $1"(";for(n=2;n<NF;n++){if(n!=M+1){printf s$n;s=","}}print ");"}' a.dat
insert into t values(1,'abc',78,'greger2343');
insert into t values(2,'dgre',44,'jty');
insert into t values(3,'grhg',65,'66k');
insert into t values(4,'muy',68,'yj');
insert into t values(5,'54yn',98,'67');
jason@jason-VirtualBox:~/tmp
$ awk -F'[(,)]' -vM=3 '{s="";printf $1"(";for(n=2;n<NF;n++){if(n!=M+1){printf s$n;s=","}}print ");"}' a.dat
insert into t values(1,'abc','greger2343','grtg');
insert into t values(2,'dgre','jty','grtg');
insert into t values(3,'grhg','66k','ghre');
insert into t values(4,'muy','yj','g5');
insert into t values(5,'54yn','67','54h');
   

這個(gè)冬天不冷

回復(fù) 4# joepayne

確實(shí)寫死了。最后一個(gè)；直接在awk -vFS="[(),]" '{printf("%s(%s,%s,%s,%s",$1,$2,$3,$5,$6) ;print ");"}' 最后加一個(gè);就ok了
[root@everIover ~]# awk -vFS="[(),]" -vM=3 '{printf("%s(",$1);for(i=2;i<=6;i++){if(i==M)continue;printf("%s%s",f,$i);f=","}print ");";f=""}' ii

1. [root@everIover ~]# awk -vFS="[(),]" -vM=3 '{printf("%s(",$1);for(i=2;i<=6;i++){if(i==M)continue;printf("%s%s",f,$i);f=","}print ");";f=""}' ii
   
2. insert into t values(1,78,'greger2343','grtg');
   
3. insert into t values(2,44,'jty','grtg');
   
4. insert into t values(3,65,'66k','ghre');
   
5. insert into t values(4,68,'yj','g5');
   
6. insert into t values(5,98,'67','54h');
   
7. [root@everIover ~]# cat ii
   
8. insert into t values(1,'abc',78,'greger2343','grtg');
   
9. insert into t values(2,'dgre',44,'jty','grtg');
   
10. insert into t values(3,'grhg',65,'66k','ghre');
    
11. insert into t values(4,'muy',68,'yj','g5');
    
12. insert into t values(5,'54yn',98,'67','54h');
    
13. [root@everIover ~]#
    

復(fù)制代碼

0x1024

1. bogon:~>cat sss.sh
   
2. #!/bin/bash
   
3. 
   
4. if [ $1 -le 5 ] && [ $1 -ge 1 ];then
   
5.     awk -vM=$1 '{split($0,a,"[(,)]");printf a[1]"(";for(i=2;i<=6;i++){if(i!=M+1)printf a[i];if(i > 2&& i<6 && i!=M) printf ",";}printf ");\n"}' tmp
   
6. else
   
7.     echo "error! use arg[1-5]"
   
8. fi
   
9. exit 0

復(fù)制代碼

joepayne

yestreenstars

jason680

兩位兄臺(tái)的大體思路都是一樣的，利用 -V  接受外部參數(shù)（小弟第一次見有這用法），AWK中的多分隔符，然后在ACTION中加以判斷處理。
感謝兩位！小弟受教了。     {:3_189:}

joepayne

效率也忒高了    哈哈

joepayne

回復(fù) 7# 0x1024


多謝兄臺(tái)！