Discussion :

[Yepes]

Bonjour à tous,
Je voudrais gérer le texte présent dans un fichier, ce que je voudrais faire c'est effacer le contenu de ce fichier puis écrire dedans une phrase.
J'ai réussi à écrire dedans mais il m'écrit mon message à la suite du texte déja présent.
Le code que j'avais utiliser :

Code :

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

1
2
3
Dim str_texte As String = "set realmlist wowdestiny.servegame.com"
IO.File.ReadAllLines("realmlist.wtf")
IO.File.AppendAllText("realmlist.wtf", "set realmlist wowdestiny.servegame.com")

Mais moi je voulais effacer ce contenu donc j'ai fait un code pour supprimer le fichier puis le recréer en enfin écrire dessus mais lorsque j'exécute mon programme il me met un message d'erreur :

Conversion from string "realmlist.wtf" to type 'Integer' is not valid.

Le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
IO.File.Delete("realmlist.wtf")
        IO.File.Create("realmlist.wtf")
        Dim str_texte As String = "set realmlist wowdestiny.servegame.com"
        FileClose("realmlist.wtf")
        IO.File.ReadAllLines("realmlist.wtf")
        IO.File.AppendAllText("realmlist.wtf", "set realmlist wowdestiny.servegame.com")
        MessageBox.Show("Realmlist changer avec succès. Cliquer sur jouer pour vous connectez.")

Merci pour votre aide.

[smyley]

Pour lire et écrire dans un fichier texte : FAQ.
De plus, pour toujours remplacer son contenu et pas simplement ajouter du texte à la fin (en utilisant le lien vers la FAQ)

Code :

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

New StreamWriter(nomDuFichier,false)

cf. MSDN

[Yepes]

Je suis sous VB 2008 donc certaines commande ne sont pas tout à fait les mêmes

alors j'ai fait ce 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
31
Dim sr As IO.StreamReader
        Dim sw As IO.StreamWriter
        Dim sLine As String
        Try
            If Not IO.File.Exists("realmlist.wtf") Then
                'Le fichier n'existe pas. On le crée
                sw = New IO.StreamWriter("realmlist.wtf",false)
                sw.WriteLine("set realmlist wowdestiny.servegame.com", _
     DateTime.Now.ToLongDateString, _
     DateTime.Now.ToLongTimeString)
                MessageBox.Show("Realmlist changer avec succès")
                sw.Close()
                sw = Nothing
                'Remarque : On peut utiliser sw = File.AppendText(NomFichier) pour ajouter
                'du texte à un fichier existant
            End If
            'Ouverture du fichier et Ecriture du contenu du fichier sur la console
            sr = New IO.StreamReader("realmlist.wtf")
            Console.WriteLine("set realmlist wowdestiny.servegame.com")
            sLine = sr.ReadLine()
            While Not sLine Is Nothing
                Console.WriteLine(sLine)
                sLine = sr.ReadLine()
            End While
            Console.WriteLine("")
        Finally
            'Fermeture streamreader
            If Not IsNothing(sr) Then sr.Close()
            'Fermeture streamwriter
            If Not IsNothing(sw) Then sw.Close()
        End Try

Mais il ne modifie en rien le texte du fichier

Merci de votre aide

[smyley]

Code :

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

If Not IO.File.Exists("realmlist.wtf") Then

Peut être parce que tu n'écris dedans que s'il n'existe pas ...

[Yepes]

ah oui et comment faire pour écrire quand il existe déjà ? (désolé je débute en Visual Basic )

[smyley]

Ben tu supprimes la vérifcation ! (If ... Then ... End If)