[R] Mettre des prénoms entre crochet /!\

[julienduhavre]

Bonjour, je cherche à mettre une liste de prénoms entre crochet ".

Exemple :

Code : Tout sélectionner

Avant: julien
          hugo

Code : Tout sélectionner

Après: [color=#FF0000]"[/color]julien[color=#FF0000]",[/color]
          [color=#FF0000]"[/color]hugo[color=#FF0000]",[/color]

Tout mes prénoms sont en colone comme dans l'exemple, dans un fichier .txt ,sauf qu'il y en a 2000.
Et je souhaite mettre tout ces noms entre crochet " et juste après mettre une virgule
Je ne c'est pas si je suis assez clair.

Je vous remercie d'avance.

[jbnh]

Bonjour,

Merci de prendre quelques secondes pour lire les règles de présentation d'un message et d'éditer votre titre.
http://www.autoitscript.fr/forum/viewto ... f=35&t=595

Ensuite, il nous faudrait plus d'information : ou se situent les noms / prénoms ? Quel est le format de fichier ? Comment le texte est agencé.

Un exemple concret nous aiderait.

[julienduhavre]

Up plz

[GMib]

Avant de up, tu ferai mieux de répondre a jbnh,

Ensuite, il nous faudrait plus d'information : ou se situent les noms / prénoms ? Quel est le format de fichier ? Comment le texte est agencé.

Un exemple concret nous aiderait.

[julienduhavre]

J'ai rep, j'ai modifier mon message...

[GMib]

Ok dsl, pourai tu etre plus precis alors ? voir nous fournir le fichier txt.

quels caracteres y a t'il avant les prenoms ? des espaces ? des tab ? autre ?
y a t'il toujours le meme nombre de caracteres ?

[julienduhavre]

Il n'y a pas de caractères avant les noms, mais c'est ce que je veux justement, avoir les noms entre crochet et avec une virgule a la fin, pour pouvoir faire comme sa:

► Afficher le texte

Code : Tout sélectionner

Dim $phrase[1093] = ["ali","ann","dan","ete","eva","eve","gil","guy","ian","ida","jan","lea","leo","luc","max","pia","abel","adam","aida","aime","aldo","alex","alix","amar","ange","anna","anne","anny","aude","axel","dany","davy","dina","dora","eddy","elie","ella","eloi","elsa","emma","enzo","eric","erik","ezio","fred","gaby","gael","gino","hans","hugo","igor","ines","issa","ivan","jack","jane","jany","jean","joan","joel","john","jose","juan","jude","karl","katy","kurt","lars","leon","lina","line","lise","loic","luce","luis","marc","mark","maud","nina","noel","nora","oleg","olga","omar","omer","otto","paul","remi","remy","rene","rita","rolf","rosa","rose","rudy","said","adele","agnes","ahmed","aicha","aimee","alain","alban","alice","alida","aline","ammar","amour","anais","andre","angel","anita","annie","armel","aubin","aymar","betty","boris","brice","bruce","bruno","carla","carlo","cathy","cesar","chloe","clara","colin","cyril","dario","david","denis","denys","diana","diane","diego","doris","eddie","edgar","edith","elena","elias","elisa","elise","ellen","emile","erick","erika","eudes","fanny","farid","fatma","felix","fleur","flora","flore","fouad","franc","frank","gabin","ghada","gilda","grace","habib","hamid","harry","heinz","henri","henry","herve","irene","isaac","jacky","jaime","james","janie","jaume","jehan","jenny","jesus","jordi","jorge","josee","josep","jules","julia","julie","juste","jutta","kamel","karen","karim","karin","katia","kevin","klaus","laura","laure","leger","leila","leone","lilia","linda","louis","lucie","luigi","luisa","lydia","lydie","lynda","maguy","maite","malik","marco","maria","marie","marin","mario","marta","mauro","moise","nadia","nancy","nelly","ninon","norma","notre","nuria","odile","olive","oscar","oumar","paola","paolo","paula","paule","paulo","pedro","peggy","peter","petra","piero","pilar","rabah","ralph","ramon","raoul","regis","reine","renee","rocco","roger","romeo","ronan","salah","salem","samir","sarah","sekou","serge","simon","adrian","adrien","agathe","albert","alexia","alexis","alfred","amadou","amaury","amedee","amelie","andrea","andree","andrei","andres","andrew","angela","angele","angelo","anicet","annick","antony","ariane","armand","arnaud","arnold","arsene","arthur","astrid","aubert","audrey","aurore","bakary","banard","basile","benoit","berthe","blaise","carine","carlos","carmen","carole","cecile","cedric","celine","charly","claire","claude","corine","crepin","dalila","damien","daniel","denise","desire","didier","donald","edgard","edmond","edwige","eliane","elisee","elodie","elvire","elyane","emilia","emilie","emilio","enrico","ernest","esther","eugene","evrard","fabien","farida","fatima","fiacre","fidele","firmin","france","franck","franco","frantz","freddy","gaelle","gaetan","gaston","gatien","george","gerald","gerard","geraud","gildas","gilles","gisela","gisele","gladys","gloria","harold","hassan","helene","hocine","honore","hubert","hugues","ignace","ingrid","irenee","isabel","jackie","janick","janina","janine","jeanne","jeremy","jerome","joanna","joelle","johann","johnny","joseph","judith","julien","justin","karine","kleber","landry","lazare","leonce","leonie","lilian","lionel","louisa","louise","lucien","lucile","magali","malika","manuel","marcel","marina","marine","marion","marius","martha","marthe","martin","maryse","maxime","medard","michel","miguel","moctar","mohand","monica","monika","mourad","moussa","muriel","mylene","myriam","nadege","nadine","nelson","nessim","nestor","nicole","noella","noelle","octave","odette","odilon","olivia","pacome","pascal","paulin","philip","pierre","pietro","prisca","rachel","rachid","rafael","raissa","regine","rejane","renald","renata","renate","renaud","robert","roland","romain","ronald","rosine","roxane","rudolf","sabine","samira","samson","samuel","sandra","sergio","seydou","silvia","silvio","simone","achille","adeline","adelphe","adolphe","adriana","adriano","alberte","alberto","annette","anselme","anthony","antoine","antonia","antonin","antonio","arielle","arlette","armande","armando","armelle","augusta","auguste","augusto"]
Send ($phrase[Random(0,999,0)])

Ps: je me suis tromper dans mon expression, j'ai déjà fait les prénoms au dessus.
Mais je veux faire pour les noms de famille que j'ai déjà fait l'un en dessous l'autre, mais pour sa il faut tous leurs rajouter les crochet et la virgule de la fin ("nom",)

Je c'est pas si je me fait bien comprendre dsl :s

[GMib]

Je comprend maintenant a quoi tu veut arriver mais toujours pas avec quoi tu démarre.
tu peu pas envoyer le fichier txt des noms (ou prenom) ? ou un fichier txt contenant au moins les 10 premiers.

[julienduhavre]

Oui , voila le fichier texte:

[GMib]

Essaye ca :

Code : Tout sélectionner

$sOut = ""
$file = FileOpen("Liste nom de famille.txt", 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
   $sOut &= '"' & StringStripWS ( $line, 7) & '",'
Wend

FileClose($file)

ConsoleWrite($sOut&@CRLF)

[julienduhavre]

Il me revoie l'erreur "Unable to open file"

[GMib]

Il faut mettre le fichier dans le même répertoire que le script.

[julienduhavre]

Il y est déjà dans le repertoire.

[GMib]

Il se nomme bien : Liste nom de famille.txt ? chez moi ca marche :

Code : Tout sélectionner

"adam","albert","alexandre","allain","allard","andre","andrieu","antoine","arnaud","aubert","aubry","auger","bailly","barbe","barbier"
+>21:46:36 AutoIT3.exe ended.rc:0

[julienduhavre]

J'ai trouver, c'est parce que open office été ouvert avec le fichier .

mais la je n'est plus le message d'erreur, mais ca ne change rien au fichier.

[Tlem]

Pour Chatter, vous avez un Chat : http://www.autoitscript.fr/forum/mchat.php

[GMib]

c'est normal, ca envoi juste la chaine de caracteres dans la console de scite, si j'ai bien compris tu n'as pas besoin de fichier txt non ?
La variable $sOut contient la chaine de caracteres que tu as besoin (avec une virgule en trop a la fin peu etre).
A toi de te debrouiller pour en faire ce que tu veu.

[Sparkdaemon]

Code : Tout sélectionner

Global $Replace = "", $Split, $read, $i, $File
For $i = 1 to 2000 step 1
$read = FileReadLine('famille.txt', $i)
$at = $read
$replace &= StringReplace($read, $read, '"'&$at&'",')&@CRLF
Next
$File = FileOpen("familleReplace.txt", 1)
FileWrite($File, BinaryToString($Replace))
MsgBox(0, "", "Terminé")

Fonctionne parfaitement.

[Tlem]

Étrange comme code ...
Pourquoi limiter la lecture à 2000 ?
Et si il y à moins de ligne, ou si il y à plus de ligne ...
Un FileOpen avec une boucle While de lecture du fichier aurait été préférable

Et puis ce $at = $read, il sert à rien !
Dans ce cas il vaut mieux écrire :

Code : Tout sélectionner

$replace &= StringReplace($read, $read, '"'&$read&'",')&@CRLF

Ensuite vous utilisez un FileOpen() (alors que vous ne l'avez pas fait sur le fichier de lecture) alors que FileWrite() ou FileWriteLine() suffirait.

[julienduhavre]

Je vous remercie, vous avez résolue mon problème
Je met resolue