正则提取的问题

阿煮

提取每个单元格src="xxx"中间xxx这段。然后一行一行排列，效果D列。WPS正则表达式测试可以。VBA测试报错。请大神指点~看了代码还是没找到原因。

fxl447098457

你这网页上的玩意交给htmfile处理不更方便么?

阿煮

fxl447098457 发表于 2024-5-12 19:48
你这网页上的玩意交给htmfile处理不更方便么?

和htmlfile无关 我就是纠结 用的课程一样的代码 为什么报错 想知道如何修改

LIUZHU

仔细观察待匹配字符串和匹配结果，其实匹配的标识还是挺明显的

LIUZHU

JSA代码，用的正则表达式

1. function 提取(){
   
2.         let arr=Range("a2:a3").Value2;
   
3.         let res=arr.reduce((res,[x])=>{
   
4.                 return (x.match(/(?<=src=").+?(?=" )/g).forEach(y=>res.push([y])),res);
   
5.         },[]);
   
6.         Range("d2").Resize(res.length,1).Value2=res;
   
7. }

复制代码

LIUZHU

该附件需要WPS软件打开测试

cnmlgb9998

因为 VBA 不支持 ?<=  ！！！！！！！
WPS中的正则函数 是内置的函数，他可以支持完整的 零宽断言，但VBA 不支持！！！

阿煮

LIUZHU 发表于 2024-5-12 21:45
该附件需要WPS软件打开测试

Option Explicit
Sub 测试()
    Dim myReg As Object
    Set myReg = CreateObject("vbscript.regexp")
    Dim mm As Object, m As Object
   
    Dim ar(), i&, r&
    ar = Range("A3:A9211").Value

    With myReg
        .Pattern = "src=""(.+?)"""
        .Global = True
    End With
   
    r = 1
    For i = 1 To UBound(ar)
        Set mm = myReg.Execute(ar(i, 1))
        For Each m In mm
            r = r + 1
            Cells(r, 3).Value = m.submatches(0)
        Next m
    Next i
End Sub



是的 我改了下表达式 测试可以了