文件统计分析类设计与实现.pdfVIP

ccfile：封装文件的基本信息、统计信息和统计操作

2004‑05‑15

导入System.IO公共类ccfile

私有c_fi作为FileInfo

文件的基本信息

私有c_ir作为IRule文件规则

私有c_active作为整数可执行代码的行数

私有c_comment作为整数注释的行数

私有c_space作为整数空行的行数

私有c_both作为整数可执行代码和注释的行数

私有c_ltex1作为整数以下为备用统计用行数

私有c_ltex2作为整数私有

c_ltex3作为整数私有

c_ltex4作为整数私有

c_ltex5作为整数

sub

new:

公共子过程新建(按值传递p_ir作

为IRule)c_ir=p_irreset()结束子

过程

checkfile：根据文件的基本信息，文件并进行分析，将结果保存在类的全局变量当

中

公共子过程checkFile(按值传递p_fileinfo作为FileInfo)

尝试定义m_fs作为文件流=p_fileinfo.OpenRead

文件用的fitream

定义m_sr作为新建StreamReader(m_fs)操作fitream用的streamreader

Dimm_tmpstrAs字符串“临时字符串

初始化reset()保存文件基本信息c_fi=

p_fileinfo文件处理循环，逐行并处理

Whilem_fs.Positionm_fs.Length一行

m_tmpstr=m_sr.ReadLine调用文件规则类的

判断函数进行判断如果不是行末，继续

WhileNotc_ir.checkLineEnd(m_tmpstr)

m_tmpstr+=m_sr.ReadLineEndWhile调用

文件规则类的判断函数进行判断判断该行类型，并

对相应类型的行数加一SelectCase

c_ir.checkLine(m_tmpstr)Case

LineType.ACTIVEc_active+=1Case

LineType.COMMENT

ccfile:封装文件的基本信息、统计信息和统计操作

2004-05-15

ImportsSystem.IO

PublicClassccfile

Privatec_fiAsFileInfo文件的基本信息

Privatec_irAsIRule文件规则

P