Question

I would like to have my variable in .txt file. I’ve never done it before (I mean putting variable in .txt file). What should my file consist?
And what should I put into my vb project, when I want to use If function.
ex. my variable name = 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

Does this function work if in .txt file there is my variable?

Answer 1

There are multiple ways to do this. For instance, you could store the value in a text file, a binary file, an XML file, an ini file, or a configuration file. The simplest option is to use the built-in settings framework. To do that, go to your project properties and click on the settings tab. Create a new setting called “DZien” and set the type to an integer. Then, in code, you can access and set the value in the config file like this:

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

Rather, if you want to store a single number in a text file, you could do it like this:

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

In your case, where you are writing a windows phone app, you could do it like this:

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