Éffacer premiere ligne d'un txt

Question

Bonjours je cherche depuis hier une commande qui ouvre un txt dans un emplacement spécifique et qui delete la premiere ligne du txt. Merci a l'avance.

cs_ShayW · Answer

Bonsoir

Avec la gomme lol

Qui ouvre un texte c.a.d un fichier txt ?
à un endroit spécifique ?
Expliques mieux ta question

rsx602 · Answer

Bon en gros mon programme ouvre un txt exemple "C:	est.txt" et je cherche a faire deleter la premiere ligne et faire monter la deuxieme ligne en premiere ligne! plus compréhensible ?:P

cs_ShayW · Answer

Bonjour 

 Private Sub ReadWriteFile2()
Dim strg As String
Dim allstr As String
Dim nfile As Integer
Dim firstline As Boolean
firstline = True
iter = 0
 nfile = FreeFile
 allstr = ""
 Open "E:\ReadFile\TEXT2.TXT" For Input As #nfile
 Do While Not EOF(nfile)
    Line Input #nfile, strg
    If Not firstline Then
     allstr = allstr + strg
    End If
    firstline = False
 Loop
Close #nfile
 nfile = FreeFile
 Kill "E:\ReadFile\TEXT2.TXT"
  Open "E:\ReadFile\TEXT2.TXT" For Append Shared As #nfile
   Print #nfile, allstr
  Close #nfile
End Sub

Bonne prog

cs_ghuysmans99 · Answer

@ShayW : C'est pas interdit de checker ton code ... Là tu massacres le fichier original .

Ceci devrait fonctionner : http://pastebin.com/asjsVrr2

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

cs_ShayW · Answer

Bonsoir ghuysmans99
Quel est le problème si je massacre
le fichier original puisque je l'écris après

cs_ghuysmans99 · Answer

Tu fous en l'air le fichier en retirant tous les passages à la ligne. Faudrait peut-être que tu testes ton code de temps en temps 

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

cs_ShayW · Answer

Salut
Quand j'ai testé le code j'ai verifié TEXT2.TEXT
après l'éxecution de la sub pour la premiere fois il n'était pas massacré seulement après la
deuxième fois  j'ai corrigé

 Private Sub ReadWriteFile2()
Dim strg As String
Dim allstr As String
Dim nfile As Integer
Dim firstline As Boolean
firstline = True
iter = 0
 nfile = FreeFile
 allstr = ""
 Open "E:\ReadFile\LICENSE.TXT" For Input As #nfile
 Do While Not EOF(nfile)
    Line Input #nfile, strg
    If Not firstline Then
     allstr = allstr + strg + vbCrLf
    End If
    firstline = False
 Loop
Close #nfile
 nfile = FreeFile
  Open "E:\ReadFile\LICENSE.TXT" For Output As #nfile
   Print #nfile, allstr
  Close #nfile
End Sub


Merci et bonne prog

cs_ghuysmans99 · Answer

Il ne faut pas manipuler des chaines avec + mais avec & . Mais bon, le code que j'ai posté est correct 

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

Éffacer premiere ligne d'un txt

8 réponses

Votre réponse

Discussions similaires