本帖最后由 pcl_test 于 2016-8-21 16:45 编辑
- //&cls&cscript -nologo -e:jscript "%~f0"&pause&exit
- //就来读(9来读)小说下载
- //编码转换
- function BintoStr(strBin,strCharset){
- try{
- var stream = new ActiveXObject('ADODB.Stream')
- stream.Type = 1
- stream.Mode = 3
- stream.Open()
- stream.Write(strBin)
- stream.Position = 0
- stream.Type = 2
- stream.Charset = strCharset
- return stream.ReadText
- }
- catch(e){}
- }
-
- //获取网页内容
- function getHtmlTxt(url, strCharset){
- try{
- var http = new ActiveXObject('MSXML2.XMLHTTP')
- }
- catch(e){
- var http = new ActiveXObject('WinHttp.WinHttpRequest.5.1')
- }
- http.open('GET', url, false)
- http.send()
- return BintoStr(http.ResponseBody, strCharset);
- }
-
- //去除html标签
- function Del(str){return str.replace(/<[^<]*?>|^\s*|\s*$/g,'').replace(/ /g,' ')}
-
- var fso = new ActiveXObject('Scripting.FileSystemObject');
- var url = 'http://www.9laidu.com/23/23989/';
-
- //获取章节
- var m = getHtmlTxt(url, 'gb2312').match(/<h1\s?[^<]*>[\s\S]+?<\/h1>|<ol\s?[^<]*>[\s\S]+?<\/ol>/ig)
- if(m){
- var title = Del(m[0]);
- var chapter = {};
- var reg = new RegExp("<a href=\"([^\"]+?)\"[^<]*?>([\\s\\S]+?)<\\/a>","ig");
- var result;
- while((result = reg.exec(m[1])) != null){
- chapter[result[1].replace(/^.+\//,'')] = result[2];
- }
- }
- //获取正文
- if(chapter){
- for(var c in chapter){
- var text = getHtmlTxt(url+c, 'gb2312').match(/<div class="inner">([\s\S]+?)<\/div>/i)[1]
- if(text){
- var f = fso.OpenTextFile(title+'.txt', 8, true);
- f.Write('【'+chapter[c]+'】\r\n'+Del(text)+'\r\n--------------------------------------------\r\n\r\n');
- f.Close();
- WSH.echo(chapter[c]);
- }
- }
- }
复制代码
|