Works great!
Dim item
Dim arr1()
ReDim arr1(0)
For Each item In MyDoc
arr1(UBound(arr1)) = item
ReDim Preserve arr1(UBound(arr1) + 1)
Next
Time for 20000 rows: pretty much instantaneous
Dim KeywordsCount
KeywordsCount = MyDoc.linesCount
Dim arr2()
redim arr2(KeywordsCount)
Dim i
For i = 1 To KeywordsCount
MyDoc.caretY(i)
arr2(i-1) = MyDoc.lineText
Next
Time for the same 20000 rows: more than 2 minutes!
Great tip, thanks again Jan!
--
<http://forum.pspad.com/read.php?2,65099,65108>
PSPad freeware editor http://www.pspad.com
