源程序代码是什么意思统计代码行的源程序

当你开发完一个作品时，也许你希望知道你的代码写了多少行，这里你可以用本文中的函数来统计它，不过有些耗时，我统计了一下我开发的一个软件，共8108行，运行了近20分钟。在你的程序中新增一模块，命名为：mdlCountLines，并复制下面的代码到该模块中：PublicFunctionfCountLines()AsLong\'CodetocountthenumberoflinesofcodeinthecurrentdatabaseOnErrorGoToE_HandleDimdbAsDatabaseDimctrAsContainerDimdocAsDocumentDimfrmAsFormDimrptAsReportDimmdlAsModuleDimlngCountAsLongDimintCountAsInteger,intLoopAsIntegerSetdb=CurrentDbSetctr=db.Containers!FormsForEachdocInctr.DocumentsDoCmd.OpenFormdoc.Name,acDesign,,,,acHiddenSetfrm=Forms(doc.Name)Iffrm.HasModule=TrueThenSetmdl=frm.ModuleintCount=mdl.CountOfLinesForintLoop=1TointCountIfLen(mdl.Lines(intLoop,1))>0AndLeft(Trim(mdl.Lines(intLoop,1)),1)0AndLeft(Trim(mdl.Lines(intLoop,1)),1)\"\'\"ThenlngCount=lngCount+1EndIfNextintLoopSetmdl=NothingEndIfDoCmd.CloseacReport,doc.NameSetmdl=NothingEndIfNextdocfCountLines=lngCountfExit:OnErrorResumeNextSetctr=NothingSetdb=NothingExitFunctionE_Handle:MsgBoxErr.Description&vbCrLf&\"fCountLines\",vbOKOnly+vbCritical,\"Error:\"&Err.NumberResumefExitEndFunction

本文来自投稿，不代表长河网立场,转载请注明出处： http://www.changhe99.com/a/PVdLQmgB6Q.html