Discussion :

[rober]

bonsoir,
je veux ecrire dans un fichier texte des donnees qui s'ajoutent ligne a pres ligne.
le pb est que chaque foix que je rajoute des donnees elle se mettent a la ligne mais il y a une autre ligne vide qui s'ajoute
exemple:
"donnes ecrites sur le fichier texte"
|CLIENTS
C:\|HAHA
C:\cao|TATA la ligne est cree avec n espaces
une ligne est cree sans espace
C:\|TITI une ligne cree
une ligne est cree sans espace

ce qui me provoque une erreur quand ensuite je relis les donnees de ce fichier

pouvez vous m'aider pour supprimer cette ligne vide
Merci de votre aide
Rober

[Delbeke]

Donnes nous un extrait de ton code, que l'on puisse se rendre compte de ta façon de procéder, sinon, on peut rien faire pour toi.

[rober]

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
Private Sub Sauver_Click()
Dim place1 As String
place1 = "C:\cao\EspaceProE.ini"
Dim message(255) As String 'Le massage que tu a écrit (Max de 255)
Dim ligne As Integer 'La ligne ou tu la écrit
If Intro.Text_create_client.text = "" Then
ElseIf Intro.Text_create_client.text <> "" Then 'Si tu a écrit de quoi la procédure pour l'entré dans le fichier txt commence
    Open place1 For Append As #1
    ligne = ligne + 1 'Calcul la ligne
        If ligne >= 255 Then 'Si tu est rendu a la ligne 255 bien il tempeche d'écrire
        Else
            message(ligne) = Intro.Text_create_client.text 'Entrer le texte dans la variable message
            text = Intro.Text_chemin_rep_client.text & "|" & Intro.Text_create_client.text
            Print #1, vbNewLine, text  'Inscrit le text dans le fichier
            MsgBox "Le text '" & text & "' a bel et bien été entré."
            Intro.Text_create_client.text = "" 'Vide les 2 textbox
        End If
    Close #1 'Ferme le fichier
End If
Close

[Delbeke]

Je pense que l'erreur vien de cette ligne

Code :

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

Print #1, vbNewLine, Text

Je verrais plutot

Code :

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

Print #1,  Text

l'absence de pontuation à la fin de la ligne implique que un CrLf est ajouté automatiquement a la fin de Text, pas besoin d'en rajouter un autre devant