[R] Connaitre le nombre d'occurence d'un mot dans une ligne

[GhostLine]

Salut à tous !

Je reviens encore vers vous avec un de mes sempiternels problèmes de traitement de fichier plat

Voilà l'idée : je génère un fichier .CSV dans lequel je voudrais compter le nombre d'occurrences d'un mot (les fichiers CSV sont des fichiers plats préformatés pour être importés dans Excel, avec des valeurs séparées de ; ).

Comme d'hab, s'agissant de données bancaires, je ne peux pas vous donner de fichier d'exemple (désolééééééé ). Je cherche à compter indifféremment le nombre d'occurrence du mot Télécollecte et du mot Clôture .

Merci d'avance de votre aide !

[eric]

Bonjour,

Voici une solution :

Code : Tout sélectionner

$ouvrircsv = FileOpen ("C:\monfichier.csv",0) ; ouvre le fichier csv

$fichiercsv = FileRead ($ouvrircsv) ; lit le fichier csv

StringReplace($fichiercsv,"Télécollecte","Télécollecte") ; remplace Télécollecte par Télécollecte

MsgBox(4096,"nombre d'occurence",@extended) ; affiche le nombre de remplacement

FileClose ($ouvrircsv) ; ferme le fichier csv

[GhostLine]

J'ai oublié "par ligne" pour ma recherche ^^'

J'avais aussi trouvé le @extended entre le moment où j'ai posté le message et maintenant : c'est clairement la clef

edit :

Code : Tout sélectionner

$ouvrircsv = FileOpen ("D:\axconfig.csv",0) ; ouvre le fichier csv

for $i=1 to _FileCountLines("D:\axconfig.csv")
    $fichiercsv = FileReadLine ($ouvrircsv) ; lit le fichier csv
    StringReplace($fichiercsv,"Télécollecte","Télécollecte") ; remplace Télécollecte par Télécollecte
    MsgBox(4096,"nombre d'occurrences : ",@extended) ; affiche le nombre de remplacement
Next

FileClose ($ouvrircsv) ; ferme le fichier csv

Merci pour ton aide, en tout cas !

[eric]

Ou un truc dans ce style

Code : Tout sélectionner

#Include <File.au3>

$fichier = "C:\mon fichier.csv"

$nombreligne = _FileCountLines($fichier)

$ouvrircsv = FileOpen ($fichier,0)

For $i=1 to $nombreligne

$fichiercsv = FileReadline ($ouvrircsv,$i)

StringReplace($fichiercsv,"Télécollecte","Télécollecte")

MsgBox(4096,"Ligne" & $i,"Nombre d'occurence = " & @extended)

Next

FileClose ($ouvrircsv)

[Tlem]

@GhostLine

La balise [RE] n'existe pas et de plus, la coloration syntaxique du code est réservée aux forums :

• - Exemples de script
  - Fonctions et UDF
  - Tutoriels

Merci de faire le nécessaire pour corriger cela.

[GhostLine]

Tlem> au temps pour moi, je devrais le savoir, depuis le temps ^^'