Как посчитать количество строк кода, если имеется около

← →
gsu (2003-01-16 18:06) [0]

20 модулей по быстрому ?

← →
drpass (2003-01-16 18:07) [1]

Project->Build

← →
gsu (2003-01-16 18:09) [2]

Все торможу на работе !
большое СПА-СИ-БО

← →
Дремучий (2003-01-16 18:43) [3]

Правильнее должно быть так

1)Project->Build
2)удаляешь dcu своих 20 модулей (надеюсь они в одном каталоге)
3)Project->Compile

← →
gsu (2003-01-16 18:47) [4]

получается одно и то же число, однако похоже туда входят и строки из библиотек, н-р, Rx ???

← →
Anatoly Podgoretsky (2003-01-16 19:15) [5]

Напиши простую программу, всего то работа с текстовыми файлами.

← →
Кот Бегемот (2003-01-16 19:17) [6]

FCount:= 0;
FPath := "C:\Project\*.pas";
FAttr := faAnyFile;

if FindFirst(FPath, FAttr, FSR) = 0
then try
repeat
if (FSR.Attr and FAttr) = FSR.Attr
then begin
StringList.LoadFromFile(FSR.Name);
FCount := FCount + StringList.Count;
end;{if}
until (FindNext(FSR) <> 0);
finally
FindClose(FSR);
end;{try}

← →
gsu (2003-01-16 19:20) [7]

>>Anatoly Podgoretsky ©
идея была, но ...

>> Кот Бегемот ©
открывать файлы самому не охота, задавать маску или усущ-ть поиск неохота и я выбрал альтернативное решение - эмперическая оценка (-:|~

← →
gsu (2003-01-16 19:21) [8]

Эмпирическая !!! Все, пошел спать, наработался.
Спасибо за предложения

← →
Кот Бегемот (2003-01-16 19:23) [9]

2gsu © (16.01.03 19:20)
Блиннн... - я за пять минут набросал рабочий кусок кода - а ты страдаешь уже полтора часа и выбираешь - эмперическая оценка (-:|~
Тьфууу.....

← →
gsu (2003-01-16 19:25) [10]

Да я не страдаю и не выбираю, а || работаю, программлю, базарю, чаи гоняю, вот ща в зал в футбол гонять поеду, ... совмещаю так сказать ...

← →
Anatoly Podgoretsky (2003-01-16 19:35) [11]

gsu © (16.01.03 19:20)
Раз напишешь, много кратно будешь использовать, при этом не будешь зависить от остальных вещей, например как исходные тексты посторонних библиотек.

Если будет скучно и будет пару часиков свободного времени, то набосаю программку и брошу в кладовку.

Кот Бегемот © (16.01.03 19:23)
далеко до рабочего, но претензия правильная, трясти нужно.

← →
gsu (2003-01-16 19:38) [12]

← →
Anatoly Podgoretsky (2003-01-16 19:51) [13]

← →
paul_shmakov (2003-01-18 05:52) [14]

зачем что-то писать? все уже и так написано. grep ведь вроде с delphi поставляется?

я точно не знаю, как правлильно считать количество строк кода, поэтому два варианта:
1) этот считает общее количество строк во всех файлах

grep -do "^" *.pas | grep -c "^"

2) этот делает тоже самое, только пропускает пустые строки

grep -dvo "^$" *.pas | grep -c "^"

← →
Anatoly Podgoretsky (2003-01-18 09:07) [15]

Что бы посчитать конечно не надо писать, но программа может выдать более подробный отчет, со статистикой, ведь раз задан такой вопрос, то зачем то автору нужна эта информация и естественно лучше побольше :-)

← →
Думкин (2003-01-18 09:25) [16]

> Anatoly Podgoretsky © (18.01.03 09:07)

Видимо, так. Ведь можно используя синтаксис Паскаля написать простенькое в 10000 строк, а огромнейший кодяру всунуть в 5000.
Вот begin, end - можно под них строки заюзать и еще пропуски вставить. Да и иногда лепишь, лепишь - а потом 1000 строк - функция - и 50 строк.

Как посчитать количество строк кода, если имеется около Найти похожие ветки