0

変数を .txt ファイルに入れたいと思います。私はこれまでやったことがありません（変数を.txtファイルに入れることを意味します）。私のファイルは何から構成されるべきですか? また、If 関数を使用する場合は、vb プロジェクトに何を入れればよいでしょうか。元。私の変数名 = dzien 値 = 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 ファイルに変数がある場合、この関数は機能しますか?

4

1 に答える 1

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
于 2012-10-09T19:10:47.890 に答える