极小巧的序列编辑器－只有2k无需安装
丁香园论坛
1330
极小巧的序列编辑器
我自己设计的只有2K的小巧DNA序列编辑器，为网页文件，无需安装，只要有IE即可运行，辅助进行分子生物学序列编辑、引物设计，可生成互补、反向互补、大写、小写序列、编辑空格等。
下载地址：
ftp://www.souwo.net/DNA_editor.rar
后期原作者将提供自己编写的《引物设计教程》下载
或者将下列代码复制并存入文本文件并将扩展名改为htm(网页文件）即可。如果调试有效,请多回贴支持进一步的工具发展。
<html>
<head>
<title>DNA编辑器</title>
<script language="JavaScript">
function myinput(mysq)
{ var assembling ="";
var compl="";
var as_compl="";
for (i=mysq.length-1; i>=0; i--)
{
assembling += mysq.charAt(i);
compl=mysq.charAt(i);
switch (compl)
{
case " " :compl=" "
break ;
case "a" :compl="t"
break ;
case "t" :compl="a"
break
case "c" :compl="g"
break
case "g" :compl="c"
break
case "A" :compl="T"
break ;
case "T" :compl="A"
break ;
case "C" :compl="G"
break ;
case "G" :compl="C"
break ;
default :alert("PLEASE ENTER A,T,C,G")
}
as_compl+=compl;
}
var as_revcompl="";
for (i=mysq.length-1; i>=0; i--)
{
as_revcompl+=as_compl.charAt(i);};
form1.text2.value=assembling;
form1.text3.value=as_compl;
form1.text4.value=as_revcompl;
form1.text5.value=mysq.toUpperCase();
form1.text6.value=assembling.toUpperCase();
form1.text7.value=as_compl.toUpperCase();
form1.text8.value=as_revcompl.toUpperCase();
form1.text9.value=mysq.toLowerCase();
form1.text10.value=assembling.toLowerCase();
form1.text11.value=as_compl.toLowerCase();
form1.text12.value=as_revcompl.toLowerCase();
}
function clearspace(mysq)
{ var assembling ="";
var mycle ="";
for (i=0; i<=mysq.length-1; i++)
{mycle =mysq.charAt(i);
if (mycle==" ") {mycle=""}
assembling +=mycle;}//end for;
form1.text1.value=assembling ;
return form1.text1.value;
}
this.status="永远免费的网络名片(搜我网）－－www.souwo.net"
</script>
</head>
<body bgcolor=#45A476>
<form name="form1">
<p>
<font size="1" color=blue>输入序列:</font>
<input type="text" name="text1" size="80">
<center>
<input type="button" name="button1"
value="提交序列" onclick="myinput(text1.value)">
<input type="button" name="button1"
value="去除空格" onclick="clearspace(text1.value)">
<input type="button" name="button1"
value="清空序列" onclick="location.reload()">
</center>
<font size="1">反向序列:</font>
<input type="text" name="text2" size="80">
<br>
<font size="1">反向互补:</font>
<input type="text" name="text3" size="80">
<br>
<font size="1">互补序列:</font>
<input type="text" name="text4" size="80">
<br>
<center>
大写序列
</center>
<font size="1">原始序列:</font>
<input type="text" name="text5" size="80">
<br>
<font size="1">反向序列:</font>
<input type="text" name="text6" size="80">
<br>
<font size="1">反向互补:</font>
<input type="text" name="text7" size="80">
<br>
<font size="1">互补序列:</font>
<input type="text" name="text8" size="80">
<br>
<center>
小写序列
</center>
<font size="1">原始序列:</font>
<input type="text" name="text9" size="80">
<br>
<font size="1">反向序列:</font>
<input type="text" name="text10" size="80">
<br>
<font size="1">反向互补:</font>
<input type="text" name="text11" size="80">
<br>
<font size="1">互补序列:</font>
<input type="text" name="text12" size="80">
<br>
<marquee>永远免费的网络名片<b>(搜我网）</b>－－<b><font color=red>www.souwo.net</font></b></marquee></p>
</form>
</body>
<html>
我自己设计的只有2K的小巧DNA序列编辑器，为网页文件，无需安装，只要有IE即可运行，辅助进行分子生物学序列编辑、引物设计，可生成互补、反向互补、大写、小写序列、编辑空格等。
下载地址：
ftp://www.souwo.net/DNA_editor.rar
后期原作者将提供自己编写的《引物设计教程》下载
或者将下列代码复制并存入文本文件并将扩展名改为htm(网页文件）即可。如果调试有效,请多回贴支持进一步的工具发展。
<html>
<head>
<title>DNA编辑器</title>
<script language="JavaScript">
function myinput(mysq)
{ var assembling ="";
var compl="";
var as_compl="";
for (i=mysq.length-1; i>=0; i--)
{
assembling += mysq.charAt(i);
compl=mysq.charAt(i);
switch (compl)
{
case " " :compl=" "
break ;
case "a" :compl="t"
break ;
case "t" :compl="a"
break
case "c" :compl="g"
break
case "g" :compl="c"
break
case "A" :compl="T"
break ;
case "T" :compl="A"
break ;
case "C" :compl="G"
break ;
case "G" :compl="C"
break ;
default :alert("PLEASE ENTER A,T,C,G")
}
as_compl+=compl;
}
var as_revcompl="";
for (i=mysq.length-1; i>=0; i--)
{
as_revcompl+=as_compl.charAt(i);};
form1.text2.value=assembling;
form1.text3.value=as_compl;
form1.text4.value=as_revcompl;
form1.text5.value=mysq.toUpperCase();
form1.text6.value=assembling.toUpperCase();
form1.text7.value=as_compl.toUpperCase();
form1.text8.value=as_revcompl.toUpperCase();
form1.text9.value=mysq.toLowerCase();
form1.text10.value=assembling.toLowerCase();
form1.text11.value=as_compl.toLowerCase();
form1.text12.value=as_revcompl.toLowerCase();
}
function clearspace(mysq)
{ var assembling ="";
var mycle ="";
for (i=0; i<=mysq.length-1; i++)
{mycle =mysq.charAt(i);
if (mycle==" ") {mycle=""}
assembling +=mycle;}//end for;
form1.text1.value=assembling ;
return form1.text1.value;
}
this.status="永远免费的网络名片(搜我网）－－www.souwo.net"
</script>
</head>
<body bgcolor=#45A476>
<form name="form1">
<p>
<font size="1" color=blue>输入序列:</font>
<input type="text" name="text1" size="80">
<center>
<input type="button" name="button1"
value="提交序列" onclick="myinput(text1.value)">
<input type="button" name="button1"
value="去除空格" onclick="clearspace(text1.value)">
<input type="button" name="button1"
value="清空序列" onclick="location.reload()">
</center>
<font size="1">反向序列:</font>
<input type="text" name="text2" size="80">
<br>
<font size="1">反向互补:</font>
<input type="text" name="text3" size="80">
<br>
<font size="1">互补序列:</font>
<input type="text" name="text4" size="80">
<br>
<center>
大写序列
</center>
<font size="1">原始序列:</font>
<input type="text" name="text5" size="80">
<br>
<font size="1">反向序列:</font>
<input type="text" name="text6" size="80">
<br>
<font size="1">反向互补:</font>
<input type="text" name="text7" size="80">
<br>
<font size="1">互补序列:</font>
<input type="text" name="text8" size="80">
<br>
<center>
小写序列
</center>
<font size="1">原始序列:</font>
<input type="text" name="text9" size="80">
<br>
<font size="1">反向序列:</font>
<input type="text" name="text10" size="80">
<br>
<font size="1">反向互补:</font>
<input type="text" name="text11" size="80">
<br>
<font size="1">互补序列:</font>
<input type="text" name="text12" size="80">
<br>
<marquee>永远免费的网络名片<b>(搜我网）</b>－－<b><font color=red>www.souwo.net</font></b></marquee></p>
</form>
</body>
<html>
