执行数小时后变量值被清空，CONST变量的替代实现方案有哪些？

• 方案1：使用私有字段+公共只读属性封装
  将公共可写的变量改为只读属性，仅允许在模块内部赋值，外部所有方法只能读取无法修改。修改后的代码示例：

Module PDFGenerator
    ' 私有字段，仅模块内部可访问
    Private _strOutPutPath As String
    ' 公共只读属性，外部只能读取
    Public ReadOnly Property strOutPutPath As String
        Get
            Return _strOutPutPath
        End Get
    End Property

    Sub Main()
        ' 仅在Main中完成赋值，后续所有位置都无法修改_strOutPutPath的值
        Dim registryValue = My.Computer.Registry.GetValue(
            "HKEY_CURRENT_USER\Software\OutputPath", "Path", Nothing)
        ' 增加空值校验，避免注册表读取失败直接抛空引用异常
        If registryValue Is Nothing OrElse String.IsNullOrWhiteSpace(registryValue.ToString()) Then
            Throw New InvalidOperationException("未从注册表读取到有效的输出路径")
        End If
        _strOutPutPath = registryValue.ToString().Trim()
        ' 这里可以继续加你需要的预处理逻辑

        For i as Integer = 0 To 1000 -1
            GeneratePDFs(i)
        Next
    End Sub

    Private Function GeneratePDFs(ByRef FileID As Integer) As Integer
        ' 增加前置校验，避免无效参数启动进程
        If String.IsNullOrWhiteSpace(strOutPutPath) Then
            ' 可以记录错误日志后直接返回错误码，不启动进程
            Return -1
        End If
        Dim ExecutableArgs As String = $" /outputdir:""{strOutPutPath}"" /nodisplay:true /batch:true"
        Dim psiMethod2 As New ProcessStartInfo

        psiMethod2.UseShellExecute = False
        psiMethod2.WorkingDirectory = Path
        psiMethod2.WindowStyle = ProcessWindowStyle.Hidden
        psiMethod2.FileName = "C:\PDF\PDFGenerator.exe"
        psiMethod2.Arguments = ExecutableArgs
        Dim procMethod2 As Process = Process.Start(psiMethod2)
        ' 增加超时等待，避免进程异常导致主程序永久挂起，示例为30秒超时，可根据实际需求调整
        If Not procMethod2.WaitForExit(30000) Then
            ' 超时后强制杀死进程，记录错误
            procMethod2.Kill()
            Return -2
        End If

        Return procMethod2.ExitCode
    End Function
End Module

• 方案2：如果不需要在Main中做动态判断逻辑，也可以使用静态构造函数初始化只读字段
  在模块的静态构造函数中完成注册表读取和预处理，直接声明公共只读字段，赋值后全程不可修改。

• 排查是否存在多线程操作：如果完整代码中有异步逻辑、多线程任务并行执行，公共可写变量没有加锁保护的情况下，可能出现竞争写入导致值被异常清空。
• 排查是否存在同名变量覆盖：检查所有用到strOutPutPath的位置，是否有局部变量、参数和全局变量重名，导致不小心给全局变量赋了空值。
• 增加变更监控：如果仍无法定位问题，可以把变量改为属性，在Set方法中加日志记录，每次修改时都输出调用栈和新值，就能快速定位到清空变量的具体代码位置。

• 所有外部参数读取、公共变量使用前都加非空校验，避免无效值流入后续逻辑。
• 调用外部进程时必须加超时机制，无论外部进程出现什么异常，主程序都不会被永久卡住。
• 增加错误日志输出，每个异常节点都记录上下文信息（比如当前循环的i值、参数值等），后续排查问题会方便很多。

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