JavaScript写的序列代码生成器

今天一位网友向我求助，他要在Excel中填写

 

PDAA20124527000001
PDAA20124527000002
PDAA20124527000003

这样的序列，但在Excel中无法智能填充。

 

这个可以编写VBA代码来完成，不过我对VBA不太熟，还是用JavaScript写了一个。

 

"blue" size="+2">序列生成器 v0.0.0001
固定部分："text" ID="txtFixed" value="PDAA20124527" />
起始值："text" ID="txtBegin" value="1">　结束值："text" ID="txtEnd" value="999999">　步长："text" ID="txtStep" value="1">　"button" VALUE="生成序列" ONCLICK="genCode();">

"javascript">
function genCode()
{
    sFixed = (document.getElementById("txtFixed")).value;
    if (0==sFixed.length)
    {
        if (!confirm("未指示固定部分！\n要继续生成吗？"))
        {
            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("未指示结束值！\n要默认为1，继续生成吗？"))
        {
            return;
        }
    }
    iStep = iStep/1;

    genSerialCode();
}


function genSerialCode()
{
    document.write('');
    document.write('');

    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");
}

改进了一下：

 

"blue" size="+2">序列生成器 v0.0.0001
固定部分："text" ID="txtFixed" value="PDAA20124527" />
起始值："text" ID="txtBegin" value="1">　结束值："text" ID="txtEnd" value="999999">　步长："text" ID="txtStep" value="1">　"button" VALUE="生成序列" ONCLICK="genCode();">

"javascript">
function genCode()
{
    sFixed = (document.getElementById("txtFixed")).value;
    if (0==sFixed.length)
    {
        if (!confirm("未指示固定部分！\n要继续生成吗？"))
        {
            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("未指示结束值！\n要默认为1，继续生成吗？"))
        {
            return;
        }
    }
    iStep = iStep/1;

    genSerialCode();
}


function genSerialCode()
{
    document.write('');
    document.write('');
    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");
}