FICHIER TEXTE / access

Question

Salut à tous !!

qqun connait la procédure pour ouvrir un fichier texte en ecriture, et supprimer la premiere ligne par exemple  et ensuite enregistrer ??

merci

acive · Answer

Salut, 
Prends ton temps à écrire tes questions, on doit deviner ce que tu cherches à faire..
Alors si j'ai bien compris tu veux : ouvrir un fichier texte, stocker la premiere ligne dans une constante string (pour ensuite l'enregistrer dans une base Access), et puis l'éffacer du fichier texte? c'est bien ca?

Private Sub Command1_Click()
Dim Num As Integer
Dim Ligne(500) As String '500 = au nobre maximum de lignes dans le txt

'Lit toutes les lignes du fichier txt et les stoque dans la contante ligne(x)
Open "c:\fichier.txt" For Input As #1
   Num = 0
   Do While Not EOF(1)
      Num = Num + 1
      Line Input #1, Ligne(Num)
   Loop
Close
Ligne(Num + 1) = "*"
'éfface le fichier txt
Kill "c:\fichier.txt"
're-crée le fichier txt mais sans la ligne n° 1
Open "c:\fichier.txt" For Append As #1
   For rt = 2 To 499
      If Ligne(rt) = "*" Then
         Exit For
      Else
         Print #1, Ligne(rt)
      End If
   Next rt
Close
'enregistre la ligne n°1 dans access
adodc1.Recordset("Ligne") = Ligne(1)
adodc1.Update

End Sub

A +

A.C.I.V.E SARL
Automatismes Conception Informatique Vidéo Electronique

elbrahimo · Answer

salut ..merci pour ton aide mais en faite c'est beaucoup plus simple que ça je pense, tu as raison, je vais être plus claire :

en faite j'ai un fichier texte qui contient des données séparées par un ";"

 j'arrive a importer ces données dans access
avec 

obj_Access.DoCmd.TransferText acImportDelim, ";", Nom_Table, fichiertexte, True 

sauf que le fichier texte en question a en premiere ligne une phrase inutile et encombrante que je dois supprimer manuellement pour que l'import se séroule correctement

ma question est de savoir comment supprimer cette premiere ligne par du code 

merci de m'aider et si je ne suis pas toujours claire je reste dispo pour toutes questions

a+

acive · Answer

Re..
OK alors sous VB6 tu fais une seule fois ca:

Private Sub Command1_Click()
'Lit toutes les lignes du fichier txt et les stoque dans la contante ligne(x)
Open "c:\fichier.txt" For Input As #1
Num = 0
Do While Not EOF(1)
Num = Num + 1
Line Input #1, Ligne(Num)
Loop
Close
Ligne(Num + 1) = "*"
'éfface le fichier txt
Kill "c:\fichier.txt"
're-crée le fichier txt mais sans la ligne n° 1
Open "c:\fichier.txt" For Append As #1
For rt = 2 To 499
If Ligne(rt) = "*" Then
Exit For
Else
Print #1, Ligne(rt)
End If
Next rt
Close
end sub

Et ta premiere ligne est supprimée dans le txt..

A+
A.C.I.V.E SARL
Automatismes Conception Informatique Vidéo Electronique

FICHIER TEXTE / access

3 réponses

Discussions similaires