一个比较恶心的拆分数据问题

digitalchina

既然是EXCEL 就用EXCEL 的功能实现
1 排序, 用题号排序
2 数据筛选->自动筛选
3 筛选出答案='Y ' 的,选中每行,复制到另一个SHEET.
4 筛选出答案=' ' 的,选中,复制到刚才的数据后面几列.

完成.

blackold

Great Job.

smz0102

刚才粘贴出来显示的有问题，不知道为什么
现在改好了

测试结果：
[root@localhost shell]# cat file1.txt
1151       aaa        Y
1151       bbb
1152       ccc        Y
1152       ddd
1153       eee        Y
1153       fff
1154       aaa        Y
1154       bbb
1155       aaa        Y
1155       bbb
[root@localhost shell]# awk 'BEGIN{print "1\t 2\t 3"}{a[$1]=1;{if($3==Y)b[$1,$3]=$2;else c[$1]=$2}}END{for(j in a){print j,c[j]"|"b[j,Y],c[j]}}' file1.txt
1        2       3
1151 aaa|bbb aaa
1152 ccc|ddd ccc
1153 eee|fff eee
1154 aaa|bbb aaa
1155 aaa|bbb aaa

[ 本帖最后由 smz0102 于 2008-7-1 13:07 编辑 ]

blackold

这个适合于只有两个选项的问题，三个选项就不行了。

smz0102

原帖由 blackold 于 2008-7-1 13:14 发表
这个适合于只有两个选项的问题，三个选项就不行了。

黑哥能具体说说吗？
还有这个问题
if($3==Y)b[$1,$3]=$2;else c[$1]=$2}
这句我是想吧$3==Y时的 $2放到二维数组b数组，不匹配的放到c里，但是从结果看反了，不知道为什么？
帮看看啊！

blackold

是不是少了双引号呢？

smz0102

原帖由 blackold 于 2008-7-1 14:02 发表
是不是少了双引号呢？

看起来不是，如果改成
[root@localhost shell]# awk 'BEGIN{print "1\t 2\t 3"}{a[$1]=1;{if($3=="Y")b[$1,$3]=$2;else c[$1]=$2}}END{for(j in a){print j,c[j]"|"b[j,Y],c[j]}}' file1.txt
1        2       3
1151 bbb| bbb
1152 ddd| ddd
1153 fff| fff
1154 bbb| bbb
1155 bbb| bbb
[root@localhost shell]# cat file1.txt
1151       aaa        Y
1151       bbb
1152       ccc        Y
1152       ddd
1153       eee        Y
1153       fff
1154       aaa        Y
1154       bbb
1155       aaa        Y
1155       bbb

blackold

帮你看了一下，确实是双引号的问题：

1. 
   
2. awk 'BEGIN{print "1\t 2\t 3"}{a[$1]=1;{if($3=="Y")b[$1,$3]=$2;else c[$1]=$2}}END{for(j in a){print j,c[j]"|"c[j],b[j,"Y"]}}' file1.txt

复制代码

还有问题：没有输出“Y”行的选项。

1. 
   
2. awk 'BEGIN{print "1\t 2\t 3"}{a[$1]=1;{if($3=="Y")b[$1,$3]=$2;else c[$1]=$2}}END{for(j in a){print j,c[j]"|"b[j,"Y"],b[j,"Y"]}}' file1.txt

复制代码

[ 本帖最后由 blackold 于 2008-7-1 15:05 编辑 ]

smz0102

原帖由 blackold 于 2008-7-1 15:00 发表
帮你看了一下，确实是双引号的问题：

awk 'BEGIN{print "1\t 2\t 3"}{a[$1]=1;{if($3=="Y")b[$1,$3]=$2;else c[$1]=$2}}END{for(j in a){print j,c[j]"|"c[j],b[j,"Y"]}}' file1.txt

还有问题：没有输出 ...

谢谢黑哥！是双引号的问题，想玩问问b[j,Y],如果不加双引号这种形式，代表什么？怎么理解？
还有
awk 'BEGIN{print "1\t 2\t 3"}{a[$1]=1;{if($3==Y)b[$1,$3]=$2;else c[$1]=$2}}END{for(j in a){print j,c[j]"|"b[j,Y],c[j]}}' file1.txt
我用这个也能得到正确的结果，能分析一下吗？

[ 本帖最后由 smz0102 于 2008-7-2 09:27 编辑 ]

qqsshh

先转换成dbf文件然后处理不是很方便吗