返回列表 发帖
522235677

Rank: 6Rank: 6

帖子
695 
积分
1692 
技术
61  
捐助
20  
注册时间
2011-3-31 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2013-9-1 21:20 | 只看该作者

[问题求助] [已解决]vbs怎么读取网页指定内容

本帖最后由 522235677 于 2013-9-29 09:18 编辑

最好是不要生成临时文件。
比如读取http://www.ip138.com/ips138.asp?ip=www.baidu.com&action=2
绿色的文字
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

522235677

Rank: 6Rank: 6

帖子
695 
积分
1692 
技术
61  
捐助
20  
注册时间
2011-3-31 
5楼
发表于 2013-9-29 09:17 | 只看该作者
回复 4# wcymiss


    333333333333333333333qqqqqqqqqqqqqqqqqqqqqqqqqqqq

TOP

wcymiss

Rank: 1

帖子
3 
积分
17 
技术
1  
捐助
0  
注册时间
2013-9-27 
4楼
发表于 2013-9-28 23:11 | 只看该作者
strText = Replace(strText,"</li><li>",vbCr)
改成
strText = Replace(strText,"</li><li>",vbtab)
1

评分人数

TOP

522235677

Rank: 6Rank: 6

帖子
695 
积分
1692 
技术
61  
捐助
20  
注册时间
2011-3-31 
3楼
发表于 2013-9-27 16:07 | 只看该作者
本帖最后由 522235677 于 2013-9-27 16:17 编辑

回复 2# wcymiss


    感谢，但是这个我想把这个数据显示在CMD中。那个MsgBox strText改为WScript.echo strText
for /f %%i in ('"cscript //nologo 1.vbs"') do echo %%iCOPY
但是只能显示第一行，不能显示第二行
本站主数据：浙江省杭州市
Press any key to continue . . .COPY

TOP

wcymiss

Rank: 1

帖子
3 
积分
17 
技术
1  
捐助
0  
注册时间
2013-9-27 
2楼
发表于 2013-9-27 14:56 | 只看该作者 
Dim strText
with CreateObject("MSXml2.xmlhttp")
	.Open "GET","http://www.ip138.com/ips138.asp?ip=www.baidu.com&action=2",false
	.Send
	strText = ByteToStr(.Responsebody)
end with
strText = Split(Split(strText,"<td align=""center""><ul class=""ul1""><li>")(1),"</li></ul></td>")(0)
strText = Replace(strText,"</li><li>",vbCr)
MsgBox strText
WScript.Quit
 
Function ByteToStr(ByVal arrByte)
    With CreateObject("Adodb.Stream")
        .Type = 1 'adTypeBinary
        .Open
        .Write arrByte
        .Position = 0
        .Type = 2 'adTypeText
        .Charset = "GB2312"
        ByteToStr = .Readtext
        .Close
    End With
End FunctionCOPY

TOP

返回列表