Discussion :

[toutounesan]

Bonjour
J'aimerais savoir comment ajouter du texte dans un fichier en l'insérant dans une nouvelle ligne;
.
car le problème c'est que j'utilise writline(string) mais ça ajoute à la suite

Code :

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

1
2
3
 
Dim objwriter As new= system.IO.StreamWriter("test.txt")
objwriter.WriteLine("nouvelle ligne)"

Merci

[Gurdil le nain]

Tu fais juste ça ? Parce que là il va réécrire par dessus la première ligne...

Pour être sur de passer à la ligne tu peux faire :

Code :

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

objwriter.WriteLine(vbcrlf & "nouvelle ligne")

[toutounesan]

PAR CONTRE MAINTENANT ça insère une ligne vide, pourquoi?
C'est quoi le code que je cherche

[Gurdil le nain]

Essayes juste avec un

Code :

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

vbCr

C'est quoi le code que je cherche

Bonne question...

[toutounesan]

Je ne comprends pas ça marche dans un projet juste dédié à ce code

Voilà le code qui ne marche pas comme je veux, il ne saut pas de ligne ou si je mets la nouvelle ligne il saut une ligne entière vide:

Code :

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

1
2
3
4
5
6
7
 'mode écriture avec un nouveau fichier
            Dim objWriter As New System.IO.StreamWriter(CurDir() + Logins.c_s_Path, True)
            'Ecriture de: login + mot de passe crypté + niveau d'accès
            Dim str As String = Tbx_NewLog.Text + "," + Log.Cryptage(Tbx_NewPw.Text) + "," + AccessLevel
            objWriter.Write(str)
            objWriter.Close()   'met à nul l'objet dédié au flux
            'Else

j'ai cru avoir trouvé en mettant WriteLine à la place de Write mais ça ne marche pas comme je veux

[Gurdil le nain]

Mais ton fichier va contenir quelque chose ou pas avant l'écriture ?

C'est cela qu'il faut tester :
- Si le fichier est vide, tu ajoutes normalement
- Si le fichier n'est pas vide, tu lis son contenu, ajoutes ce que tu veux à la fin (en mettant un vbCrLf pour sauter une ligne) et tu réécris tout.

(Débrouilles toi pour le code, et reviens poster si tu as une erreur )

[toutounesan]

toujours un saut de ligne vide.
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim objWriter As New System.IO.StreamWriter(CurDir() + Logins.c_s_Path, True)
            'Ecriture de: login + mot de passe crypté + niveau d'accès
            Dim str As String = Tbx_NewLog.Text + "," + Log.Cryptage(Tbx_NewPw.Text) + "," + AccessLevel
            'Test si le string à écrire n'est pas vide
            If (str <> "") Then
                objWriter.WriteLine(vbCrLf)
                objWriter.WriteLine(str)
            Else
                Dim objreader As New System.IO.StreamReader(CurDir() + Logins.c_s_Path)
                objWriter.Write(objreader.ToString + vbCrLf)
                objWriter.Write(str)
            End If

[Gurdil le nain]

Tu ne testes pas la bonne chose :

Il faut que tu essayes de lire ton fichier s'il existe (il me semble que tu ne le lis pas correctement), si le résultat de la lecture est vide, tu ajoutes normalement, sinon tu ajoutes un vbCrLf à la fin du résultat et tu ajoutes les nouvelles données.

[toutounesan]

mon code qui ne marche toujours pas:

Code :

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

1
2
3
4
5
6
7
8
 Dim objreader As New System.IO.StreamReader(CurDir() + Logins.c_s_Path)
            If (objreader.ToString <> "") Then
 
                objWriter.Write(str)  'str étant un string
            Else
                objWriter.Write(vbCrLf)
                objWriter.Write(str)
            End If

voilà mon dernier code en eniter en plus maintenant j'ai une erreur dans le flux:

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
 
 
  If (File.Exists(CurDir() + Logins.c_s_Path) = True) Then
                'mode écriture avec un nouveau fichier
                Dim objWriter As New System.IO.StreamWriter(CurDir() + Logins.c_s_Path, True)
                'Ecriture de: login + mot de passe crypté + niveau d'accès
                Dim str As String = Tbx_NewLog.Text + "," + Log.Cryptage(Tbx_NewPw.Text) + "," + AccessLevel
                'Test si le string à écrire n'est pas vide
                Dim objreader As New System.IO.StreamReader(CurDir() + Logins.c_s_Path)
                If (objreader.ToString = "") Then
                    objreader.Close()
                    objWriter.WriteLine(str)
                Else
                    objWriter.Write(vbCrLf)
                    objWriter.Write(str)
                End If
                objWriter.Close()   'Dmet à nul l'objet dédié au flux
 
            Else
                Dim objWriter As New System.IO.StreamWriter(CurDir() + Logins.c_s_Path)
                Dim str As String = Tbx_NewLog.Text + "," + Log.Cryptage(Tbx_NewPw.Text) + "," + AccessLevel
                'Test si le string à écrire n'est pas vide
                objWriter.WriteLine(str)
                objWriter.Close()
 
            End If

mon programme bogue sur la lecture du fichier (mon fichier étant vide)

Code :

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

Dim objreader As New System.IO.StreamReader("test.txt")

[Gurdil le nain]

Bon, je me suis mis à tester du coup
En effet, le vbCrLf fait un saut de ligne et le vbCr ne fait rien...
Donc je sais pas trop, et j'ai plus le temps là...je regarderais demain ptetre

[toutounesan]

J'ai réessayé mais toujours pas ce que je voudrais:

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
 
 Dim str As String = Tbx_NewLog.Text + "," + Log.Cryptage(Tbx_NewPw.Text) + "," + AccessLevel
            Dim result As String = ""
            If File.Exists(CurDir() + Logins.c_s_Path) Then
                Dim Objreader As New StreamReader(CurDir() + Logins.c_s_Path)
                result = Objreader.ReadToEnd
                Objreader.Close()
            End If
 
            Dim objWriter3 As New StreamWriter(CurDir() + Logins.c_s_Path)
            If result.Equals("") Then
                objWriter3.Write(str)
            Else
                objWriter3.WriteLine(result & Chr(13) & str)
            End If
            objWriter3.Close()

[chrismonoye]

Bonjour,
logiquement, il n'y a pas besoin de ces contrôles conditionnels.
Si le fichier existe, il peut être remplacé ou recevoir des ajouts. Si le fichier n'existe pas, le constructeur StreamWriter crée un nouveau fichier.

Ce code devrait suffire :

Code :

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

1
2
3
4
5
6
7
8
9
        Dim str As String = Tbx_NewLog.Text & "," + Log.Cryptage(Tbx_NewPw.Text) & "," + AccessLevel
        'Dim str As String = "Bibi, #'fkj123, true"
 
        Using sw As StreamWriter = New StreamWriter(CurDir() & Logins.c_s_Path, True)
            'Using sw As StreamWriter = New StreamWriter(Application.StartupPath & "\Logins.txt", True)
            sw.WriteLine(str)
            sw.Flush()
            sw.Close()
        End Using

J'ai testé avec les lignes mises en commentaires et ça fonctionne.

[toutounesan]

code qui marche:

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
 
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
 
        'Niveau d'accès
        Dim AccessLevel As String = Cbx_AccessLevel.SelectedIndex + 1
 
        Try
            'string à écrire dans le fichier: login + mot de passe crypté converti en string + niveau d'accès
            Dim str As String = Tbx_NewLog.Text + "," + Log.Cryptage(Tbx_NewPw.Text) + "," + AccessLevel
 
            'Ecriture avec mode append=suite àla fin du fichier
            Dim objWriter3 As New StreamWriter(CurDir() + Logins.c_s_Path, True)
 
            'Ecriture du string
            objWriter3.WriteLine(str)
 
            'Fermeture du flux
            objWriter3.Close()
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

après une bonne nuit de sommeil l'esprit est plus fort