Подскажите как сделать быстрее!

[SerJay]

Ребята у меня такая проблема:
У меня загружаются данные из 3 файлов .txt
в 3 ячейки msflexgrid.
Всего ROW 22000

Загружается Таким образом:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ms = FreeFile
Open "c:\1.txt" For Input As #ms
V = 0


Do Until EOF(ms)
Line Input #ms, no
V = V + 1
alltxt = alltxt + no + vbCrLf
rez1.Row = V
rez1.Col = 0
rez1.Text = no
Loop
Close #ms
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Open "c:\2.txt" For Input As #ms
V = 0


Do Until EOF(ms)
Line Input #ms, no
V = V + 1
alltxt = alltxt + no + vbCrLf
rez1.Row = V
rez1.Col = 1
rez1.Text = no
Loop
Close #ms
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Open "c:\3.txt" For Input As #ms
V = 0


Do Until EOF(ms)
Line Input #ms, no
V = V + 1
alltxt = alltxt + no + vbCrLf
rez1.Row = V
rez1.Col = 5
rez1.Text = no
Loop
Close #ms
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
И Грузится всё это дело на P3 - 340!!! секунд
И это только 10000 строк.
Я понимаю это изврат из .txt грузить такой обьём,
но я только начинающий и ещё не изучил Базы данных и
SQL запросы.Да и проект уже готов.
Можно ли сделать чтоб загружалось быстрее.
Благодарен за любые мысли.

[GSerg]

Код: Выделить всё

dim f as integer, alltext as string
dim i as long, j as long, p as long, pp as long

for i=1 to 3
  f=freefile
  open "c:\" &cstr(i) & ".txt" for input access read as #f
  pp=len(alltext)+1
  alltext=alltext & input$(lof(f), f)
  close #f
  j=0
  do
    p=instr(pp,alltext,vbnewline)
    j=j+1
    rez1.row=j
    rez1.col=choose(i,0,1,5)
    if p=0 then
      rez1.text=mid$(alltext,pp)
      exit do
    else
      rez1.text=mid$(alltext,pp,p-pp)
      pp=p+len(vbnewline)
    end if
  loop
next

Не проверял

[SerJay]

GSerg я сейчас на работе,вечером проверю,но
заранее спасиб.

[SerJay]

GSerg сейчас попробывал-
твой пример грузит за 70 секунд.Уже что-то.Лучше чем 340.Сенкс.
Вот думаю прогресс бар вставить для наглядности,
чтоб не подумали что комп висит

[Andrey Fedorov]

Вот думаю прогресс бар вставить для наглядности,
чтоб не подумали что комп висит

Еще лучше - не использовать для этой цели нагружаемых контролов.
Взять нормальный Grid который способен выводить из массива или Recordset-a. Тогда все будет работать практически моментально, тем более с таким мизерным файликом.

[Arcanoid]

Мне кажется, основные тормоза сидят в VB-шных функциях чтения из файлов. Наверно функции Win32 будут читать быстрее... а то и намного быстее!..

[Andrey Fedorov]

Мне кажется, основные тормоза сидят в VB-шных функциях чтения из файлов. Наверно функции Win32 будут читать быстрее... а то и намного быстее!..

Миф. Основные тормоза как всегда в шаловливых ручках юзера.

[MeMBus]

Стоит ли у msflexgrid перед загрузкой visible=false? Если нет, то жел. поставить в начале visible=false, в конце загрузки visible=true. Если скорость все же ниже чем хотелось бы, тогда попробуй закомментировать строки, где у тебя добавляются данные в данный контрол, засеки время... Дальше все зависит от времени отработки в первом и втором случае... Гуру прошу меня не закидывать помидорами за ответ, я бы начал решать проблему с этого...

[Andrey Fedorov]

Стоит ли у msflexgrid перед загрузкой visible=false? Если нет, то жел. поставить в начале visible=false, в конце загрузки visible=true.

Может помочь, но не сильно ибо данный Grid по своей природе нагружаемый, на что уходит время.

Я бы рекомендовал поискать Grid который может нормально работать с массивами. Я пользую Janus GridEx, но есть и другие, в том числе и бесплатные.

Кроме нагружаемого Grid-a тормоз в твоем случае дает строчка

Код: Выделить всё

alltxt = alltxt + no + vbCrLf

Ну нельзя так добавлять в цикле - об этом уже неоднократно писалось.

Ну а примерчик как считать в массив приложен (у меня 3 файла по 50000 строк читаются ~1.3 секунды). Остальное уже зависит от Grid-a.

[SerJay]

Andrey Fedorov я скачал Janus GridEX,но разобраться не могу.
Не могли бы вы дать исходник загрузки .txt файлов.
Буду Огромно благодарен!

[Andrey Fedorov]

Andrey Fedorov я скачал Janus GridEX,но разобраться не могу.
Не могли бы вы дать исходник загрузки .txt файлов.
Буду Огромно благодарен!

Да элементарно. Держи пример.

[SerJay]

Andrey Fedorov огромное спасибо за пример!
И последние 2 вопроса: как мне сделать чтоб таблица
загружалась только при нажатии кнопки, а не сразу(я скопировал
всё из form_Load в Command1_Click но вылезла ошибка)?
И второй вопрос:Я установил Janus Grid при установки ввёл
серийный номер- я могу теперь использовать в своих проектах
файл GRIDEX20.OCX не будел ли он требовать регистрации
и т.п. на других машинах.
Прошу прощенья за такие ламерские вопросы,я недавно начал
изучать VB.

[Andrey Fedorov]

И последние 2 вопроса: как мне сделать чтоб таблица
загружалась только при нажатии кнопки, а не сразу(я скопировал
всё из form_Load в Command1_Click но вылезла ошибка)?

Ну ты уж читай что за ошибка и от того танцуй.
Пример с кнопкой Fill приложен.

И второй вопрос:Я установил Janus Grid при установки ввёл серийный номер- я могу теперь использовать в своих проектах
файл GRIDEX20.OCX не будел ли он требовать регистрации
и т.п. на других машинах.

Dll-как должна быть зарегистрирована как и все ActiveX компоненты.
Т.е все как обычно. Лицензионный компонент (для которого вводится серийник) должен быть только на твоей машине...

Кстати, если в программе используется Help то в дистрибутив юзерам лучше включать ocx из файла C:\Program Files\Janus Systems Components\Janus GridEX 2000\OCXs Files\Cab files\GridEX20.CAB, иначе он не будет правильно реагировать на F1.

[SerJay]

Андрей я не понял, допустим я хочу распространять свою прогу,
какой файл я должен включать в дистрибутив?
GRIDEX20.OCX этого файла будет достаточно?
Всмысле то что я ввёл серийник при установки Janus
этого достаточно чтобы файл GRIDEX20.OCX стал свободно
распростроняемым?

[Andrey Fedorov]

Андрей я не понял, допустим я хочу распространять свою прогу,
какой файл я должен включать в дистрибутив?
GRIDEX20.OCX этого файла будет достаточно?

Да.

Всмысле то что я ввёл серийник при установки Janus
этого достаточно чтобы файл GRIDEX20.OCX стал свободно
распростроняемым?

У практически любого контрола серийник влияет только на его поведение в среде разработки (на твоей машине).

[SerJay]

Значит я не могу этот файл GRIDEX20.OCX включать в свой дистрибутив и распространять?

[Andrey Fedorov]

Значит я не могу этот файл GRIDEX20.OCX включать в свой дистрибутив и распространять?

Да можешь, можешь, если не учитывать лицензионное соглашение.

[SerJay]

Успокоил!!!
Всем большое спасибо за участие,
Отдельное спасибо Андрею

[HiMik2003]

а ващета, больше 100 строк грузить юзеру в глаза - помоему плохой тон в программировании. Ну что он(юзверь) с этим количеством строк будет делать!!Я идиот! Убейте меня, кто-нибудь!

[alibek]

а ващета, больше 100 строк грузить юзеру в глаза - помоему плохой тон в программировании. Ну что он(юзверь) с этим количеством строк будет делать!!Я идиот! Убейте меня, кто-нибудь!

Иногда так бывает нужно.
Excel грузит сразу все строки файла.

[Andrey Fedorov]

а ващета, больше 100 строк грузить юзеру в глаза - помоему плохой тон в программировании. Ну что он(юзверь) с этим количеством строк будет делать!!Я идиот! Убейте меня, кто-нибудь!

Прокрутит и найдет нужный. Достаточно удобно когда кол-во строк тысяч так до 5..10 и имеется возможность сортировки кликом на заголовок столбца. Но запросы возвращающие большое кол-во строк подгружают сетку, так что это надо учитывать. В общем, нужно выбирать золотую середину и по возможности ограничивать пользователя иногда заставляя его перед выдачей данных установить фильтр (например выбрать раздел справочника).

[kif]

Можно было бы еще в MSFlexGrid вместо свойства text, для которого нужно менять положение курсора, использовать свойство textmatrix(row,col)="My text"

Правда не знаю, на сколько быстрее будет работать код при таком количестве строк.

[SerJay]

Andrey Fedorov снова к вам вопрос :
Не смог я разобраться с вашим кодом <TestS>
Не могли вы бы помочь надо чтоб при загрузке Grid показывался,
При нажатии на кнопку-1 грузились данные из .txt
(создавать их не надо),а при нажатии на кнопка-2 Grid очищался.
Заранее благодарен

[Andrey Fedorov]

Andrey Fedorov снова к вам вопрос :
Не смог я разобраться с вашим кодом <TestS>
Не могли вы бы помочь надо чтоб при загрузке Grid показывался,
При нажатии на кнопку-1 грузились данные из .txt

Они там и так грузятся при нажатии на кнопку.

а при нажатии на кнопка-2 Grid очищался.

Создай соответствующую кнопку и вставь в нее следующий код:

Код: Выделить всё

Grid.ItemCount = 0

[SerJay]

Андрей нет он грузится сразу.У вас Там только одна кнопка Close

[Andrey Fedorov]

Андрей нет он грузится сразу.У вас Там только одна кнопка Close

Ну держи еще раз.

[SerJay]

Андрей Спасибо ещё раз!