jsa自定义函数获取网页数据

hailang2

代码如下：

1. function Workbook_Open(){
   
2.         Application.MacroOptions("JSAWEBSERVICE","从Internet或Intranet上的Web服务返回数据。",undefined,undefined,undefined,undefined,14,undefined,undefined,undefined,["要调用的Web服务的URL","设置请求头"])
   
3.         Application.MacroOptions("JSAFILTERXML","从XML内容返回数组、位置、值。",undefined,undefined,undefined,undefined,14,undefined,undefined,undefined,[
   
4.                 "有效XML格式的字符串。",
   
5.                 "返回类型。\n\n1：返回数组；\n2：返回所需值在数组中的位置，需参数searchvalue_index_qms；\n3：返回所需值，需参数searchvalue_index_qms；\n4：返回包含所需值数组，需参数searchvalue_index_qms、hms；\n5：返回所需值，需参数searchvalue_index_qms、hms、index。",
   
6.                 "所需值、位置、前面是。\n\nreturntypeof为2，为所需值；\nreturntypeof为3，为位置；\nreturntypeof为4，为前面是。",
   
7.                 "后面是。",
   
8.                 "位置。"
   
9.         ])
   
10. }
    
11. 
    
12. function JSAWEBSERVICE(url,referer){
    
13.         var obj = new XMLHttpRequest()
    
14.         obj.open("GET",url,false)
    
15.         obj.setRequestHeader("Referer",referer)
    
16.         obj.send()
    
17.         return obj.responseText
    
18. }
    
19. 
    
20. function JSAFILTERXML(xml,returntypeof,searchvalue_index_qms,hms,index){
    
21.         var arry = xml.split(/<[^<>]+>/g)
    
22.        
    
23.         if(returntypeof == 1){return arry} //返回数组。
    
24.        
    
25.         if(returntypeof == 2){return [...arry.entries()].filter(v=>v[1].includes(searchvalue_index_qms))} //返回所需值在数组中的位置，需参数searchvalue_index_qms。
    
26.         if(returntypeof == 3){return arry[searchvalue_index_qms]} //返回所需值，需参数searchvalue_index_qms。
    
27.        
    
28.         if(returntypeof == 4){ //返回包含所需值数组，需参数searchvalue_index_qms、hms。
    
29.                 var pphb = []
    
30.                 arry.forEach(v=>{
    
31.                         var reg = RegExp("(?<=" + searchvalue_index_qms + ")" + ".*?" + "(?=" + hms + ")","gs")
    
32.                         var ppsz = v.match(reg)
    
33.                         if(ppsz != null){pphb = pphb.concat(ppsz)}
    
34.                 })
    
35.                 return [...pphb.entries()]
    
36.         }
    
37.         if(returntypeof == 5){ //返回所需值，需参数searchvalue_index_qms、hms、index。
    
38.                 var pphb = []
    
39.                 arry.forEach(v=>{
    
40.                         var reg = RegExp("(?<=" + searchvalue_index_qms + ")" + ".*?" + "(?=" + hms + ")","gs")
    
41.                         var ppsz = v.match(reg)
    
42.                         if(ppsz != null){pphb = pphb.concat(ppsz)}
    
43.                 })
    
44.                 return pphb[index]
    
45.         }
    
46. }

复制代码

hailang2

咔咔乱坠

学习了！！

静听溪流

感谢分享  点赞支持

LIUZHU

用“fetch”能否替换掉“XMLHttpRequest”？

wj710000

感谢分享&#160;，能否多发几个网抓好实例！

中华美德

请老师解答一下这个贴:https://club.excelhome.net/threa ... tml?_dsign=a73b8b4c

一江春水1688

中华美德 发表于 2024-2-29 07:53
请老师解答一下这个贴:https://club.excelhome.net/thread-1685192-1-1.html?_dsign=a73b8b4c

我看看，试解一下

中华美德

一江春水1688 发表于 2024-3-2 23:01
我看看，试解一下

感谢老师的解答！很优秀的作品

金牌1

老师能否上传个附件，让大家好好学习学习。