32 lines
1022 B
VB.net
32 lines
1022 B
VB.net
b=_
|
|
"CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG" &_
|
|
"CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG" &_
|
|
"AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT" &_
|
|
"GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT" &_
|
|
"CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG" &_
|
|
"TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA" &_
|
|
"TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT" &_
|
|
"CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG" &_
|
|
"TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC" &_
|
|
"GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT"
|
|
|
|
s="SEQUENCE:"
|
|
acnt=0:ccnt=0:gcnt=0:tcnt=0
|
|
|
|
for i=0 to len(b)-1
|
|
if (i mod 30)=0 then s = s & vbcrlf & right(" "& i+1,3)&": "
|
|
if (i mod 5)=0 then s=s& " "
|
|
m=mid(b,i+1,1)
|
|
s=s & m
|
|
select case m
|
|
case "A":acnt=acnt+1
|
|
case "C":ccnt=ccnt+1
|
|
case "G":gcnt=gcnt+1
|
|
case "T":tcnt=tcnt+1
|
|
case else
|
|
wscript.echo "error at ",i+1, m
|
|
end select
|
|
next
|
|
wscript.echo s & vbcrlf
|
|
wscript.echo "Count: A="&acnt & " C=" & ccnt & " G=" & gcnt & " T=" & tcnt
|