批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理获取网页源码并将其赋值为批处理中的变量？ [打印本页]

作者: tshcc 时间: 2014-11-29 00:56 标题: 批处理获取网页源码并将其赋值为批处理中的变量？

RT，已知一网页不定期公布校验码，http://aaa.com/123/

该网页所有的源码只有一行，全部为所需的文本 XX123XX 文本为半角的英文、数字、字符组合。

计划用批处理完成操作：1、读取http://aaa.com/123/中的源码并在该批处理中赋值为一字符串变量；2、用该变量进行其他批处理操作。

现在写了第二步，请问大家这第一步该怎么实现呢？度娘了半天也没有头绪，烦死了。小白一只，谢谢大家啦！

作者: tmplinshi 时间: 2014-11-29 11:44

@echo off
curl "http://aaa.com/123/" | conset /p vcode=
echo "%vcode%"
pause
复制代码

curl.exe 和 conset.exe 请搜索本论坛或百度。

作者: tshcc 时间: 2014-11-30 12:04

回复 2# tmplinshi

谢谢版版，我是想通过纯脚本而不借助第三方来实现的。毕竟批处理是给小白在别的计算机上运行，难以安装curl等~

作者: CrLf 时间: 2014-11-30 13:54

举个栗子：

1>1/* :
@echo off
for /f "delims=" %%a in ('cscript -nologo -e:jscript "%~0"') do set "response=%%a"
set response
pause&exit /b
*/

with(new ActiveXObject('Msxml2.XMLHTTP')){
	Open('GET','http://bbs.bathome.net/thread-33139-1-1.html',0)
	setRequestHeader('CONTENT-TYPE','text/xml;charset=gb2312;')
	Send()
	WScript.Echo(readBy(responseBody,'gb2312'))
}

function readBy(bin,charset){
	var steam = new ActiveXObject("ADODB.Stream")
	steam.Type = 1
	steam.Mode = 3
	steam.Open()
	steam.Write(bin)
	steam.Position = 0
	steam.Type = 2
	steam.Charset = charset
	return steam.ReadText
}
复制代码

作者: zdj1974 时间: 2014-12-4 20:52

回复 4# CrLf

复制保存了，准备学习研究一下。
我想做一个脚本实现自动打开网页，输入查询字，回车，然后把查询结果弄下来，识别匹配出想要的内容存档！对我来说难度太大，下在学习。如果老师有空，不知能不能指点一下？

欢迎光临批处理之家 (http://www.bathome.net/)