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