Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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
11-12683
zetta
2002-07-31 11:13
2003.05.05
modal dialogs


14-12905
REA
2003-04-17 15:31
2003.05.05
Защита


1-12703
NiX
2003-04-22 21:41
2003.05.05
как обработать полосу скроллинга


3-12611
Jack128
2003-04-15 12:51
2003.05.05
ibQuery.ParamByName( My_param ).Value := null; - не работает??


3-12604
K_AV
2003-04-15 11:06
2003.05.05
Как найти в базе





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский