lire un fichier dont le nom contient un caractère spéciaux

Bonjour à tous,

Je n'arrive pas à lire un fichier qui contient le symbole euro (€).


J'ai fait trois essais:
1) avec un nom de fichier sans caractère spécial ==> cela marche
2) avec un nom de fichier avec € ==> cela ne marche pas car il essaye de trouver un fichier avec "€" au lieu de "€".
3) en essayant de faire précéder € par un slash = \€ ==> cela ne marche toujours pas pour la même raison.

Quelqu'un a-t-il une idée pour m'aider ?

Jean Louis Ricard

Code:

> getwd()
[1] "C:/Users/Ricard/AppData/Local/PokerStars.FR/HandHistory/Katastr0ff"
> list.files(path=".")
[1] "HH20121115 T643957137 No Limit Hold'em 300 + 20.txt"   
[2] "HH20121115 T644002985 No Limit Hold'em €0.22 + €0.03.txt"
> # Essai 1
> name_file="HH20121115 T643957137 No Limit Hold'em 300 + 20.txt"
> cat (" ====================","\n","lecture du fichier 1","\n","====================","\n")
 ====================
 lecture du fichier 1
 ====================
> ligne1=readLines(name_file,n=-1)
> for (ii in 3:5) {cat(ligne1[ii],"\n")}
Seat 1: aleksei s79 (1500 in chips) 
Seat 2: PLM1966 (1500 in chips) 
Seat 3: nicole462 (1500 in chips) 
> # Essai 2
> name_file="HH20121115 T644002985 No Limit Hold'em €0.22 + €0.03.txt"
> cat (" ====================","\n","lecture du fichier 2","\n","====================","\n")
 ====================
 lecture du fichier 2
 ====================
> ligne2=readLines(name_file,n=-1)
Erreur dans file(con, "r") : impossible d'ouvrir la connexion
De plus : Message d'avis :
In file(con, "r") :
  impossible d'ouvrir le fichier 'HH20121115 T644002985 No Limit Hold'em €0.22 + €0.03.txt' : No such file or directory
> for (ii in 3:5) {cat(ligne2[ii],"\n")}
Erreur dans cat(ligne2[ii], "\n") : objet 'ligne2' introuvable
> # Essai 3
> name_file="HH20121115 T644002985 No Limit Hold'em \€0.22 + \€0.03.txt"
Erreur : '\€' est un code escape non reconnu dans une chaîne de caractères débutant "HH20121115 T644002985 No Limit Hold'em \€"
> cat (" ====================","\n","lecture du fichier 3","\n","====================","\n")
 ====================
 lecture du fichier 3
 ====================
> ligne3=readLines(name_file,n=-1)
Erreur dans file(con, "r") : impossible d'ouvrir la connexion
De plus : Message d'avis :
In file(con, "r") :
  impossible d'ouvrir le fichier 'HH20121115 T644002985 No Limit Hold'em €0.22 + €0.03.txt' : No such file or directory
> for (ii in 3:5) {cat(ligne3[ii],"\n")}
Erreur dans cat(ligne3[ii], "\n") : objet 'ligne3' introuvable

J'ai résolu le problème.

Puisque R est capable de lister les fichiers, il suffit d'utiliser cette capacité en mettant le résultat dans une variable.

Démonstration =

Code:

> setwd("C:\\Users\\Ricard\\AppData\\Local\\PokerStars.FR\\HandHistory\\Katastr0ff")
> getwd()
[1] "C:/Users/Ricard/AppData/Local/PokerStars.FR/HandHistory/Katastr0ff"
> list.files(path=".")
[1] "HH20121116 T644452734 No Limit Hold'em €0.22 + €0.03.txt"
> name_file=list.files(path=".")
> # Essai 1
> cat (" ====================","\n","lecture du fichier",name_file,"\n","====================","\n")
 ====================
 lecture du fichier HH20121116 T644452734 No Limit Hold'em €0.22 + €0.03.txt
 ====================
> ligne1=readLines(name_file,n=-1)
> for (ii in 3:5) {cat(ligne1[ii],"\n")}
Seat 1: noobinoob73 (1500 in chips) 
Seat 2: romavince78 (1500 in chips) 
Seat 3: Katastr0ff (1500 in chips) 

CQFD

Jean Louis Ricard