Question

请问使用bat或者vbs或js可以把网页指定内容导出txt吗？

请问使用bat或者vbs或js可以把网页指定内容导出txt吗？获取一个网页的指定关键字内容吗？比如我想获取 服务标签和快速服务代码这两段信息

Answer 1

On Error Resume Next
Set post=CreateObject("Msxml2.XMLHTTP")
post.Open "GET","https://www.dell.com/support/home/cn/zh/cndhs1/product-support/servicetag/8cwtb3x/diagnose"
post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
wscript.sleep 3000 
aGet.Write(post.responseBody)
aGet.SaveToFile "temp.txt",2
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile( "temp.txt" , 1 ) 
str_all = ts.ReadAll
ts.close
MyPos_1 = Instr( str_all , "服务标签： ")
MyPos_1 = Mid( str_all , (MyPos_1 + 94) , 7)
MyPos_2 = Instr( str_all , "快速服务代码： ")
MyPos_2 = Mid( str_all , (MyPos_2 + 57) , 11)
str_ans =  "服务标签："&vbcrlf&MyPos_1 &vbcrlf&"快速服务代码："&vbcrlf&MyPos_2 
Set tf = fso.CreateTextFile("temp.txt", True)
tf.Write ( str_ans ) 
tf.Close
msgbox str_ans


另存为vbs文件运行即可得到一个temp的文本文件，第三行网址可以更改