JavaScriptに書かれたシーケンスコード生成器

5011 ワード

JavaScript 機能エクセル input ブトン VBA

今日、あるネット友達が私に助けを求めました.彼はエクセルに記入します.

PDAA 202452700000 1 PDAA 202452700000 2 PDAA 202452700000 3
このようなシーケンスですが、Excelではスマートに充填できません.

これはVBAコードを作成して完成できますが、VBAにあまり詳しくないです.やはりJavaScriptで一つ書きました.

<FORM>
<p><font color="blue" size="+2">      v0.0.0001</font></p>
<p>    ：<INPUT TYPE="text" ID="txtFixed" value="PDAA20124527" /></p>
<p>   ：<INPUT TYPE="text" ID="txtBegin" value="1">　   ：<INPUT TYPE="text" ID="txtEnd" value="999999">　  ：<INPUT TYPE="text" ID="txtStep" value="1">　<INPUT TYPE="button" VALUE="    " ONCLICK="genCode();"></p>
</FORM>
<script language="javascript">
function genCode()
{
	sFixed = (document.getElementById("txtFixed")).value;
	if (0==sFixed.length)
	{
		if (!confirm("       ！
      ？"))
		{
			return;
		}
	}

	iStart = (document.getElementById("txtBegin")).value;
	if (0==iStart.length)
	{
		alert("      ！");
		return;
	}
	iStart = iStart/1;

	iEnd = (document.getElementById("txtEnd")).value;
	if (0==iEnd.length)
	{
		alert("      ！");
		return;
	}
	iEnd = iEnd/1;

	iStep = (document.getElementById("txtStep")).value;
	if (0==iStep.length)
	{
		if (!confirm("      ！
    1，     ？"))
		{
			return;
		}
	}
	iStep = iStep/1;
	
	genSerialCode();
}


function genSerialCode()
{
	document.write('<form name="frmTest">');
	document.write('<TEXTAREA ROWS="30" COLS="90" name="taTest">');

	for (i=iStart; i < iEnd+1; i+=iStep)
	{
		document.write(sFixed);
		var j = i;	
		while( (j = j*10) < iEnd )
		{
		//document.writeln("j="+j);
			document.write("0");
		}
		document.writeln(i);
	}

	document.write('<\/TEXTAREA><\/form>');
	var tempval=eval("document.frmTest.taTest");
	tempval.focus();
	tempval.select();
	therange=tempval.createTextRange();
	therange.execCommand("Copy");
}
</script>

改善しました

<FORM>
<p><font color="blue" size="+2">      v0.0.0001</font></p>
<p>    ：<INPUT TYPE="text" ID="txtFixed" value="PDAA20124527" /></p>
<p>   ：<INPUT TYPE="text" ID="txtBegin" value="1">　   ：<INPUT TYPE="text" ID="txtEnd" value="999999">　  ：<INPUT TYPE="text" ID="txtStep" value="1">　<INPUT TYPE="button" VALUE="    " ONCLICK="genCode();"></p>
</FORM>
<script language="javascript">
function genCode()
{
	sFixed = (document.getElementById("txtFixed")).value;
	if (0==sFixed.length)
	{
		if (!confirm("       ！
      ？"))
		{
			return;
		}
	}

	iStart = (document.getElementById("txtBegin")).value;
	if (0==iStart.length)
	{
		alert("      ！");
		return;
	}
	iStart = iStart/1;

	iEnd = (document.getElementById("txtEnd")).value;
	if (0==iEnd.length)
	{
		alert("      ！");
		return;
	}
	iEnd = iEnd/1;

	iStep = (document.getElementById("txtStep")).value;
	if (0==iStep.length)
	{
		if (!confirm("      ！
    1，     ？"))
		{
			return;
		}
	}
	iStep = iStep/1;
	
	genSerialCode();
}


function genSerialCode()
{
	document.write('<form name="frmTest">');
	document.write('<TEXTAREA ROWS="30" COLS="90" name="taTest">');
	var j, iMaxLen = String(iEnd).length;
	for (i=iStart; i < iEnd+1; i+=iStep)
	{
		document.write(sFixed);
		var iLen = iMaxLen - String(i).length;

		for (j = 0; j < iLen; j++)
		{
		//document.writeln("j="+j);
			document.write("0");
		}

		document.writeln(i);
	}

	document.write('<\/TEXTAREA><\/form>');
	var tempval=eval("document.frmTest.taTest");
	tempval.focus();
	tempval.select();
	therange=tempval.createTextRange();
	therange.execCommand("Copy");
}
</script>

[js点滴]JavaScriptのCookie/Sessionメカニズム詳細解02