蓝老师好！

我想清理系统导出的代码文档，达到软著登记的代码要求，清理后最终文档为纯代码，即不包括空行、纯注释行、代码后面的注释、标注行（如文档中 事件名称、控件名称等红、蓝色字符的段落等）。

下面的代码可以清理空行和以单引号开头的注释行，其他的不会写，麻烦蓝老师给写一下代码。

谢谢！

Dim dlg As new OpenFileDialog
dlg.Filter = "word|*.doc;*.docx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim app As New MSWord.Application
    try
        Dim doc = app.Documents.Open(dlg.FileName)

        For Each k As object In doc.Paragraphs
            If Len(Trim(k.Range.text)) = 1 Then k.Range.Delete    \'删除空行
            If Trim(k.Range.text).StartsWith(chr(39)) Then k.Range.Delete       \'删除段落的开头字符是单引号

        Next

        doc.save
        app.quit
       
    catch ex As exception
        msgbox(ex.message)
        app.quit
    End try
End If

此主题相关图片如下：截屏图片.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:000.zip

蓝老师好！

我试了一下这样写就可以：\'[\\u4e00-\\u9fa5].*

但是这个表达式怎样写到这里面：Dim rgx As New RegularExpressions.Regex("           ") 

蓝老师，加黑代码还有一点小问题：删除注释时会把换行符删除，请看图，怎样不删掉换行符？

代码如下：

Dim rgx As New RegularExpressions.Regex("\'[\\u4e00-\\u9fa5].*")
Dim dlg As new OpenFileDialog
dlg.Filter = "word|*.doc;*.docx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim app As New MSWord.Application
    try
        Dim doc = app.Documents.Open(dlg.FileName)
       
        For Each k As object In doc.Paragraphs
            If Len(Trim(k.Range.text)) = 1 Then
                k.Range.Delete    \'删除空行
            ElseIf Trim(k.Range.text).StartsWith(chr(39)) Then
                k.Range.Delete       \'删除段落的开头字符是单引号
            ElseIf rgx.IsMatch(k.Range.text) = True Then
                k.Range.text = rgx.Replace(k.Range.text,"")
            End If
        Next
       
        doc.save
        app.quit
       
    catch ex As exception
        msgbox(ex.message)
        app.quit
    End try
End If
msgbox("OK")