解析java源文件

尝试从java源文件中解析出类、方法、属性等信息，但下面的代码没有完全实现。

Sub parseJava() Dim package_name as String 'read a file Documents.Open FileName:="f:\CommandCm.java", ConfirmConversions:=False, ReadOnly:=True paraNo = ActiveDocument.Paragraphs.Count For lineNo = 1 To paraNo Set curParaWords = ActiveDocument.Paragraphs(lineNo).Range.Words Dim strCurPara as String strCurPara = ActiveDocument.Paragraphs(lineNo).Range.Text If InStr(strCurPara, "package")=1 Then '包名是package后、分号前的部分 tmpStr = Right(strCurPara,Len(strCurPara)-Len("package")-1) package_name = Left(tmpStr, Len(tmpStr)-2) End If If InStr(strCurPara, "public class")=1 Then '类名是这一行的第三个单词，且不含末尾空格 class_name = RTrim(curParaWords(3).Text) End If If InStr(strCurPara, "public interface")=1 Then '接口名是这一行的第三个单词，且不含末尾空格 class_name = RTrim(curParaWords(3).Text) End If Select Case curParaWords(2).Text Case "public"

Case "private" Case "protected" Case Else End Case If curParaWords(2)="public" Then '接口名是这一行的第三个单词，且不含末尾空格 class_name = RTrim(ActiveDocument.Paragraphs(lineNo).Range.Words(3).Text) End If Next lineNo ActiveDocument.Close End Sub

下面是业务逻辑：

数据结构：

类相关数据表ClassInfo（Map）

key: name, description, class_name, package, extends, interface;

属性数据表PropInfo（List

方法数据表MethodInfo（List

文本格式约定：

顶格、package起首代码行为package声明行；

顶格、public class起首的代码行是类声明行；

顶格、 public interface起首的代码行是接口声明行；

一个tab后跟public、private、protected是方法或者属性

有左括号的是方法， 左括号前单词是方法名，方法名前是返回值的数据类型；

无左括号 的是 属性，等号左边单词是属性名，若无等号分号前单词是属性名，若都没有输出一条 “文件名：行号：异常属性/方法，手工提取” 提示；

一个tab后跟其他字母 输出一条“文件名：行号：异常属性/方法，手工提取”提示；

一个tab后跟非字母符号（如/*是注释，@是编译标志）略过；

流程：

用户输入目标目录

将文件名保存在ClassInfo.name和class_name中；

加载该目录下所有java文件， 对于一个java文件：

第一次文本逐行读取：提取除方法/属性说明外所有信息；

第二次文本逐行读取：寻找以“* 方法名”开始的行，作为方法说明，放入对应的方法Map中；