READLINE ?? lire une ligne d'un fichier txt
Signaler
cs_bouboussjunior
cs_ShayW
- Messages postés
- 23
- Date d'inscription
- lundi 24 décembre 2001
- Statut
- Membre
- Dernière intervention
- 4 décembre 2002
cs_ShayW
- Messages postés
- 3258
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
- Membre
- Dernière intervention
- 3 décembre 2019
A voir également:
- Vba lire fichier texte ligne par ligne
- Readline vba - Meilleures réponses
- Vba readline - Meilleures réponses
- VBA Excel : Lecture, Modification et Enregistrement d'un fichier txt - Conseils pratiques - Visual Basic / VB.NET
- Lire un fichier texte et récupérer son contenu dans excel ✓ - Forum - Visual Basic 6
- Parcourir fichier texte (.TXT) en VBA ✓ - Forum - Visual Basic 6
- Lire une ligne spécifiée (par son N°) dans un fichier texte - Forum - Visual Basic 6
- Lire fichiers texte avec séparateur - Forum - Visual Basic
3 réponses
cs_oliver68
- Messages postés
- 117
- Date d'inscription
- lundi 17 décembre 2001
- Statut
- Membre
- Dernière intervention
- 10 mars 2003
pour ligne une ligne d'un fichier texte, moi j'utilise
line input alors ça pourrait faire
open "fichier1" for input as #1
do while not eof(1)
line input #1,ligne1
open "fichier2" for input as #2
do while not (eof2)
line input #2,ligne2
if ligne2 = ligne1 then blablabla
loop
close #2
loop
close #1
c'est à la volée comme ça, mais ça doit pas être si mauvais que ça, ça te donne une idée du principe.
@+
line input alors ça pourrait faire
open "fichier1" for input as #1
do while not eof(1)
line input #1,ligne1
open "fichier2" for input as #2
do while not (eof2)
line input #2,ligne2
if ligne2 = ligne1 then blablabla
loop
close #2
loop
close #1
c'est à la volée comme ça, mais ça doit pas être si mauvais que ça, ça te donne une idée du principe.
@+
cs_Herihaja
- Messages postés
- 1
- Date d'inscription
- lundi 15 février 2010
- Statut
- Membre
- Dernière intervention
- 3 février 2011
je peux t'aider bouboussjunior, voici le code complet en vb pour connaître chaque ligne et ses contenus
Dim arrFileLines()
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Test.txt", 1)
Do Until objFile.AtEndOfStream
ReDim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For ligne = 1 To 3
MsgBox arrFileLines(ligne)
Next
Dim arrFileLines()
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Test.txt", 1)
Do Until objFile.AtEndOfStream
ReDim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For ligne = 1 To 3
MsgBox arrFileLines(ligne)
Next