Форум: "Потрепаться";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизКак посчитать количество строк кода, если имеется около Найти похожие ветки
← →
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 ©
Спасибо, если для мя, то я сам и ... вы критерия не знаете - это была единовременная операция
← →
Anatoly Podgoretsky (2003-01-16 19:51) [13]gsu © (16.01.03 19:38)
Нет это если скучно будет, для других пишу программы только под заказ
← →
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 строк.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.016 c