Jeans & Development コンピューターのことなどを綴ったメモ (旧：目から鱗 w/SQLite)

ちょっと、仕事用に。分子生物学用のツール。合成DNAを設計する時などで相補鎖の配列を求めたいとき、Clone Managerなどのツールを起動しなくても、手軽に求められるようなVBScriptを作成した。

option explicit
dim sequence,temp,i
sequence=""
do
  temp=inputbox("DNA sequence (5' -> 3')?","Convert to complementary strand.",sequence)
  sequence=""
  for i=len(temp) to 1 step -1
    select case mid(temp,i,1)
    case "G"
      sequence=sequence & "C"
    case "g"
      sequence=sequence & "c"
    case "A"
      sequence=sequence & "T"
    case "a"
      sequence=sequence & "t"
    case "T"
      sequence=sequence & "A"
    case "t"
      sequence=sequence & "a"
    case "C"
      sequence=sequence & "G"
    case "c"
      sequence=sequence & "g"
    end select
  next
loop until sequence=""

VBSのInputBoxは、結構便利。