[R] Compter le nombre de mot dans un fichier texte

[franck99]

Bonjour,

Etant débutant sur Autoit je sollicite votre aide.
Après plusieurs recherches sur le forum je n'ai pas trouvé de solution.

Mon objectif est de compter le nombre de fois qu'apparaît le mot open dans un fichier texte.
J'ai commencé par :

► Afficher le texte

Code : Tout sélectionner

$mot = open
$file = FileOpen("" & $cheminfichierp & "" & $nomfichiern & "", 0)
$fs1 = FileRead( "" & $file & "" )
$len = StringLen($mot)
 

Merci d'avance.

[sylvanie]

Bonsoir,
Il me semble que le sujet avait été abordé qq part, mais je ne sais plus où ...
En attendant voici 2 méthodes de recherche en mode non case sensitif, une par stringinstr l'autre par stringregexp

:

► Afficher le texte

Code : Tout sélectionner

;lecture du fichier en un coups
$text="open"
$len_text=StringLen($text)
$contenu=FileRead("toto.txt")

;méthode strininstr
;on cheche la première occurence
$occurence=1
$offset=StringInStr($contenu,"open",0,$occurence)
$current_offset=0
While $offset<>0 
    $occurence+=1; on va chaercher la suivante
    ;$contenu=StringRight($contenu,StringLen($contenu)-$offset-$len_text); on saute toute la partie déjà traitée à savoir : l'offset retourné + la longueur de "open"
    ;ConsoleWrite($contenu&@CRLF)
    $current_offset+=$offset
    $offset=StringInStr($contenu,$text,0,1,$current_offset) ; on cherche l'occurence suivante
WEnd

MsgBox(0,"résultat",$text&" a été trouvé "&$occurence-1&" fois")

;méthode regexp
$resul=StringRegExp($contenu,"(?i)"&$text,3)
If IsArray($resul) Then
    $occurence=UBound($resul)
Else
    $occurence=0
EndIf
MsgBox(0,"résultat",$text&" a été trouvé "&$occurence&" fois")

[moutelous]

Bonjour,

Juste une toute petite précision : pour le regex je remplacerais

Code : Tout sélectionner

$resul=StringRegExp($contenu,"(?i)"&$text,3)

par

Code : Tout sélectionner

$resul=StringRegExp($contenu,"(?i)\b"&$text&"\b",3)

pour éviter de compter des occurrences de "open" inclus dans un mot (openbar par exemple )

A+

[sylvanie]

effevtivement. du coups ceci reste aussi vrai avec le stringinstr, cependant c'est plus délicat à peaufiner. Finalement qui a dit que les expressions régulières étaient compliquées

[Tlem]

[jbnh]

Ca me semble bizarre mais... j'ai l'impression qu'il y a moyen en deux lignes:

Code : Tout sélectionner

$array = stringsplit('Salut ca va oui moi ca va bien', ' ')
MsgBox(0x0, "total", number(UBound($array)-1))

[moutelous]

Bonjour,

@ jbnh ....

Dur dur le matin ... il me semble que tu as lu la demande de frank99 un peu en diagonale ....

Il faut en fait compter le nombre total d'un mot bien particulier dans un fichier texte ....

Mon objectif est de compter le nombre de fois qu'apparaît le mot open dans un fichier texte.

A+

[franck99]

bonjour,

Un grand merci à vous tous : moutelous,jbnh,tlem,sylvanie... et tout le forum
Je trouve la méthode regex vraiment top.

Par contre, j'ai du mal avec IsArray ces tableaux comment se représente-t-il, une colonne avec un ID et une autre avec une ligne ou des mots du fichier texte ?

Merci.

[jbnh]

@moutelous: haha j'ai bien rit, j'ai carrément pas lu en diagonal j'ai lu que le titre !!! complètement a coté de la plaque le jbnh

@franck99:

Isarray permet enfait de seulement valider le fait que notre résult soit bien une array pour continuer à faire une suite d'actions et comme tu l'as bien dit: un tableau comprend une colonne avec 'l'ID' ( result[0] , [1] etc.) et le texte auquel il correspond (en l'occurrence ici que des open vu que c'est le mot qu'on cherche).

Vla l'exemple:

Code : Tout sélectionner

#include <array.au3>
$text="open"
$len_text=StringLen($text)
$contenu=FileRead("toto.txt")



;méthode regexp
$resul=StringRegExp($contenu,"(?i)"&$text,3)
If IsArray($resul) Then
_ArrayDisplay($resul, 'open')
EndIf
 

Et en bonus ma méthode mais complète cette fois ci :

Code : Tout sélectionner

$text="open"
$len_text=StringLen($text)
$contenu=FileRead("toto.txt")

$array = stringsplit($contenu, ' ')

If IsArray($array) Then

$i=0
$a=0
    Do
        If $array[$i] = $text Then
        $a =$a+1
        Endif
    $i=$i+1
    Until $i = Number(UBound($array))
EndIf

MsgBox(0,"résultat",$text&" a été trouvé "&$a&" fois")

[moutelous]

Bonsoir,

@jbnh ....

Ton bonus fonctionne bien dans le cas d'une phrase avec espace .... il fonctionne légèrement moins bien dans le cas d'un texte où les occurrences peuvent être séparés par des virgules, point virgules ou autres retours chariots.


A+