Количество строк в файле?

[Александр80]

Подскажите, как определить количество строк в файле?
У меня есть текстовой файл (большой)… и его нужно загрузить в List. Так как загрузка занимает определенное время, хотелось бы отслеживать степень загрузки в List c визуально с помощью ProgressBar. А вот, как это сделать я не знаю… Мне кажется, что надо узнать количество строк в файле и потом полученную информацию использовать для установки значения ProgressBar1.Max.

Может есть другой способ? Подскажите пожалуйста…

[KDima]

Скорость загрузги из файла не слишком зависит от количества строк.... ну может слишком
Я думаю лучше устанавливать относительно размера файла...

[Александр80]

Не согласен... У меня 162 789 строк (орфографический словарь) И загрузка продолжается достаточно долго...

[Александр80]

Я думаю лучше устанавливать относительно размера файла...

Идея хорошая... я тоже о ней подумал...

[KDima]

162 789 я подозреваю, что 162 789 пустых строк будут грузится быстрее

[Александр80]

На самом деле, я просто ради интереса решил в лист загрузить такое количество строк (это безумие)… Если честно, думал никогда этого процесса до конца не дождусь… А потом стало интересно, как можно визуально этот процесс наблюдать …? Вот и мучаюсь с ProgressBar…

[_Мика_]

Ну вообще, если я не ошибаюсь, List поддерживает 32 тыс с копейками строк!

[Александр80]

_Мика_ Ты не ошибаешься и это моя вторая проблема....

Блин старенное событие происходит при загрузки в LIST1
List1.ListCount доходит до 32 000 (приблизительно), а затем обратно уменьшается на одо значение и до 0 после до -32 000 потом опять до 0 и так далее ... Я грузил файл 162 000 строк.

Private Sub Command1_Click()
Dim t As String
Dim txt As String

Open "c:\2.txt" For Input As #1

Do Until EOF(1)
Line Input #1, t
txt = t
List1.AddItem txt

DoEvents
Text2.Text = List1.ListCount
Loop

Close #1

End Sub

[_Мика_]

А может так:
1. грузим весь файл в string
2. ищим там все vbCrLf
3. подссчитываем их и определяем кол-во строк

[Александр80]

А пример можно...? Пожалуйста ...

[Чудик]

А может проще при создании этого текстового файла сразу закладывать в его шапку количество строк?

[Александр80]

А если количество строк не известно...? Проблема в этом...?

[_Мика_]

dim s as string
dim txt as string
dim st() as string

open "C:\my.txt" for input as #1
do until eof(1)
line input #1,s
txt=txt+s+vbcrlf
loop
close #1

st=split(txt,vbcrlf)
msgbox ubound(st)


ну поидеи так, код не пробовал, ща времени нету!

[Александр80]

Спасибо Мика!

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

И еще один вопрос, я делаю словарь и идея такая… Есть элемент LIST1 и TEXT1.
Я ввожу в текст слово и моя программа ищет его в базе (mdb) и загружает в LIST1 список похожих слов (придется писать функцию двоичного поиска. Наверное…).
Подскажите это возможно? Я с базами данных мало знаком…
Если что-то не понятно пишите постараюсь разъяснить …

[Sebas]

Seek`ом поискать нада CHR(13)

[Qubicz]

В добавление к _Мика_
Только как бинарный будет быстрее вроде

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

Dim txt As String
Dim st() As String
Open "C:\my.txt" For Binary As #1
txt = Input(LOF(1), #1)
Close #1
st = Split(txt, vbCrLf)
MsgBox UBound(st)

[Eugenio]

Seek`ом поискать нада CHR(13)

Каким еще Seek'ом? Есть Seek-statement: это команда установить позицию чтения/записи в открытом файле. Есть Seek-функция: возвращает следующую позицию чтения/записи в открытом файле.
Символов они не ищут . Поясни.

[hCORe]

Это у него острый приступ дотнетизма

Еще 1 вариант:

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

Dim lFile As Long
lFile = FreeFile
Open "filename" For Input As #lFile
Do Until EOF(lFile)
    DoEvents
    lLines = lLines + 1
Loop
Close #lFile
MsgBox Trim$(Str(lLines))

А для БД надо использовать ADO (или DAO, если уж очень хочется.) И грамотно составлять SQL запрос к базе, наподобие этого:

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

SELECT * FROM [MyTable]
WHERE MyField LIKE '*your expression*'

[Eugenio]

Это у него острый приступ дотнетизма

Еще 1 вариант:

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

Dim lFile As Long
lFile = FreeFile
Open "filename" For Input As #lFile
Do Until EOF(lFile)
    DoEvents
    lLines = lLines + 1
Loop


Так ты получишь не бесконечный ли цикл - ведь позиция-то не сдвигается?

[Александр80]

Всем спасибо