Question

我想将我的变量放在.txt文件中。我以前从未这样做过（我的意思是将变量放在.txt文件中）。我的文件应包含哪些内容？当我想使用If函数时，我应该将什么放入我的vb项目中。恩。我的变量名= dzien value = 0

Private Sub zapisz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)      Handles zapisz.Click
     Open "C:\Plik.txt" For Append As #1 
If dzien = 0 Then
TextBlock1.txt += "dzien jest 0"
End IF

如果在.txt文件中有我的变量，这个函数是否有效？

Answer 1

有多种方法可以做到这一点。例如，您可以将值存储在文本文件，二进制文件，XML文件，ini文件或配置文件中。最简单的选择是使用内置设置框架。为此，请转到项目属性，然后单击“设置”选项卡。创建一个名为“DZien”的新设置，并将类型设置为整数。然后，在代码中，您可以访问和设置配置文件中的值，如下所示：

Dim dzein As Integer = My.Settings.Dzien.ToString()  ' Read value from config file
My.Settings.Dzien = 5  ' Write new value to config file

相反，如果您想在文本文件中存储单个数字，可以这样做：

Dim dzein As Integer = Integer.Parse(File.ReadAllText("C:\Plik.txt")) '  Read value from text file
File.WriteAllText("C:\Plik.txt", dzein.ToString())

在您的情况下，您正在编写Windows Phone应用程序，您可以这样做：

Partial Public Class_1
    Inherits PhoneApplicationPage
    Private dzien As Integer

    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button2.Click
        Try
            dzien = CInt(IsolatedStorageSettings.ApplicationSettings("dzien"))
        Catch ex As KeyNotFoundException
            dzien = 0
        End Try
        If dzien = 0 Then
            ' ...
        End If
    End Sub

    Private Sub Class_1_Unloaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Unloaded
        IsolatedStorageSettings.ApplicationSettings("dzien") = dzien
    End Sub
End Class

.txt文件中的变量

1 个答案: