冰峰雪晴

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

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

一做测试的朋友救助用vba实现批量提取java代码里的注释，立即帮她写了一个，基本功能实现ok。
点击一个按钮弹出窗口选择java文件可多选，

然后确认

提示成功

然后按文件名分别提取注释到自动生成的相应的sheet里面

代码如下：

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

本文固定链接: https://www.amkevin.com/182.html｜冰峰雪晴｜转载请注明出处,谢谢