0

先生，我不知道代码的外观，但我希望它在从文本文件读取后分配一个值，然后将其存储以供进一步使用，即使文本文件不存在，但不使用任何外部存储，如注册表、磁盘、内存。它应该将值存储在自身中并执行以下操作：- dim variable1, variable2 as string if file.exists("text.txt") read the text 将文本存储在变量 1 else variable2 = variable1 end if

基于变量 1 的一些动作 基于变量 2 的一些动作

任何帮助，将不胜感激

4

2 回答 2

1

如果不将其存储在任何地方，就无法使值永久化。您将需要任何外部存储。没有其他解决方案。点。

没有什么比得上“自己”。它本身就是内存，当应用程序停止时，内存被清除并且值不再存在。

于 2012-03-13T17:51:42.323 回答
0

哇，你的逻辑很难理解。怎么样的东西：

Private mVariable1 = Nothing
Private mVariable2 As String = "Something"
Private mFilePath As String = System.Environment.GetEnvironmentVariable("APPDATA")
Private mFileSpec As String = System.IO.Path.Combine(mFilePath, "textfile.txt")

' dgp rev 3/13/2012
Private ReadOnly Property Variable1 As String
    Get
        If mVariable1 Is Nothing Then
            If System.IO.File.Exists(mFileSpec) Then
                Try
                    Dim sr = New StreamReader(mFileSpec)
                    mVariable1 = sr.ReadToEnd
                    sr.Close()
                Catch ex As Exception
                    mVariable1 = "error"
                End Try
            Else
                mVariable1 = mVariable2
            End If
        End If
        Return mVariable1
    End Get

End Property

如果文件不存在，变量将在第一次引用时使用文本文件或硬编码值初始化。当然，一旦程序关闭，没有什么是持久的。这就是我对您的要求有点模糊的地方。

于 2012-03-13T18:05:29.173 回答