Discussion :

[benoth08]

Bonjour,
je souhaiterais lire un fichier txt toutes les deux lignes et les stockés dans un tableau en utilisant un dim tab(x).

Le problème c'est que je ne sais pas comment faire au niveau de mon readline.

Le fichier txt se présente comme suit :

23
45
89
56
...

C'est des nombres et je dois extraire de ce fichier les chiffres qui se trouve toutes les deux lignes.

[hackoofr]

Bonjour,
je souhaiterais lire un fichier txt toutes les deux lignes et les stockés dans un tableau en utilisant un dim tab(x).

Le problème c'est que je ne sais pas comment faire au niveau de mon readline.

Le fichier txt se présente comme suit :

23
45
89
56
...

C'est des nombres et je dois extraire de ce fichier les chiffres qui se trouve toutes les deux lignes.

Il faut voir la méthode Skipline

[hackoofr]

Voici un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Const ForReading = 1
On Error Resume Next
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\test.txt", ForReading)
   while Not f.AtEndOfStream 
   f.SkipLine
   Ligne = f.ReadLine
   MsgBox Ligne
   Wend
   f.close

[hackoofr]

Code :

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

1
2
3
4
5
6
7
8
9
Const ForReading = 1
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\test.txt", ForReading)
   st=f.ReadAll
   Tab = split(st,vbcrlf)
   For i = lbound(Tab) to ubound(Tab) step 2
   MsgBox Tab(i),64,""
   Next

[benoth08]

Merci je vais tester ceci et regarder le lien que tu m'as donné.

MK

[pitchalov]

Bonjour,

Désolé d'arriver après la bataille.
Je vous propose une autre solution alternative en passant par un tableau, permettant de choisir si on veut afficher les lignes paires ou impaires :

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
16
17
18
19
20
21
22
Const STR_FILE_PATH = "c:\test.txt"
Const INT_PAIR = 0
Const INT_IMPAIR = 1 
Const FOR_READING = 1
 
Dim objFso, objFile, arrFileContent, intLineCounter
 
Set objFso = CreateObject("Scripting.FileSystemObject")
intLineCounter = 0
Redim arrFileContent(intLineCounter)
On Error Resume Next
Set objFile = objFso.OpenTextFile(STR_FILE_PATH, FOR_READING)
Do Until objFile.AtEndOfStream
	Redim Preserve arrFileContent(intLineCounter)
	arrFileContent(intLineCounter) = objFile.ReadLine
	intLineCounter = intLineCounter + 1
Loop
objFile.Close
On Error Goto 0
For intLineCounter = 0 To UBound(arrFileContent)
	If (intLineCounter + 1) Mod 2 = INT_IMPAIR Then WScript.Echo "Ligne n° " & intLineCounter + 1 & vbCrLf & arrFileContent(intLineCounter)
Next

Cette autre solution n'est ni forcément meilleure ni forcément moins bonne, tout dépend de l'utilisation, je l'ai juste posée en complément des codes de hackoofr.

Bonne continuation.