提取存储

laoye5403

用VBA
将右边J1单元格中的日期、最高气温、最低气温、天气提取出来存入arr数组，并写入A到D列。温度可能有负数。
谢谢！

小凡、、、

大概这样吧

laoye5403

小凡、、、 发表于 2024-8-7 21:32
大概这样吧

谢谢！本来发VBA板块，发到这里来了，竟然也有高手！

cnmlgb9998

公式可以解决

quqiyuan

正则提取一下咯，供参考。。。

ww87725244

365新函数
=WRAPROWS(REGEXEXTRACT(J1,"(?<=ymd:'|tianqi:').+?(?=')|\d+(?=℃)",1),4)

汉唐

试着学习一下代码

ykcbf1100

正则参与一下。。。

ykcbf1100

正则提取天气预报信息

1. Sub ykcbf()    '//2024.8.8  正则提取天气预报信息
   
2.     Set reg = CreateObject("VBScript.Regexp")
   
3.     With reg
   
4.         .Global = True
   
5.         .IgnoreCase = True
   
6.         .Pattern = "ymd:'(.*?)',bWendu:'(.*?)',yWendu:'(.*?)',tianqi:'(.*?)'"
   
7.     End With
   
8.     st = [j1].Value
   
9.     ReDim brr(1 To 10000, 1 To 4)
   
10.     Set mh = reg.Execute(st)
    
11.     For Each k In mh
    
12.         m = m + 1
    
13.         For x = 1 To 4
    
14.             brr(m, x) = k.submatches(x - 1)
    
15.         Next
    
16.     Next
    
17.     [a2:d10000] = ""
    
18.     [a2].Resize(m, 4) = brr
    
19.     MsgBox "OK！"
    
20. End Sub
    

复制代码

laoye5403

ykcbf1100 发表于 2024-8-8 09:13
正则提取天气预报信息

能不能帮忙把2345天气给加进去？
    HtmlDate =202407
    cityID=90756
    Dim xmlHttp As Object '创建对象
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", "https://tianqi.2345.com/t/wea_history/js/" & HtmlDate & "/" & cityID & "_" & HtmlDate & ".js", False '发送请求
    xmlHttp.send
    Do While xmlHttp.ReadyState <> 4 '等待响应
    DoEvents
    Loop