如何使用VBA修改PcSchematic文件（非Word/Excel文档）中的PDM版本信息？

嘿，我明白你的需求了——要把PDM里的版本号写入PcSchematic的.PRO文件，之前用FileSystemObject的代码只做覆盖肯定不行，因为你需要先读取文件内容、替换指定行，再写回去。下面是正确的实现思路和代码：

核心问题分析 #

你之前用的OpenTextFile(filePath, 2)是覆盖写入模式，会直接清空原文件内容，这显然不是你要的操作逻辑。.PRO文件本质是可编辑的文本格式，所以正确流程应该是：读取整个文件内容 → 找到目标版本行替换 → 将修改后的内容写回原文件。

完整VBA代码实现 #

下面的代码可以实现读取文件、替换版本号、保存关闭的全流程，你可以根据自己的.PRO文件版本行格式调整匹配规则：

Sub UpdatePcSchematicVersionFromPDM()
    Dim filePath As String
    Dim objFSO As Object
    Dim objTextStream As Object
    Dim fileContent As String
    Dim targetVersion As String
    
    ' 1. 配置参数：替换成你的文件路径和PDM获取的版本号
    filePath = "C:\16368.04.PRO"
    targetVersion = "2.0.1" ' 这里可以替换成从PDM接口获取版本号的代码
    
    ' 2. 创建FileSystemObject实例
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 3. 读取整个文件内容（只读模式打开）
    Set objTextStream = objFSO.OpenTextFile(filePath, 1, False, -1) ' -1 = 使用系统默认编码
    fileContent = objTextStream.ReadAll
    objTextStream.Close
    
    ' 4. 查找并替换版本行：请根据你的.PRO文件实际格式修改匹配规则
    ' 示例：假设版本行格式为 "PROJECT_VERSION=1.0.0"
    ' 如果你的版本行是其他格式（比如"Version: V1.0"），替换成对应的匹配字符串
    fileContent = Replace(fileContent, GetCurrentVersion(fileContent), targetVersion)
    
    ' 5. 将修改后的内容写回文件（覆盖模式）
    Set objTextStream = objFSO.OpenTextFile(filePath, 2, True)
    objTextStream.Write fileContent
    objTextStream.Close
    
    ' 6. 释放资源
    Set objTextStream = Nothing
    Set objFSO = Nothing
    
    MsgBox "版本号已成功更新为：" & targetVersion, vbInformation
End Sub

' 辅助函数：从文件内容中提取当前版本号（根据实际格式调整正则）
Function GetCurrentVersion(content As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 正则匹配规则：请根据你的.PRO文件版本行格式修改
    ' 示例匹配 "PROJECT_VERSION=1.0.0" 中的版本号部分
    regex.Pattern = "PROJECT_VERSION=(\d+\.\d+\.\d+)"
    regex.Global = False
    
    If regex.Test(content) Then
        GetCurrentVersion = "PROJECT_VERSION=" & regex.Execute(content)(0).SubMatches(0)
    Else
        GetCurrentVersion = "" ' 如果没找到匹配行，返回空字符串
    End If
End Function

关键注意事项 #

• 文件锁定问题：确保PcSchematic没有打开目标.PRO文件，否则会因文件被占用而报错
• 备份文件：操作前建议备份原文件，避免替换逻辑错误导致文件损坏
• 编码适配：如果你的.PRO文件是UTF-8编码，把OpenTextFile的第四个参数改成6（对应utf-8编码）
• 匹配规则调整：一定要根据你的.PRO文件实际的版本行格式修改GetCurrentVersion函数里的正则表达式，比如如果版本行是Version: 1.0，就把正则改成Version: (\d+\.\d+)

替代方案：逐行处理（如果文件过大） #

如果你的.PRO文件非常大，ReadAll可能占用过多内存，可以用逐行读取替换的方式：

Sub UpdateVersionLineByLine()
    Dim filePath As String, tempPath As String
    Dim objFSO As Object, objInStream As Object, objOutStream As Object
    Dim line As String, targetVersion As String
    
    filePath = "C:\16368.04.PRO"
    tempPath = "C:\temp_pro_file.pro"
    targetVersion = "2.0.1"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objInStream = objFSO.OpenTextFile(filePath, 1)
    Set objOutStream = objFSO.OpenTextFile(tempPath, 2, True)
    
    Do Until objInStream.AtEndOfStream
        line = objInStream.ReadLine
        ' 匹配版本行并替换
        If InStr(line, "PROJECT_VERSION=") > 0 Then
            line = "PROJECT_VERSION=" & targetVersion
        End If
        objOutStream.WriteLine line
    Loop
    
    objInStream.Close
    objOutStream.Close
    
    ' 替换原文件
    objFSO.DeleteFile filePath
    objFSO.MoveFile tempPath, filePath
    
    Set objOutStream = Nothing
    Set objInStream = Nothing
    Set objFSO = Nothing
End Sub

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