[vb]使用vb统计.java的行数
工作需要，针对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 An
相关文档：
create PROCEDURE pagelist
@tablename nvarchar(50),
@fieldname nvarchar(50)='*',
@pagesize int output,--每页显示记录条数
@currentpage int output,--第几页
@orderid nvarchar(50),--主键排序
@sort int,--排序方式，1表示升序，0表示降序排列
......
1．现在输入n个数字，以逗号，分开；然后可选择升或者降序排序；按提交键就在另一页面显示按什么排序，结果为，提供reset
import java.util.*;
public class bycomma{
public static String[] splitStringByComma(String source){
if(source==null||source.trim().equals(""))
......
压缩文件夹代码：
import java.io.File;
import org.apache.tools.zip.ZipOutputStream; //这个包在ant.jar里，要到官方网下载
import java.io.FileInputStream;
import java.io.FileOutputStream;
import java.util.zip.ZipInputStream;
import java.util.zip.ZipEntry;
......
