Récupérer valeur Boolean dans un fichier txt

Version imprimable

Bonjour le forum,

Je souhaiterais récupérer les valeurs Boolean ci dessous, ces valeurs permettent à l'utilisateur de sauvegarder ses choix.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Paramètres_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fichier = My.Application.Info.DirectoryPath & "\SETUPTL.txt"
        Dim monStreamReader As StreamReader = New System.IO.StreamReader(fichier)
CheckBox1.Checked = CBool(monStreamReader.ReadLine)
        CheckBox2.Checked = CBool(monStreamReader.ReadLine)
        RadioButton1.Checked = CBool(monStreamReader.ReadLine)
        RadioButton2.Checked = CBool(monStreamReader.ReadLine)
        RadioButton4.Checked = CBool(monStreamReader.ReadLine)
        RadioButton5.Checked = CBool(monStreamReader.ReadLine)
         RadioButton6.Checked = CBool(monStreamReader.ReadLine)
 monStreamReader.Close()
    End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        Dim son = New Media.SoundPlayer(My.Resources.Bip3)
        son.Play()
        ' Création_fichier()
        fichier = My.Application.Info.DirectoryPath & "\SETUPTL.txt" 'chemin du fichier texte
        Dim monStreamWriter As StreamWriter = New StreamWriter(fichier)
monStreamWriter.WriteLine(CheckBox1.Checked.ToString)
        monStreamWriter.WriteLine(CheckBox2.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton1.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton2.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton4.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton5.Checked.ToString)
        monStreamWriter.WriteLine(RadioButton6.Checked.ToString)
 monStreamWriter.Close()
        Menu1.Show()
        Me.Hide()
    End Sub

Cela permettra de choisir entre différentes images de fond et d'activer ou non le son ou encore de choisir entre différentes music dans une autre form.

Voici un petit exemple.

Code:

1
2
3
4
5
6
7
8
9
  if "ma première ligne de mon fichier txt est false" then
Dim son = New Media.SoundPlayer(My.Resources.Bip3)
son.play
 
else
Dim son = New Media.SoundPlayer(My.Resources.Bip2)
 son.Play
 
End if

Après plusieurs recherche sur le net et différentes possibilitées de testes, je suis un peu "beaucoup" perdu.
Pouvez vous m'aider afin que je puisse terminer ce bout de code.

Merci à vous.

Bonjour,
Pour ça fonctionne mieux vous pouvez faire ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Dim Filepath As String = path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "action.txt")
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim monStreamReader As StreamReader = New System.IO.StreamReader(Filepath)
        CheckBox1.Checked = CBool(monStreamReader.ReadLine)
        CheckBox2.Checked = CBool(monStreamReader.ReadLine)
        CheckBox3.Checked = CBool(monStreamReader.ReadLine)
        CheckBox4.Checked = CBool(monStreamReader.ReadLine)
        monStreamReader.Close()
    End Sub
 
    Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Dim monStreamWriter As StreamWriter = New StreamWriter(Filepath)
        monStreamWriter.WriteLine(CheckBox1.Checked.ToString)
        monStreamWriter.WriteLine(CheckBox2.Checked.ToString)
        monStreamWriter.WriteLine(CheckBox3.Checked.ToString)
        monStreamWriter.WriteLine(CheckBox4.Checked.ToString)
        monStreamWriter.Close()
    End Sub

Vous pouvez faire aussi cela :

Code:

1
2
3
4
5
6
7
8
9
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            Dim son = New Media.SoundPlayer(My.Resources.Bip3)
            son.play()
        ElseIf CheckBox1.Checked = False Then
            Dim son = New Media.SoundPlayer(My.Resources.Bip2)
            son.Play()
        End If
    End Sub

cordialement,

10/05/2021, 12h48
Tempus01

Bonjour Miska59,

Merci pour ce bout de code.

Je me suis mal expliquer, l'écriture et la lecture dans le fichier txt fonctionnent très bien, je cherche juste à récupérer les infos qui sont dans ce fichier.txt à partir d'une autre form.

Voila le contenu du fichier.

False
False
False
True
True
False
False

J'ai vu sur le net que certain utilisent des Combobox ou des tableaux, mais le code pour faire cela m'échappe.

Merci encore pour votre aide.

voici un exemple pour recuperer sur un autre form2 par rapport form1 du fichier texte:

Code:

1
2
3
4
5
6
7
8
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim monStreamReader As StreamReader = New System.IO.StreamReader(Filepath)
        Form2.CheckBox1.Checked = CBool(monStreamReader.ReadLine)
        Form2.CheckBox2.Checked = CBool(monStreamReader.ReadLine)
        Form2.CheckBox3.Checked = CBool(monStreamReader.ReadLine)
        Form2.CheckBox4.Checked = CBool(monStreamReader.ReadLine)
        monStreamReader.Close()
    End Sub

dans combobox aussi :

Code:

ComboBox1.Items.AddRange(File.ReadAllLines(Filepath))

Bonjour,

Code:

Form2.CheckBox1.Checked = (monStreamReader.ReadLine = "True")

après, à toi de jouer avec des Lcase() et des OR si les valeurs dans le fichier ne sont pas toujours parfaitement "False" et "True" ...

Par contre, perso, je n'enregistrerai dans le fichier que l'Id du RadioButton (genre, un index dans la propriété Tag), et j'affecterai le bon "son" sur un CheckChanged()
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub RadioButton_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged Select Case CType(sender, RadioButton).Tag Case 1 son = "....." Case 2 son = "....." Case Else son = "....." End Select End Sub

11/05/2021, 18h39
Tempus01

Bonjour,

Super, merci à vous deux, je vais essayer d'incorporer ces bouts de code dans mes form.

Je vous ferais un retour.

Bonne soirée.