正则表达式

kellven123

duquancai 发表于 2018-6-8 11:08
根据你提供的附件运行，如果没问题就行，至于说扩充后如何如何，那就另当别论！！！

请你再帮我看看,我扩充了一下代码...但是就不行了....麻烦你了..

还是A1单元格`我给你附件了

kellven123

duquancai 发表于 2018-6-8 11:08
根据你提供的附件运行，如果没问题就行，至于说扩充后如何如何，那就另当别论！！！

我在你的逻辑和正则不变的情况下重新写了一段，但是发现写出来的结果会有一些我不需要的东西在里面，
例如<td style="width: 100px;">等等。

请问一下这是什么原因呢？明明正则还是用你之前给我的。

代码如下：

1. Sub main1()
   
2. Dim reg As Object
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. s = Sheets("&#207;&#214;óDμ&#196;").[a2]
   
5. reg.Pattern = "<tr data-index=""\d+"">(.+?)<\/tr>"
   
6. reg.Global = True
   
7. Set List = reg.Execute(s)
   
8. ListCount = List.Count
   
9. For i = 0 To ListCount - 1
   
10.     μ×êyROW = Worksheets("&#196;&#191;μ&#196;").Range("A65536").End(xlUp).Row + 1
    
11.     Worksheets("&#196;&#191;μ&#196;").Range("A" & μ×êyROW) = i + 1
    
12.     reg.Pattern = "<td[^>]+>([^<]+)<\/td>"
    
13.     reg.Global = True
    
14.     Set List&#207;ê&#199;é = reg.Execute(List(i))
    
15.     List&#207;ê&#199;éCount = List&#207;ê&#199;é.Count
    
16.     For x = 0 To List&#207;ê&#199;éCount - 1
    
17.         Worksheets("&#196;&#191;μ&#196;").Cells(μ×êyROW, x + 2) = List&#207;ê&#199;é(x)
    
18.     Next
    
19. Next
    
20. End Sub
    

复制代码

duquancai

kellven123 发表于 2018-6-8 11:16
请你再帮我看看,我扩充了一下代码...但是就不行了....麻烦你了..

还是A1单元格`我给你附件了

1. Sub main()
   
2.     Dim js As Object, s$
   
3.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
4.     js.Language = "JavaScript": js.AddObject "rg", Sheets("目的").Range("a1")
   
5.     s = Sheets("现有的").[a1]: Sheets("目的").Cells.Clear
   
6.     s = Replace(Replace(s, vbLf, "\r"), "'", "\'")
   
7.     s = "j=0;r=/<tr data-index=""\d+"">(.+?)<\/tr>/g;c=/<td[^>]+>([^<]+)<\/td>/g;while(m=r.exec('" & s & "')){j++;i=1;while(n=c.exec(m[1])){rg(j,i++)=n[1]};};"
   
8.     js.eval (s)
   
9.     MsgBox "OK!"
   
10. End Sub

复制代码

zpy2

kellven123 发表于 2018-6-8 14:59
我在你的逻辑和正则不变的情况下重新写了一段，但是发现写出来的结果会有一些我不需要的东西在里面，
例 ...

For x = 0 To List&#207;ê&#199;éCount - 1
        Worksheets("&#196;&#191;μ&#196;").Cells(μ×êyROW, x + 2) = List&#207;ê&#199;é(x)
    Next
这句赋值 可能要用 reg对象的subMatches(0)
https://wk.baidu.com/view/7c33478669eae009591bec04?pcf=2
看一下这里的subMatches

kellven123

duquancai 发表于 2018-6-8 19:53
kellven123 发表于 2018-6-8 11:16
请你再帮我看看,我扩充了一下代码...但是就不行了....麻烦你了..

谢谢，我看你的代码是因为换行符的原因？

kellven123

zpy2 发表于 2018-6-9 05:33
For x = 0 To List&#207;ê&#199;éCount - 1
        Worksheets("&#196;&#191;μ&#196;").Cells(μ× ...

谢谢，我明白了，我用了submatcher就可以了。