ITPub博客

首页 > Linux操作系统 > Linux操作系统 > js

js

原创 Linux操作系统 作者:mrhutoo 时间:2013-08-23 17:08:40 0 删除 编辑
                           
                           
                           

<!--
var rptfile,txtfile;

function getFile()
{
    rptfile = document.getElementById("picpath").value;
    if(/^[\s\t\n\r]*$/.test(rptfile)) return true;
    rptfile = rptfile.replace("\\","\\\\");
    txtfile = rptfile.replace(".htm",".txt");
}

function getLink()
{
    if(getFile()){alert("Please select a report file!"); return;};
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    if(!fso.FileExists(rptfile)) alert("File not Exists!");
    var rfile = fso.OpenTextFile(rptfile,1);
    var TxtContent = rfile.ReadAll()//.split("\r\n");
    rfile.close();

    var link = new Array();
    while(true)
    {
        var m=TxtContent.indexOf("
        var n=TxtContent.indexOf("/a>");
        if(m==-1 || n==-1){break;}
        link.push(TxtContent.substring(m,n+3));
        TxtContent=TxtContent.substring(n+2,TxtContent.length);
    }

    var wfile = fso.CreateTextFile(txtfile,1);
    for(var i=0; i
    {
        wfile.WriteLine(i+"."+link[i]);
    }
    wfile.close();

    rfile = fso.OpentextFile(txtfile,1);
    TxtContent = rfile.ReadAll().split("\n\t");
    rfile.close();
    document.rptcnt.txtbox.value = TxtContent;
    alert("Report Count Finished!");
    txtpath.innerHTML = "Report Count Finished!";
}

function Process()
{
    var link = new Array();
    var name = new Array();
    txtfile = txtfile.replace("\\\\","\\");
document.rptcnt.txtbox.value = txtfile;
    var rfile = fso.OpentextFile(txtfile,1);
    var TxtContent = rfile.ReadAll();
    rfile.close();

//    var m = TxtContent.indexOf("href");
//    //if(m==-1) break;
//    TxtContent = TxtContent.substring(m,TxtContent.length);
//    var n = TxtContent.indexOf(" ");
//    var p = TxtContent.indexOf(">");
//    if(p
//    link.push(m,n);

    document.rptcnt.txtbox.value = TxtContent;
}

function view()
{
    var wsh = new ActiveXObject("WScript.Shell");
    wsh.Run("Notepad "+txtfile);
    var txtpath = txtfile.replace("\\\\","\\");
    txtpath.innerHTML = txtpath;
}

//-->

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24955184/viewspace-769142/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 驾考知识点
下一篇: link
请登录后发表评论 登录
全部评论

注册时间:2010-11-20

  • 博文量
    27
  • 访问量
    67023