Encoder un texte & modifier le contenu d'un .txt

Version imprimable

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:

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:

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?

03/05/2012, 18h08
herroP
J'ai trouvé la solution à l'encodage il fallait mettre à mon stream:
Code:

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?
03/05/2012, 23h00
shayw

Salut

Citation:

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 ?
04/05/2012, 16h08
herroP

Le contenu est 5 le chiffre.

Code:

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 ? 8O

Citation:

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

04/05/2012, 16h40
herroP

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

Citation:

Envoyé par herroP

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

Le streamwriter va écrire dans le fichier mais sans savoir ce qu'il y a dedans. Pour connaitre le contenu, il te faut le streamreader.

Par contre ton code peut être plus propre et plus lisible:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        Dim file As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\[].txt"
        Dim line As String = ""
 
        Try
            'Lecture de la premiere ligne du fichier
            Dim sr As StreamReader = New StreamReader(file)
            line = sr.ReadLine
            sr.Close()
 
            'Si line = "5" on ajoute 5, sinon rien
            If IsNumeric(line.Trim) AndAlso Integer.Parse(line.Trim) = 5 Then
                line = (Integer.Parse(line.Trim) + 5).ToString
 
                'Reecriture du fichier
                Dim sw As StreamWriter = New StreamWriter(file)
                sw.WriteLine(line)
                sw.Close()
            End If
 
        Catch ex As Exception
            Console.WriteLine("Le fichier n'a pas pu être ouvert.")
        End Try

PS: J'ai essayé ton code avant et si le fichier contenait "5" avant, après il contenait "55".

04/05/2012, 17h28
herroP

D'accord merci beaucoup pour ton aide.