| 查看: 1533 | 回复: 9 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
程序求解：重复的相同数据用同样的代码取代
|
||
|
小女有如下数据，片段截取如下（每列用了制表符分隔） Col1 Col2 Col3 Col4 Col5 Col6 1 G L 0 0 1 0 1 EL 0 0 2 0 1 (5)W S G L EL 2 0 1 G S 0 0 1 0 1 A S 0 0 2 0 1 (10)A D G S A S 2 0 1 (65)B B D (10)A D 2 0 1 M M K (4)M K (65)B 2 0 2 J K 0 0 1 0 2 A 0 0 2 0 2 P R 0 0 1 0 2 A R 0 0 2 0 2 (59)M Z J K A 2 0 2 (30)M R (8)A R (19)L R 1 0 其中第一列表示组号，希望得到如下的结果： 1. 在每一组里，不带有数字的字母项，用符号表示。其中具有相同字母的项目（没有数字的字母列），用相同符号表示，如NA1，如第一行G L————NA1，第三行的G L也是NA1，但是第二行的EL为NA2 2.同一组里，带有数字的字母项，字母删除，只留下数字 自己尝试的写了下，发现，乱成了一团，紧急求助各位达人，先谢过啦！！！ |
回复此楼» 猜你喜欢
化学工程与技术324调剂
已经有5人回复
-
085500求调剂材料
已经有7人回复
-
化工调剂求导师收留！一志愿失利，踏实肯干，有植物提取科研经历
已经有3人回复
-
268分085602化学工程调剂
已经有20人回复
-
0856专硕求调剂 希望是a区院校
已经有6人回复
-
调剂
已经有7人回复
-
一志愿华中农微生物，288分，三年实验经历
已经有9人回复
-
285求调剂
已经有16人回复
-
求调剂
已经有8人回复
-
材料与化工300求调剂
已经有19人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 解决问题的技巧 【转载】【已搜索无重复】
已经有111人回复
- 【分享】笔记本电池一段时间后不好用的解决办法【已搜索无重复】
已经有5人回复
- matlab代码求解水动力学方程看不懂，请高手指点
已经有4人回复
- 【分享】RedCrab ：免费功能极其强大的科学计算器 帮你求解高数难题【已搜索无重复】
已经有36人回复
- 用spss处理有重复的正交试验数据，怎么做？
已经有3人回复
- 【转贴】材料领域常用的数据库【已搜索无重复】
已经有22人回复
jackie1179
木虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 1929.2
- 红花: 1
- 帖子: 460
- 在线: 47.2小时
- 虫号: 1119284
- 注册: 2010-10-11
- 专业: 生物信息学
不给也行，我也不知道怎么给金币！ 
9楼2012-07-09 23:08:16
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51005.2
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言
2楼2012-07-07 01:15:44
3楼2012-07-07 05:35:57
jackie1179
木虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 1929.2
- 红花: 1
- 帖子: 460
- 在线: 47.2小时
- 虫号: 1119284
- 注册: 2010-10-11
- 专业: 生物信息学
【答案】应助回帖
感谢参与，应助指数 +1
|
给你写了个perl脚本，希望能够帮到你。 用法：perl ./pro.pl input_file output_file 贴上代码: #!/usr/bin/perl -w unless(@ARGV) { die "Arguments not enough!$!"; } $in = $ARGV[0]; $out = $ARGV[1]; open(IN,"$in"  || die "Cannot open this file!$!";open(OUT,">$out" || die "Cannot write to this file!$!";undef %string; $cnt = 0; while( chomp; @array = split /\t/; foreach $ele(@array) { if($ele lt '0' || $ele gt '9') { print $ele,"\t"; if($ele =~ /\((\d+)\)/) { $ele = $1; } else { if(!defined $string{$ele}) { $cnt++; $string{$ele} = $cnt; $ele = "NA" . $cnt; } else { $ele = "NA" . $string{$ele}; } } } print OUT "$ele\t"; } print OUT "\n"; } close IN; close OUT; |
4楼2012-07-07 10:08:13
10