VB6遗留应用替换Print为自定义函数，保留Tab与分号行为方案问询

针对VB6遗留应用的Print #语句批量替换需求，我整理了一套完整的实现步骤，既能保留原语句的Tab和分号行为，又能扩展日志能力：

1. 编写自定义日志函数 #

先在项目中添加一个标准模块（比如modLogging.bas），实现CustomPrint函数和辅助工具，完美模拟原Print #的核心行为：

Option Explicit
Private colTracker As Dictionary ' 跟踪每个文件的当前输出列位置

Public Sub CustomPrint(ByVal fileNo As Integer, Optional ByVal noNewLine As Boolean = False, ParamArray outputs() As Variant)
    Dim currentCol As Integer
    Dim outputText As String
    Dim i As Integer
    
    ' 初始化列跟踪器
    If colTracker Is Nothing Then
        Set colTracker = New Dictionary
    End If
    
    ' 获取当前列位置，默认从第1列开始
    If colTracker.Exists(fileNo) Then
        currentCol = colTracker(fileNo)
    Else
        currentCol = 1
    End If
    
    outputText = ""
    
    For i = LBound(outputs) To UBound(outputs)
        Dim item As Variant
        item = outputs(i)
        
        ' 跳过空项
        If IsEmpty(item) Then GoTo NextItem
        
        ' 处理Tab定位标记
        If TypeName(item) = "String" And Left$(item, 5) = "[TAB]" Then
            Dim targetCol As Integer
            On Error Resume Next ' 兼容Tab参数非数字的情况
            targetCol = CInt(Mid$(item, 6))
            On Error GoTo 0
            
            ' 完全模拟VB6 Tab的行为：目标列大于当前列才填充空格
            If targetCol > currentCol Then
                outputText = outputText & String$(targetCol - currentCol, " ")
                currentCol = targetCol
            End If
        Else
            ' 处理普通输出内容，和原Print的类型转换逻辑一致
            Dim itemStr As String
            itemStr = CStr(item)
            outputText = outputText & itemStr
            currentCol = currentCol + Len(itemStr)
        End If
        
NextItem:
    Next i
    
    ' 写入文件：带分号不换行，不带则换行
    If noNewLine Then
        Print #fileNo, outputText;
        ' 更新当前列位置
        colTracker(fileNo) = currentCol
    Else
        Print #fileNo, outputText
        ' 换行后重置列位置为1
        colTracker(fileNo) = 1
    End If
End Sub

' 辅助函数：关闭日志文件时清理列跟踪
Public Sub CloseLogFile(ByVal fileNo As Integer)
    Close #fileNo
    If Not colTracker Is Nothing And colTracker.Exists(fileNo) Then
        colTracker.Remove fileNo
    End If
End Sub

2. 批量替换原Print语句 #

2万多条语句手动改肯定不现实，用正则批量替换是最优解（推荐用VSCode、Notepad++等支持正则的编辑器打开VB6代码文件），分三步执行：

步骤1：替换Tab调用为标记字符串 #

把所有Tab(n)（n可以是数字或变量）替换为自定义标记，让函数能识别定位指令：

• 查找正则：Tab\((.*?)\)
• 替换为："[TAB]" & $1

示例转换：
Tab(1) → "[TAB]" & 1
Tab(col) → "[TAB]" & col

步骤2：替换输出项之间的分号为逗号 #

把Print #语句中分隔输出项的分号（注意避开字符串内部的分号）替换为逗号，作为自定义函数的参数分隔符：

• 查找正则：(Print #[^,]+,.*?)(?<!")(;)(?!")\s*(?=[^;]+(;|$))
• 替换为：$1,

示例转换：
"[TAB]" & 1; "My Text Here" → "[TAB]" & 1, "My Text Here"

步骤3：替换整个Print语句为CustomPrint调用 #

把完整的Print #语句换成CustomPrint调用，同时根据原语句结尾的分号设置noNewLine参数：

• 查找正则：Print #([^,]+),\s*(.*?)(;)?\s*$
• 替换为：CustomPrint $1, ${3:+True}${3:-False}, $2

示例转换：

• 原语句（结尾带分号）：Print #FileNo, "[TAB]" & 1, "My Text Here"; → CustomPrint FileNo, True, "[TAB]" & 1, "My Text Here"
• 原语句（结尾无分号）：Print #FileNo, String(132, "-") → CustomPrint FileNo, False, String(132, "-")

3. 特殊情况处理 #

• 文件关闭：把原代码中的Close #FileNo替换为CloseLogFile(FileNo)，确保列跟踪器能正确清理记录。
• 字符串内含分号：如果原语句的字符串里有分号（比如"Hello;World"），步骤2的正则可能误替换，需要手动检查修正这些少量特殊情况。
• 复杂文件号表达式：如果文件号是表达式（如Print #(FileNo + 1), ...），步骤3的正则([^,]+)会自动匹配，无需额外调整。

4. 扩展日志功能 #

现在你可以轻松在CustomPrint里加各种扩展，比如：

• 自动加时间戳：在outputText前拼接Format(Now(), "YYYY-MM-DD HH:MM:SS ")
• 日志级别标记：新增logLevel参数，输出[INFO]/[ERROR]等标记
• 同时输出到控制台：添加Debug.Print outputText语句

内容的提问来源于stack exchange，提问作者bjan