Page 1 sur 1

[R] Fichier text ligne par ligne

Posté : lun. 23 mars 2009 19:50
par NewHere
Bonjour,

comment faire pour selectionné ou mettre dans une variable ligne par ligne les lignes d'un fichier.txt

Cordialement,
NewHere

Re: [..] Fichier text ligne par ligne

Posté : lun. 23 mars 2009 20:10
par jbnh
je ne comprend pas... Fileread ? FilereadLine ?

Re: [..] Fichier text ligne par ligne

Posté : lun. 23 mars 2009 20:16
par Max5
Si j'ai bien compris, ceci devrait convenir :

Code : Tout sélectionner

#Include <File.au3>

$fichier = "fichier.txt"
$nbr_lignes = _FileCountLines($fichier)

$fp = FileOpen($fichier, 0)

$contenu = ""
For $i = 1 To $nbr_lignes
    $lignesX = FileReadLine($fp, $i)
    $contenu = $contenu & $lignesX & @CRLF
Next

FileClose($fp)

MsgBox(0, "", $contenu)
 

Re: [..] Fichier text ligne par ligne

Posté : lun. 23 mars 2009 20:24
par jbnh
Dans ce cas ceci convient aussi :

Code : Tout sélectionner

#include <string.au3>

;------------------------------------------------
$filename = 'test.txt'
;------------------------------------------------

$file = FileOpen($filename, 0)
$read = FileRead($file)
$line = StringSplit($read, @CR)

For $i = 1 To $line[0]

$var = FileReadLine($file, $i)

Endif

Next
FileClose($filename)
Max, merci d'éviter d'utiliser le code couleur pour les section Aide, Gui et demande de création de script merci

Re: [..] Fichier text ligne par ligne

Posté : lun. 23 mars 2009 20:32
par Max5
jbnh a écrit : Max, merci d'éviter d'utiliser le code couleur pour les section Aide et Gui merci
Autant pour moi.

J'ai modifié mes post concerné. ;)

Re: [..] Fichier text ligne par ligne

Posté : lun. 23 mars 2009 20:32
par NewHere
Oui mes comment faire pour que le script lise une ligne à chaque tour de boucle ?

PS : comment faire pour utiliser la ligne ? Comment la stocker dans une var ?

Re: [..] Fichier text ligne par ligne

Posté : lun. 23 mars 2009 20:47
par jbnh
Dans chacun de nos deux codes, le script lit en boucle le txt ligne par ligne.
Merci d'être plus précis dans votre demande...

Re: [..] Fichier text ligne par ligne

Posté : lun. 23 mars 2009 20:49
par ani

Code : Tout sélectionner

#Include <Array.au3>
#Include <File.au3>
;déclaration des variables
Dim $aRecords, $Fichier, $Ligne,$Ligne_lu
$fichier = 'test.txt'
;Lecture du fichier et mise en tableau
If Not _FileReadToArray($Sortie1,$aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

_ArrayDisplay($aRecords)

Dim $Ligne[$aRecords[0]]
$Ligne_lu = 0
;boucle for next
for $x = 1 to $aRecords[0]
    $ligne[$Ligne_lu] = $aRecord[$x]
    $Ligne_lu += 1
Next

ArrayDisplay($Ligne)
=> $aRecords ou $Ligne , stockera chaque ligne (y a pas mal d'exemple sur le forum)

bonne continuation ;)

Re: [..] Fichier text ligne par ligne

Posté : lun. 23 mars 2009 21:31
par NewHere
Merci :)