以下是引用sam_jiang在2025-12-10 16:06:12的发言:
这样就可以了吗?
这样就可以了吗?
简单示例,能运行吗?
程序代码:
** 测试用 JS 代码,参考 http://www./js/zepto.js 修改。
** 模拟写 JS 文件,实际应用通常先写好 JS 文件。
TEXT TO jsCode TEXTMERGE NOSHOW PRETEXT 15
<script>
var content = document.getElementById("ad").innerText;
eval(content);
function _ii_rr(content) {
content = window.atob(content);
var arrays = new Array();
arrays = content.split(',');
var $chapter = document.getElementById("chapter").innerHTML;
$chapter = $chapter.replace(new RegExp(/\[.*?\]/), '');
var datas = [];
datas = $chapter.split('<br><br>');
var $html = '';
var el = arrays[0];
var len = datas.length;
for (var i = 1; i <= len; i++) {
$html += datas[arrays[i] - el] + '<br/><br/>';
}
document.getElementById("ad").innerHTML = $html;
}
</script>
ENDTEXT
jsFile = "C:\_temp\jscode.js"
STRTOFILE(jsCode, jsFile)
** 模拟写 JS 文件结束
程序代码:
** 爬代码
cUrl = "http://www./6780946/3664234966.html"
http = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
http.open("GET", cUrl, 0)
http.send()
IF http.status != 200
RETURN
ENDIF
jsFile = "C:\_temp\jscode.js"
dom = CREATEOBJECT("htmlfile")
dom.write(STRTRAN(http.ResponseText, "script", "soript"))
dom.writeln(FILETOSTR(jsFile))
outFile = "C:\_temp\tmp.txt"
STRTOFILE(dom.getElementById("ad").innerText, outFile)
MODIFY FILE (outFile)
CLEAR ALL
RETURN
[此贴子已经被作者于2025-12-10 16:20编辑过]