WHY

修改第5行变量 i 的取值范围，这里 i 设置为从 1 到 1000，最大可以取值从 1 到 145000 多
比如： var i=1001; i<=3000; i++
可以下载 1001.html 到 3000.html 页面句子。

var fso = new ActiveXObject('Scripting.FileSystemObject');
var http = new ActiveXObject('Microsoft.XMLHTTP');
var home = 'http://www.1juzi.com/';
 
for (var i=1; i<=1000; i++) {
    var url = home + 'new/' + i + '.html'
    var txt = getText(url);
    var m = txt.match(/<h1>((?!服务器错误).*?)<\/h1>/);    //匹配句子标题
    if(!m) continue;
    var stc = [];
    var reg = /<p>(?!<\/p).*<\/p>/ig;
    while(arr = reg.exec(txt)) {
        var s = arr[0].replace(/<[^>]*>|&nbsp;/g, '');
        s = s.replace(/句子大全http:\/\/www\.1juzi\.com\//ig, '');
        s = s.replace(/&lsquo;/g, '‘').replace(/&rsquo;/g, '’').replace(/&hellip;/g,'…').replace(/&#39;/g, "'");
        s = s.replace(/&middot;/g, '·').replace(/&ldquo;/g, '“').replace(/&rdquo;/g, '”');
        s = s.replace(/&mdash;/g, '—').replace(/&quot;/g, '"');
        stc.push(s);
    }
    writeToFile('A' + m[1] + '\r\n' + stc.join('\r\n'));
}
 
function getText(url) {
    http.open('GET', url, false);
    http.send();
    with(new ActiveXObject('ADODB.Stream')){
        Mode = 3; Type = 1;
        Open();
        Write(http.responseBody);
        Position = 0;
        Type = 2;
        Charset = 'GB2312';
        var s = ReadText(-1);
    }
    return s;
}
 
function writeToFile(str) {
    var objFile = fso.OpenTextFile('1juzi.Log', 8, true);
    objFile.WriteLine(str);
    objFile.Close();
}
 
WSH.Echo('Done')COPY

WHY

var fso = new ActiveXObject('Scripting.FileSystemObject');
var http = new ActiveXObject('Microsoft.XMLHTTP');
 
//var map = {'励志名言':'lizhimingyan','名人名言':'mingrenmingyan','励志文章':'lizhiwenzhang','人生感悟':'renshengganwu','经典语录':'jingdianyulu','经典句子':'jingdianjuzi','散文精选':'sanwenjingxuan','情感日志':'qingganrizhi'};
var map = {'散文精选':'sanwenjingxuan'};
var home = 'http://www.ceasm.com/';
 
for (var key in map) {
    var url = home + map[key] + '/';
    var reg = /<h4><a href="\/([^"]*\.html)" target="_blank">([^<>]*)<\/a><\/h4>/g;
    while(url != '') {
        var txt = getText(url);
        var m = txt.match(/<a href='([^']*\.html)'>下一页/);
        url = m ? home + map[key] + m[1] : '';
        txt = txt.split('<ul class="dedelist">')[1]
        if(!txt) continue;
        txt = txt.split('</ul>')[0];
        while(arr = reg.exec(txt)) {
            writeToFile('A' + arr[2] + '\r\n' + getSentence(home + arr[1]));
        }
    }
}
 
function getText(url) {
    http.open('GET', url, false);
    http.send();
    with(new ActiveXObject('ADODB.Stream')){
        Mode = 3; Type = 1;
        Open();
        Write(http.responseBody);
        Position = 0;
        Type = 2;
        Charset = 'GB2312';
        var s = ReadText(-1);
    }
    return s;
}
 
function getSentence(url) {
    var stc = [];
    while(url != '') {
        var s = getText(url);
        var m = s.match(/<a href='([^']*\.html)'>下一页/);
        url = m ? url.replace(/[^/]*$/, '') + m[1] : '';
        s = s.split('<div class="text">')[1];
        if(!s) continue;
        s = s.split('</table>')[0];
        s = s.replace(/(?:<\/strong>)?<\/p>/g, '\r\n');
        s = s.replace(/<[^>]*>|&nbsp;/g, '');
        s = s.replace(/^[ 	　　]+/gm, '');
        s = s.replace(/(\r?\n)+/g, '$1').replace(/^(?:\r?\n)|(?:\r?\n)$/g, '');
        s = s.replace(/&#39;/g, "'");
        s = s.replace(/&lsquo;/g, '‘').replace(/&rsquo;/g, '’').replace(/&hellip;/g,'…');        
        s = s.replace(/&middot;/g, '·').replace(/&ldquo;/g, '“').replace(/&rdquo;/g, '”');
        s = s.replace(/&mdash;/g, '—').replace(/&quot;/g, '"');
        stc.push(s);
    }
    return stc.join('\r\n');
}
 
function writeToFile(str) {
    var objFile = fso.OpenTextFile(key + '.Log', 8, true);
    objFile.WriteLine(str);
    objFile.Close();
}
 
WSH.Echo('Done')COPY

WHY

回复 7# lxh623

已修改。
有些网址打不开，继续即可。

WHY

回复 10# lxh623


    我不明白“保持网页代码”是个什么鬼，
我这里测试没有“乱码”，请举例说明你的要求。

另外，5楼脚本中第15、16、17行是替换 html 转义字符的。如果“乱码”指这些转义字符，删掉15、16、17行。

WHY

回复 13# lxh623


    这个网址我下载后用记事本打开没发现有乱码，Win10 v1803 系统。

WHY

回复 15# lxh623


    已修改。

WHY

回复 19# lxh623


    我这里没有问题。
第15行第5个字符是空白字符，不可能报错。第25行 send 报错，可能是网络或服务器自身的问题，你换个时间点再试。