replace og do while på tekststreng, gode forslag til metode.
Hej Eksperter,Jeg kan ikke rigtig finde en smart metode til følgende problem. Jeg har en tekststreng som indeholder en tabel. For hver <td> vil jeg tildele en unik id - men hvordan får jeg nemmest opdelt strengen så jeg løbende får tildelt nye værdier. Nedenstående eksempel virker naturligvis ikke da replace erstatter alle på en gang. Nogen forslag?
Public Function makeids(ByVal strtbl)
Dim intCount As Integer
Do While InStr(1, strtbl, "<td>", vbTextCompare) > 0
strtbl = Replace(strtbl, "<td>", "<td id=" & intCount & ">")
intCount = intCount + 1
Loop
makeids = strtbl
End Function