Excel macro voor strippen van java/html script

[Dolfke]

Hoi allemaal ,

Ik zou graag via een macro tot bepaalde data willen komen van een website.

http:\\releaselister.emubase.de\en\nds\ds/jpgs/0002i.gif alt=0002>&nbsp;<b>Need for Speed - Underground 2</b><br><br><b>Releasenummer:</b>&nbsp;#0002<br><b>Genre:</b>&nbsp;Racing<br><b>Save:</b>&nbsp;EEPROM - 64Kbit<br><b>ROM Size:</b>&nbsp;256MBit / 32MByte<br><b>Publisher:</b>&nbsp;Electronic Arts<br><b>Country:</b>&nbsp;USA<br><b>Language:</b>&nbsp;E<br><br><b>Release Group:</b>&nbsp;Trashman<br><b>Dump Date:</b>&nbsp;16.06.2005<br><b>Filename:</b>&nbsp;trm-nfs2.zip<br><br><b>Int. ROM Name:</b>&nbsp;NFSU2<br><b>ROM Serial:</b>&nbsp;NTR-AUGE-USA<br><b>CRC32:</b>&nbsp;C37AB273<br></span>'

Hoe krijg ik bovenstaande data omgezet naar

Need for Speed - Underground 2
Releasenummer:#0002
Genre: Racing
Save:EEPROM - 64Kbit
ROM Size:256MBit / 32MByte
Publisher:Electronic Arts
Country:USA
Language:E
Release Group:Trashman
Dump Date:16.06.2005
Filename:trm-nfs2.zip
Int. ROM Name:NFSU2
ROM Serial:NTR-AUGE-USA
CRC32:C37AB273

Bedankt.

mvg Dolfke.

 

[WHER]

Dolfke,

Probeer deze eens. Als iemand deze code nog wat kan stroomlijnen, graag..

 

[Warme bakkertje]

Met je data in A1, zet onderstaande onder de functie van Wher

Sub test()
Dim i As Integer
    For i = 1 To UBound(Split(StripTags([A1]), "|"))
        Cells(i + 1, 1) = Split(StripTags([A1]), "|")(i)
    Next
End Sub

wordt vanaf A2 naar beneden de string gescheiden

 

[WHER]

De suggestie van Rudi ingebouwd in het bestand van post#2, plus een daarop geïnspireerde extra aanpak.

 

[Dolfke]

Heren ,

Knap gevonden.
Hiermee ga ik me zeker mee kunnen behelpen.

Bedankt


Groetjes
Dolfke