[R] Définir le nombre de caractères dans un txt

[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

[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.

[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")