История изменений

Исправление bormant, 25.09.15 13:34 (текущая версия) :

А как объявлена CurrentLine? Если она без явного указания типа (то есть Variant), попробуйте сравнить с

Dim CurrentLine$
    ...
    Line Input #FileNo, CurrentLine$

Dim CurrentLine as String

Dim CurrentLine as String * 127

тут сообразно максимальной длине строки с разумным запасом. Будут ли подвижки?

Можно попробовать сэкономить ReDim-ы строкового массива:

n=100
i=0
ReDim MyRes(n) as String
...
i = i + 1
if i > n then
  n = n + 100
  ReDim Preserve MyRes(n) as String 
end if
MyRes(i) = ...

Исходная версия bormant, 25.09.15 13:28:

А как объявлена CurrentLine? Если она без явного указания типа (то есть Variant), попробуйте сравнить с

Dim CurrentLine$
    ...
    Line Input #FileNo, CurrentLine$

Dim CurrentLine as String

Dim CurrentLine as String * 127

тут сообразно максимальной длине строки с разумным запасом. Будут ли подвижки?