Initial data commit

Task/Bioinformatics-base-count/VBScript/bioinformatics-base-count.vb

@@ -0,0 +1,31 @@
+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