[其他] 批处理 提取网页代码某段内容

@echo off
setlocal enabledelayedexpansion
set file=1
for /f "tokens=4 delims=()" %%i in (a.txt) do (
    set num=%%i
    set num=!num: =!
    >!file!.txt echo,!num!
    set /a file+=1
)
复制代码

<button
	style='background-color:red;color:white;width:100%'
	onclick='get_fnServerDuelRoleFight("生成的文件.txt")'
>
我准备好了，点击获取 fnServerDuelRoleFight 列表
</button>
<br />

<script>
function get_fnServerDuelRoleFight(filePath){
	var fso = new ActiveXObject('Scripting.FileSystemObject')
	var ts = fso.CreateTextFile(filePath,true)

	var innerHTML = document.getElementById('fnServerDuelRoleFight')
				.contentWindow.document.body.innerHTML
	var arr = []

	var re = /fnServerDuelRoleFight\(\s+(\d+)\s+\)/g
	var exec

	while(exec = re.exec(innerHTML)){
		arr.push(exec[1])
	}

	ts.WriteLine(arr.join('\r\n'))

	alert('Bingo!')
	window.close()
}
</script>

<iframe
	id='fnServerDuelRoleFight'
	style='width:100%;height:100%'
	src='http://www.bathome.net/thread-33993-1-1.html'
/>
复制代码