link

function Process()
{
    var link = new Array();
    var name = new Array();
    var lnkfile = txtfile.replace(".txt",".link.txt");
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var rfile = fso.OpentextFile(txtfile,1);
    var TxtContent = rfile.ReadAll();
    rfile.close();

    while(true)
    {
        var m = TxtContent.indexOf("href");
        if(m==-1) break;
        TxtContent = TxtContent.substr(m+5);
        var n = TxtContent.indexOf(" ");
        var p = TxtContent.indexOf(">");
        if(p        link.push(TxtContent.substring(0,n));

        n = TxtContent.indexOf("");
        var SubContent = TxtContent.substring(0,n);
        m = SubContent.lastIndexOf(">");
        name.push(TxtContent.substring(m+1,n));
    }

    var wfile = fso.CreateTextFile(lnkfile,1);
    document.rptcnt.txtbox.value = lnkfile;
    for(var i=0; i    {
        wfile.WriteLine(link[i]+"\t"+name[i]);
    }
    wfile.close();
}

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

转载于:http://blog.itpub.net/24955184/viewspace-769387/