快速批量提取java代码里面的注释功能[vba]

时间:2016-09-27 ┊ 阅读:5,188 次 ┊ 标签: 开发 , 编程 , 分享

一做测试的朋友救助用vba实现批量提取java代码里的注释,立即帮她写了一个,基本功能实现ok。
点击一个按钮弹出窗口选择java文件可多选,
readcmtfrjava.png
然后确认
readcmtfrjava2.png
提示成功
readcmtfrjava4.png
然后按文件名分别提取注释到自动生成的相应的sheet里面
readcmtfrjava3.png

代码如下:

Private Sub CommandButtonExtractComment_Click()
    Dim strFileName As String
    Dim i As Integer
    Dim strReadLine As String
    Dim strNewSheetName As String
    Dim j As Integer
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "Java Sources", "*.java"
        .Filters.Add "All Files", "*.*"
        .Show
        For i = 1 To .SelectedItems.Count
            MsgBox "Program will extract comments from file: " & .SelectedItems(i), vbOKOnly + vbInformation, "Extract Java Comments"
            j = 1
            strNewSheetName = Left(Dir(.SelectedItems(i)), InStrRev(Dir(.SelectedItems(i)), ".") - 1)
            Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = strNewSheetName
            Worksheets(strNewSheetName).Select
            Open .SelectedItems(i) For Input As #1
            Do While Not EOF(1)
                Line Input #1, strReadLine
                If (Left(Trim(strReadLine), 2) = "/*") Or (Left(Trim(strReadLine), 1) = "*") Or (Left(Trim(strReadLine), 2) = "//") Then
                    Worksheets(strNewSheetName).Cells(j, 1).Value = Trim(strReadLine)
                    j = j + 1
                End If
            Loop
            Close #1
        Next
        Application.ScreenUpdating = True
        MsgBox "Extract Jave Comments Success!", vbOKOnly + vbInformation, "Extract Java Comments"
    End With
End Sub

文章评论

添加新评论

温馨提醒:如果您是第一次在本站留言,需要审核后才能显示哦!

相关文章

Whatsapp只能查看最近三天的聊天记录了怎么办?

Whatsapp只能查看最近三天的聊天记录了怎么办?

今天突然发现电脑上的WhatsApp只能查看最近3天的聊天记录了,显示要查看3天前的记录请到手机上查看。很是吃惊,以前一直是所有记录都自动同步到电脑版的啊,不论换电脑了还是换手机了,聊天记录从来没丢过。 查询一翻也没有找出来原因,怎么也同步不过去。 电脑版app重新安装了,也不行。 有个方法说...
阅读全文>>
ValueError: Error getting directory

ValueError: Error getting directory

ssl证书过期了 明明自动renew的 然后看log已经好久没更新成功了 查半天是当前server不信任远程连接 只能自己改代码 报错: 21-12-17 13:01:11 Generate CSR...amkevin.csr amkevin.csr generated. /home/www...
阅读全文>>
网页路径中的'.'和'..'还有'./'和'../'区别

网页路径中的'.'和'..'还有'./'和'../'区别

. 表示当前目录 .. 表示当前目录的上一级目录。 ./表示当前目录下的某个文件或文件夹,视后面跟着的名字而定 ../表示当前目录上一级目录的文件或文件夹,视后面跟着的名字而定。 例如: 文件夹 a 下面有 文件夹b c 和文件 d。 文件夹b下面有e.php 和文件f。 则e中的 . 表示...
阅读全文>>
Introduction to ILE RPG Activation Groups

Introduction to ILE RPG Activation Groups

Learn how activation groups can help your ILE RPG programs run more efficiently, how to specify the type of group to use, and closing and reclaimin...
阅读全文>>
popup.js怎么和content.js通信?[JQuery]

popup.js怎么和content.js通信?[JQuery]

这两天为了实现一个谷歌浏览器插件功能,研究了半天怎么让插件来改特定网页里的特定字段的值,而这个值又来自popup的网页预先设定,下一步实现动态加载,可以让更多组实现便利。 目的很简单,我们有一个list,需要填到网页的某个字段,当然是好几个,这些值是设定好的,网页系统我们没法改,input想...
阅读全文>>