Discussion :

[biquet]

Bonjour à tous,

je travaille en VB6 et je n'arrive pas à comprendre pourquoi lorsque je fias un code comme celui-ci, il me rajoute toujours un chr(13) + chr(10) en début de fichier. Donc, a chaque fois qu'un utilisateur ouvrira le fichier et le modifiera, un chr(13) + chr(10) s'ajoitera en début de fichier

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
 
Open "C:\........" + entarchive + ".dat" For Input As #1
        i = 0
        While Not EOF(1)
            i = i + 1
            Line Input #1, x
                If x <> nomprodarchive Then
                prodfour2 = prodfour2 + LFCR + x
                End If
        Wend
    Close #1
 
    Open "C:\........." + entarchive + ".dat" For Output As #1
        Print #1, prodfour2
    Close #1

merci par avance de votre aide.

[Delbeke]

Simple question de logique
Au premier passage de ta boucle
X contient ce que tu viens de lire dans le fichier
prodfour2 ne contient rien
donc

Code :

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

prodfour2 = prodfour2  & vbcrlf & x

met dans prodfour un retourchariot+line feed avant d'y metre la valeur lue (x)

[sovo]

en fait le probleme vient d'ici

Code :

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

1
2
3
If x <> nomprodarchive Then
prodfour2 = prodfour2 + LFCR + x
End If

qu'as tu dans prodfour2 avant cette boucle ?? je presume rien, si c'est le cas alors c'est tout a fait normal que ca ce comporte ainsi car en fait voila ce que tu fait :

'prodfour2 est vide
prodfour2=prodfour2 + lfcr + x 'tu obtient "" + LFCR + x

et donc tu aura toujours un vide au debut de ton fichier. tu vois le truc ??

[Edit] Un poil apres Delbeke

[biquet]

merci pour vos réponse, je comprend mieux.

est-il possible de remedier à ce problème d'espace ?

[AlainTech]

Oui!

Et si la question suivante est "Comment?"
La réponse sera "En réfléchissant!"

Ceci n'est pas un problème de programmation mais bien d'analyse et de réflexion.

[biquet]

Je viens de trouver, et oui mes neurones se connectent de temps en temps

Il y a peut être un moyen plus facile et plus pratique mais ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Open "C:\.........\" + entarchive + ".dat" For Input As #1
        i = 0
        While Not EOF(1)
            i = i + 1
            Line Input #1, x
                If x <> nomprodarchive Then
                    If prodfour2 <> "" Then prodfour2 = prodfour2 + LFCR + x
                    If prodfour2 = "" Then prodfour2 = x
                End If
        Wend
    Close #1

a une prochaine

[AlainTech]

Plus "propre" (même si équivalent au niveau du résultat):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Open "C:\.........\" + entarchive + ".dat" For Input As #1
  i = 0
  While Not EOF(1)
    i = i + 1
    Line Input #1, x
    If Not x = nomprodarchive Then
      If prodfour2 = "" Then
        prodfour2 = x
      Else
        prodfour2 = prodfour2 + LFCR + x
      End If
    End If
  Wend
Close #1