[R] Lire un fichier ligne par ligne
Posté : jeu. 12 nov. 2020 14:52
Bonjour j'ai ça dans mon script.
Mais pourrai je savoir comment afficher le contenu de mon fichier ? Ligne par ligne ?
Cdt YuChan
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#Region ### START Koda GUI section ### Form=c:\users\administrateur\documents\bot\interface\general.kxf
Global $currentVersion = 400
Global $GUI = GUICreate("DBG" & $currentVersion & "", 595, 539, 191, 126, -1, $WS_EX_TOPMOST)
Global $Tab1 = GUICtrlCreateTab(8, 8, 577, 513)
Global $TabSheet2 = GUICtrlCreateTabItem("Dofbot G4")
Global $journalFile = FileOpen(@ScriptDir & "\dofbotJournal.txt",1)
Global $journal = GUICtrlCreateEdit("", 16, 48, 257, 329, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$WS_VSCROLL))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
$file = FileOpen("test.txt", 0)
; Vérifie si l'ouverture du fichier en OK pour la lecture
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
; Lit un caractère à la fois jusque la fin (oef) et attend
While 1
$chars = FileRead($file, 1)
If @error = -1 Then ExitLoop
MsgBox(0, "Char read:", $chars)
Wend
FileClose($file)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Cdt YuChan