Page 1 sur 1
[R] Définir le nombre de caractères dans un txt
Posté : mer. 28 avr. 2010 14:00
par alex1205
Bonjour
J'aimerai savoir le nombre de caractères dans mon fichier txt
Une personne m'a dit qu'il y avait une fonction tournant sur String quelque chose
Merci à l'avance
Alex1205
Re: [..] Définir le nombre de caractères dans un txt
Posté : mer. 28 avr. 2010 14:20
par peuchere83
Bonjour,
il te suffit de faire une boucle de lecture ligne à ligne de ton fichier txt et d'utiliser à l'interieur la fonction StringLen qui te retourne le nombre de caractère.
Pour ta boucle tu peux utiliser soit _FileListtoArray ou quelque chose du genre :
► Afficher le texte
Code : Tout sélectionner
$file = FileOpen("c:\test.txt" , 0)
; test si le fichier peut etre ouvert en lecture
If $file = -1 Then
MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier")
Exit
EndIf
SplashTextOn("", "Traitement du fichier", 450, 70, @DesktopWidth-450, 0, 16, "Times New Roman", 12, 800)
$NbreCaractereTotal = 0
; Lecture du fichier ligne à ligne jusqu'au eof + compte du nombre de ligne
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$NbreCaractere = StringLen($line)
$NbreCaractereTotal = $NbreCaractereTotal + $NbreCaractere
Wend
msgbox(0,"",$NbreCaractereTotal)
FileClose($file)
Je n'ai pas testé ce code.
Bonne journée.
Re: [..] Définir le nombre de caractères dans un txt
Posté : mer. 28 avr. 2010 14:59
par GMib
Code : Tout sélectionner
$file = FileRead ( "file.txt" )
MsgBox(0,"Caracteres","Il y a "& @extended & " caracteres dans file.txt")
MsgBox(0,"Caracteres","sans compter les retours a la ligne, Il y a "& StringLen(StringReplace(StringReplace($file,@CR,""),@LF,"")) & " caracteres dans file.txt")