[vb]使用vb统计.java的行数
来源:互联网 发布:样册制作软件 编辑:程序博客网 时间:2024/06/05 20:45
工作需要,针对java文件,作了一个行数统计的工具。统计的主要代码如下:
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
'java总行数
allLinex = allLinex + 1
'java空白行
If Not flg And Trim(Replace(buf, vbTab, "")) = "" Then
'Debug.Print fileNm & ":" & allLinex
blankLinex = blankLinex + 1
End If
'java注释行
If flg Then
If InStr(buf, "*/") > 0 Then
flg = False
End If
commentLinex = commentLinex + 1
ElseIf InStr(Trim(Replace(buf, vbTab, "")), "//") = 1 Then
commentLinex = commentLinex + 1
End If
If InStr(Trim(Replace(buf, vbTab, "")), "/*") = 1 Then
flg = True
commentLinex = commentLinex + 1
End If
If flg And InStr(buf, "*/") > 0 Then
If Mid(Trim(Replace(buf, vbTab, "")), Len(Trim(Replace(buf, vbTab, ""))) - 1) = "*/" Then
flg = False
End If
End If
Loop
'java实行行数
execLinex = allLinex - blankLinex - commentLinex
广告:
优衣库官方旗舰店提示:冬日寒冷,请注意保暖,
http://s.click.taobao.com/a/qvLJJQkPIEQ=-14643766
- [vb]使用vb统计.java的行数
- 初探宏的强大,写一个统计VB.NET代码行数的宏(上)
- 初探宏的强大,写一个统计VB.NET代码行数的宏(下)
- vb 读取txt文本的行数
- VB ListView的使用
- VB ListView的使用
- VB基本的使用
- VB DoEvents 的使用
- Java代码行数的统计
- 统计java代码的行数
- vb 读取txt文本的行数方法比较
- .net winform下 C#/VB.NET项目代码行数统计(2009-6-25新版本)
- vb.net2005 LinkLabel1的使用
- VB资源文件的使用
- VB使用API的例子
- vb控件数组 的使用
- VB mschart控件的使用
- DataGrid控件的使用(VB)
- css和javascript在IE和Firefox中的不同点
- XP平台实现端口进程关联
- 基于MIPS的uBoot编译环境搭建
- cache buffers chains ,buffer busy waits
- nice day~
- [vb]使用vb统计.java的行数
- 【ZZ】神与学霸的区别
- 网上书店
- asp.net中实现简繁体转化
- 重新安装mysql的心得
- [转]Fedora Centos rsync 異地備援
- 学习10种网络推广法
- 系统托盘
- H.264 Profile