Jag prövade med denna kod:
Kod:
.Pattern = "[\n]"
Set objMatches = .Execute(strNewText)
For Each objMatch In objMatches
iCount = iCount + 1
strNewText = .Replace(strNewText,"<br />"&iCount&". ")
Next
...och det fungerar att skriva en siffra på varje rad, men ett fel uppstod och det är att
iCount blir aldrig mer än
1. Det verkar som om jag inte lyckas räkna ut antalet rader eller så lyckas den bara räkna till en
\n.
Så resultatet blir:
--------------------------------------------------------------
1. Jag heter Jeppe och jag kan äta en apelsin på
1. fem sekunder. Jag kan även dricka fem liter mjölk
1. på mindre än en halv sekund. Vad kan du göra?
--------------------------------------------------------------
EDIT: Jag vet att om man i detta fall skriver objMatches.Count så får man antalet \n som den hittade, men jag vill ju skriva det rad för rad, dvs 1, 2, 3..osv