lecture ecriture dans un fichier txt

bonjour,

je voudrais savoir comment on recupere une ligne bien precise (ex ligne5.. peu importe!), dans un fichier texte
pour m'en servir de donnée
idem dans le sens inverse, quand je rentre unevaleur dans une textbox je voudrait qu'elle aille se mettre dans un autre fichier texte egalement a une ligne bien precise

merci!

Bonjour,
Pour récupérer la 5 ème ligne d'un fichier dans un textBox.

Private Sub Command1_Click()
Dim nbrLigne, Ligne
Text1 = ""
nbrLigne = 0
Open "C:\TonFichier.txt" For Input As #1
Do While Not EOF(1)
   Line Input #1, Ligne
      nbrLigne = nbrLigne + 1
      If nbrLigne = 5 Then
            Text1 = Text1 & Ligne
      End If
DoEvents
Loop
Close #1
End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée.

Bonjour,
  Essai ce code ; le lecture apartir d'un fichier txt, pour replir une BD.

Open Trim(fic.Text) For Input As #1 ' fic.text va contenir le nom du fichier a ouvrir
counter = 0
Do While Not EOF(1)
Line Input #1, lignetexte
  If Mid(lignetexte, 3, 6) <> Space(6) Then
     valeur = Trim(Mid(lignetexte, 3, 6))
  End If
  SQL = "insert into Nom_table (Chp1, ....,Chpn)"
  SQL = SQL & " values ('" & valeur & "'" & ","
  If Trim(Mid(lignetexte, 38, 12)) Like "Au mieux" Then ' ceci est un test sur le contenu de la ligne de text apartir de 38ième caractère sur 12 position
   SQL = SQL & "0,"
  Else
   cour = Trim(Mid(lignetexte, 38, 12))
   While InStr(1, cour, " ") <> 0
      posblanc = InStr(1, cour, " ")
      cour = Mid(cour, 1, (posblanc - 1)) _
              + Mid(cour, (posblanc + 1), Len(cour))
   Wend
     SQL = SQL & cour & ","
  End If
  If Mid(lignetexte, 51, 12) <> Space(12) Then
     qachat = Trim(Mid(lignetexte, 51, 12))
     While InStr(1, qachat, " ") <> 0
      posblan = InStr(1, qachat, " ")
      qachat = Mid(qachat, 1, (posblan - 1)) _
              + Mid(qachat, (posblan + 1), Len(qachat))
     Wend
   SQL = SQL & qachat & ","
   SQL = SQL & "'Achat')"
   db.Execute SQL, dbSQLPassThrough
   End if
Loop
db.Close
Close #1

et pour repondre à ton besoin, il faut juste ajouter :
Do While Not EOF(1)
for i = 1 to nbrligne  ' avec nbrligne = 5
   loop
   i = i+1
next

Bonne chance