[Diplomat]

Чёрт, вопрос о необходимом количестве каментов меня заинтересовал. ))

Вот примитивная программка, которая приблизительно подсчитывает количество каментов в коде и выводит ориентировочное процентное соотношение строк кода и комментариев. У меня в основном 10-17% комментариев в коде. Бывают подскоки до 30%, но они почти не влияют на результирующую статистику. Анализируя старые программы (ессно без QBASIC и MS VB ) могу заметить, что с годами статистика не меняется.

А у вас как?

RFile=OpenFile("Имя исходника.bb")

While Eof(RFile)=0
	NLines=NLines+1
	Lne$=ReadLine(RFile)
	For NChar=1 To Len(Lne$)
		Char$=Mid(Lne$,NChar,1)
		If Char$=";" Then
			NComments=NComments+1
			Exit
		EndIf
	Next
Wend

CloseFile(RFile)

Print "NUMBER OF LINES: "+NLines
Print "COMMENTED LINES: "+NComments
Print "____________________________"
Print "COMMENTS PART IN CODE: "+ Float(NComments)/Float(NLines)*100.0 +" %"

Print
Print
Print "Press any key to continue..."

WaitKey()

End

_______________
Added:

вот кусок кода из вартич

А-а, убийца! Ты сломал мой мозг! ))