Lance,
in the source code I sent you, please change the append process from this:
For RowNum = 1 To RowTotal sLine = ""
For ColNum = 1 To ColTotal
sLine += MyMatrix(RowNum, ColNum) & IIf$(ColNum < ColTotal, $SPC, $CRLF)
Next
FILE_Append(FileWriteName, sLine)
Next
to this:
Dim sLine(ColTotal) As String
For RowNum = 1 To RowTotal
For ColNum = 1 To ColTotal
sLine(ColNum) = MyMatrix(RowNum, ColNum) '& IIf$(ColNum < ColTotal, $SPC, $CRLF)
Next
FILE_Append(FileWriteName, Join$(sLine, $SPC) + $CRLF)
Next
It will run 50% faster with your matrix of 5401x5401=29170801 cells
I'm working on improving this part, that is the slowest part, even more
Ciao
Eros
Bookmarks