24小时热门版块排行榜    

查看: 2253  |  回复: 7
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

amo11000

金虫 (小有名气)

[求助] 编写一个程序处理文本内容,删除长度<10,开头的,不以CTG结尾的那些序列

我有一个文本文件1.txt,内容如下:>序列名字1(序列名字可以任意长度)ATGgcggggccccATAGGGGGGTTCCUTG>序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG>序列名字3CTGgggggggccccccgggggutg。。。。。。后面还有很多序列

要求删除那些长度<10,不以ATG开头的,不以CTG结尾的那些序列。名字不包括在序列的长度内,最后得到的文件内容应该是:

>序列名字1(序列名字可以任意长度)ATGgcggggccccATAGGGGGGTTCCUTG>序列名字2ATGgcggggccccAgTAGGGGGGTTCCUTG。。。。。。后面还有很多序列。

由于序列3的开头字符不是ATG,而是CTG,所以被删除掉了。



谁能帮忙编写一个vb程序处理上面的问题啊?谢谢了
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

christina1213

木虫 (正式写手)

【答案】应助回帖


感谢参与,应助指数 +1
jjdg(金币+1): 感谢参与 2012-03-09 03:03:14
用perl脚本吧,很方便,我写了一个大概,要根据自己的序列格式更改一下(也可能有一些小错误),你的格式应该是fasta格式的测序序列,>文件名应该是单独一行。
#!/usr/bin/perl
use strict;
use warnings;

open (INFILE,"<1.txt";
open (OUTFILE,">>out.txt";
while (my $line=<>
        {
                my $num=length($line);
                if (($num>9)&&(~m/^ATG/)&&(CTG$))
                        {
                        print OUTFILE $line;
                        }
                if (~m/^>/)
                        {
                        print OUTFILE $line; #这个地方要加一个怎样判断序列名称和你输出序列 的对应的语句。不然每个文件名都会输出,时间有限,我就这样简写了,抱歉了……
                        }
        }
close INFILE;
close OUTFILE;
8楼2012-03-08 20:08:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

lt292

金虫 (正式写手)

Holy Shit

jjdg(金币+1): 感谢参与 2012-02-29 02:23:02
vim 加 正则表达式就可以把
应该是一个linux shell脚本
记忆中的颜色,慢慢褪去,变成一缕缕的黑丝,最终消失在茫茫的空白里,一去不返```
2楼2012-02-28 23:14:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lurencyj

木虫 (著名写手)

jjdg(金币+1): 感谢参与 2012-02-29 02:23:10
不确定shell碰上了中文字符内容会不会傻眼。。。哈哈
很女子很弓虽大
3楼2012-02-28 23:15:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lijie169

铜虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +1
c语言也可以,没碰到过vb的,应该很简单,1,循环读取文件的一行,2,对读取的行进行处理,神马长度<10,AtG开头的,3把符合要求的写入一个新的文件
4楼2012-02-29 14:37:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +4 majunge000 2026-08-11 6/300 2026-08-13 16:50 by 四季常青藤
[基金申请] 重要来源:本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了,巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +9 家与远方 2026-08-10 14/700 2026-08-13 09:41 by 臭臭不臭01
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +22 Lanmanbaby 2026-08-09 36/1800 2026-08-12 22:50 by sdfapple719
[基金申请] 好奇怪的filecode +5 布布和一二 2026-08-08 6/300 2026-08-12 16:11 by 云上清扬
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +8 Tide man 2026-08-10 9/450 2026-08-11 20:39 by beefly
[基金申请] 什么时候出结果,有咨询渠道??? +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 关于代码变化问题,想知道的进来 +17 且听虎啸 2026-08-07 24/1200 2026-08-10 18:35 by zhangduo2008
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
[基金申请] fileCode有新解读? +10 Tide man 2026-08-08 18/900 2026-08-09 12:55 by 仁砚薪传
[基金申请] 关于filecode,很负责任的告诉大家 +6 爱看书的可乐 2026-08-08 7/350 2026-08-08 22:13 by a_niu
[基金申请] 国基金的申报应该改成非等额制,评价高的钱多评价低的钱少,但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[基金申请] filecode变化情况 +6 布布和一二 2026-08-07 22/1100 2026-08-07 14:45 by 且听虎啸
信息提示
请填处理意见