Форум: "Потрепаться";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];

Вниз

это глупо но нужно...   Найти похожие ветки 

← →
Михайлов Антон   (2003-04-16 20:28) [0]

как мне сосчитать программно строки в текстовом файле формата txt??

---

← →
Тих   (2003-04-16 20:43) [1]

Нет никакой ложки. Нет никаких строк. Есть символ 0x0A. Вот его и считай.

---

← →
Михайлов Антон   (2003-04-16 20:44) [2]

можно пример??

---

← →
Anatoly Podgoretsky   (2003-04-16 21:09) [3]

На моем сайте программа Project Analizer, маленько приложить напильник, если для одного файла

---

← →
Ihor Osov'yak   (2003-04-16 21:18) [4]

Да уж..





...
var fInp:text;
count:integer;
s:string;
begin
Assign(fInp,"some.txt");
Reset(fInp);
count := 0;
try
while not eof(fInp) do begin
ReadLn(fInp,s);
inc(count);
end;
finally
CloseFile(fInp);
end;

// в count - количество строчек. Если конечно не было ошибки IO

end;



---

← →
MsGuns   (2003-04-16 21:39) [5]

var
s: TStrings;
begin
s := TStrinList.Create;
s.LoadFromFile("MyFile.txt");
qrecInFile := s.Count;
s.Free;


:)))

---

← →
Ihor Osov'yak   (2003-04-16 22:23) [6]

2 MsGuns © (16.04.03 21:39)

Оно то так. Но обработайте своим методом файлик на несколько мегабайт. Можно и десятков... :))) и еще раз :)))

Хотя справедливости ради, когда файлы заведомо маленькие и мне к тому же лень, то я работаю примерно так, как вы предлагаете..

Да, и для постановки всех точек - см. Тих (16.04.03 20:43) +
asm + апищные ф-ции - будет немного быстрее. Да, и несколько дней назад здесь мастера рассматривали подобный вопрос в плане быстродействия.. Там обсуждался вариант с использованием файлов, мапируемых в память. Очень интересная идея, но я к сожалению потерял ветку, так что не знаю чем спор окончился ..

---

← →
Плохой человек   (2003-04-16 22:36) [7]

Обожаю! Заходишь в раздел "Потрепаться", смотришь - пустяковый вопрос в теме, а постов то.... завались!

---

← →
Ihor Osov'yak   (2003-04-17 00:38) [8]

2 Плохой человек (16.04.03 22:36)

Имхо, в "потрепаться" иногда инетресные вещи пробегают..

да, рискну предположить, что этот сайт во многом благодаря "потрепаться" успехом пользуется..

---

← →
MBo   (2003-04-17 06:37) [9]

http://delphibase.endimus.com/?action=viewfunc&topic=fileattr&id=10366

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c