[Ungdebatt]

Jag prövade med denna 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

[HenSod]

Jag är inte jätteduktig på VB, men jag tycker att det borde se ut såhär:

.Pattern = "[\n]"
   
Set objMatches = .Execute(strNewText)

iCount = 0

For Each objMatch In objMatches
 iCount = iCount + 1
 strNewText = .Replace(strNewText,"<br />"&iCount&". ")
Next

[Ungdebatt]

HenSod, det är exakt samma kod, jag har redan gett iCount ett värde (1), men det hjälper inte.

[Alex]

Detta kanske inte är så du vill lösa det, men lägg allt i en ordered list?
(

1. lista

)

Då får du ju radnummer

[Ungdebatt]

Det är helt sjukt vilken enkel lösning det var haha =) Tack.