Ik probeer een paar rijen van een tabel uit een html pagina te halen. De html pagina ziet er als volgt uit.
Zoals in de titel staat is men programmeertaal vba. Ik probeer telkens de rijen van de tabel in de exel te steken maar het lukt me maar niet een goede regex samen te stellen. Ik heb al hulp ingeroepen van verschillende vrienden maar niks lijkt te helpen. Nu vroeg ik me af of de regex functies van vba verschillend zijn op een of andere manier ?
Wat ik dus probeer terug te krijgen via een regex is
De code dat ik gebruik.
Heb google al geprobeerd maar gebruik mischien de foute zoektermen.
Alvast bedankt
HTML:
1
2
3
4
5
6
7
8
9
10
11
| <tr> <td> </td> <td><table cellspacing="1" rules="all" bordercolor="Black" border="1" id="dgEANInfo" style="color:Black;border-color:Black;border-style:Solid;width:560px;"> <tr style="color:White;background-color:#336633;"> <td>EAN</td><td>Straat</td><td>Huisnr</td><td>Verdiep</td><td>Appt</td><td>Postcode</td><td>Gemeente</td><td>Product</td><td>Meter Number</td> </tr><tr> <td>000000000000000000</td><td>straatnaam</td><td>018</td><td> </td><td> </td><td>8888</td><td>stadnaam</td><td>GAS</td><td>034012CA 95911593</td> </tr><tr> <td>000000000000000000</td><td>straatnaam</td><td>018</td><td> </td><td> </td><td>8888</td><td>stadnaam</td><td>ELE</td><td>161688IS 39669490</td> </tr> </table> |
Zoals in de titel staat is men programmeertaal vba. Ik probeer telkens de rijen van de tabel in de exel te steken maar het lukt me maar niet een goede regex samen te stellen. Ik heb al hulp ingeroepen van verschillende vrienden maar niks lijkt te helpen. Nu vroeg ik me af of de regex functies van vba verschillend zijn op een of andere manier ?
Wat ik dus probeer terug te krijgen via een regex is
code:
1
2
3
4
5
6
7
8
9
| rij 0 -> data 0 = 000000000000000000 -> data 1 = straatnaam -> data .. = .. rij 1 -> data 0 = 000000000000000000 -> data 1 = straatnaam -> data .. = .. rij .. |
De code dat ik gebruik.
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Dim RegEx As RegExp, RegMatch As MatchCollection Set RegEx = New RegExp RegEx.Pattern = "<td>([^<]*)</td>" RegEx.MultiLine = True RegEx.Global = True Dim MyStr As String MyStr = .Document.Body.innertext Set RegMatch = RegEx.Execute(MyStr) If RegMatch.Count > 0 Then MsgBox RegMatch(0) Else MsgBox "nope" End If |
Heb google al geprobeerd maar gebruik mischien de foute zoektermen.
Alvast bedankt
