Discussion :

[herroP]

Bonjour,
Lorsque les fichiers textes (.txt) sont lus, les caractères avec des accents sont remplacés par des petits carrés. Peut-on remédier à cela?
On m'a dit qu'il fallait modifier l'encodage.

Voici tout mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
30
Public Class Form1
    Dim destination As String
    Dim selection As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        selection = ListBox1.SelectedItem
        If selection = ("Collier d'ours") Then
            destination = (Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\objet\collierdours.txt")
        End If
        If selection = ("Cape du mage Tanzou") Then
            destination = (Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\objet\cape du mage tanzou.txt")
        End If
        Dim stream As New System.IO.StreamReader(destination)
        Dim description = stream.ReadLine
        Label1.Text = description
        Dim effet = stream.ReadLine
        Label2.Text = effet
        Dim prix = stream.ReadLine
        Label3.Text = prix
        stream.Close()
 
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
 
    End Sub
End Class

Mais où je dois mettre l'encodage?

Encore une dernière question pour terminer:
Pour ajouter une valeur à un fichier .txt (c'est à dire: si le contenu est 5 et je veux ajouter 5 pour que ca fasse 10), j'utilise ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim [] As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\[].txt")
            Dim () = [].ReadToEnd
            Label?.Text = ()
            [].Close()
            Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\[].txt")
            Dim [] As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\[].txt")
            [].WriteLine(Label[].Text + [])
            [].Close()

Mais n'y a t'il pas un moyen plus simple de le faire?

[herroP]

J'ai trouvé la solution à l'encodage il fallait mettre à mon stream:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim stream As New System.IO.StreamReader(destination, _
            System.Text.Encoding.Default, False, 512)

Par contre je n'ai pas trouvé de code plus simple pour ma deuxième question (voir premier message du topic). Auriez-vous un code plus simple que le mien?

[shayw]

Salut

Encore une dernière question pour terminer:
Pour ajouter une valeur à un fichier .txt (c'est à dire: si le contenu est 5 et je veux ajouter 5 pour que ca fasse 10), j'utilise ce code:

peux tu expliquer simplement

si le contenu est 5 5 mots ? 5 caractères ?

[herroP]

Le contenu est 5 le chiffre.

[-N4w4k-]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
            Dim [] As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\[].txt")
            Dim () = [].ReadToEnd
            Label?.Text = ()
            [].Close()
            Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\[].txt")
            Dim [] As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\[].txt")
            [].WriteLine(Label[].Text + [])
            [].Close()

ça marche tel quel ?

Mais n'y a t'il pas un moyen plus simple de le faire?

Je pense que c'est la procédure habituelle..
-> Lecture du fichier
-> Analyse du contenu
-> Modification
-> Ecriture du fichier

[herroP]

Ne peut-on pas tout simplement faire un streamwriter qui va additionner le contenu avec une valeur?