[求助]自动删除代码注释？

zipgirl

If IsEmptyString(strLine) Or Left(LTrim(strLine), 1) = "'" Then    '当前行如为[']开头或者全为空字符串，则直接删除行

            Modules(ModuleName).DeleteLines j, 1

else……END IF这段不错

zipgirl

这部分不错怎么出乱码?????????[em04]

wang1999

"不过对所有MODULE操作的话可能要用到APPLICATION.CURRENTPROJECT.ALLMODULES吧"这个我已经试过了,这个只能返回数据库中所有的模块对象，却不能返回窗体和报表中模块对象Application.Modules这个Modules 集合只返回包含 Microsoft Access 数据库中所有打开的[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\Office10\2052\vbaac10.chm::/html/accolmodules.htm#]标准模块[/url]和[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\Office10\2052\vbaac10.chm::/html/accolmodules.htm#]类模块[/url]。

wang1999

If CharacterString = "" Then                        '首先检查本身就是否为空值

实际上大家判断字符是否为空时,用下面这句代码,速度要快十倍(在老外写的书上看到)If len(CharacterString) Then                        '首先检查本身就是否为空值

zhidao

需要引用什么吗