PureBasic

Bonjour,

J'avais besoin de me créer plusieurs centaines de noms de clients
J'ai pondu ça, c'est pas beau, c'est codé vieille france (Je ne veux pas de procedures)

On a pas le droit de faire du racisme sur le forum....mais bon...ça sonne qu'a moitié français tout ça

Enfin comme on choisi pas ses clients...du moment qu'ils payent

Ca m'etonnerait que ça serve a "quinquin", mais bon..on sait jamais

Code : Tout sélectionner

Dim TabloSons.s(100)
MaxSon+1:TabloSons(MaxSon)="an"
MaxSon+1:TabloSons(MaxSon)="ai"
MaxSon+1:TabloSons(MaxSon)="ar"
MaxSon+1:TabloSons(MaxSon)="air"
MaxSon+1:TabloSons(MaxSon)="oir"
MaxSon+1:TabloSons(MaxSon)="oi"
MaxSon+1:TabloSons(MaxSon)="on"
MaxSon+1:TabloSons(MaxSon)="ieu"
MaxSon+1:TabloSons(MaxSon)="ia"
MaxSon+1:TabloSons(MaxSon)="iai"
MaxSon+1:TabloSons(MaxSon)="ion"
MaxSon+1:TabloSons(MaxSon)="eu"
MaxSon+1:TabloSons(MaxSon)="er"
ReDim TabloSons.s(MaxSon)

Voyelle.s = "aeiou"
Consonne.s = "bcdfgjklmnpqrstv"
ConsonneSyllabe.s = "bcdfjlmnprstv"
NbNoms = 10
MaxLongueurNom = 10

; Creation de plusieurs noms
For MaxNoms = 1 To NbNoms
 
 NomAleatoire$ = ""
 LongNom = Random(MaxLongNom) + 5 ; Choix aléatoire de la longueur du nom
 
 ; Creation du nom
 Repeat
  
  ; Ajout d'une syllabe de temps en temps (Quand aleatoire est paire)
  Aleatoire = Random(2) + 1
  
  If Aleatoire/2 = Int(Aleatoire/2)  
   PosConsonne = Random(Len(ConsonneSyllabe))
   Consonne$ = Mid(ConsonneSyllabe, PosConsonne, 1)
   NomAleatoire$ + Consonne$ + TabloSons(Random(MaxSon))
  EndIf
  
  ; Ajout d'une voyelle si la derniere lettre est une consonne
  If FindString(Consonne, Right(NomAleatoire$, 1))
   PosVoyelle = Random(Len(Voyelle))
   Voyelle$ = Mid(Voyelle, PosVoyelle, 1)
  EndIf
  
  ; Ajout de la consonne
  Repeat
   
   PosConsonne = Random(Len(Consonne))
   Consonne$ = Mid(Consonne, PosConsonne, 1)
      
   If Consonne$ = "q" : Consonne$ = "qu" : EndIf 
   If Consonne$ = "g" : Consonne$ = "gu" : EndIf 
  
   If Consonne$ <> Right(NomAleatoire$, 1)
    NomAleatoire$ + Consonne$
    Break
   EndIf
   
  ForEver
  
  ; Ajout de la voyelle
  Repeat
   
   PosVoyelle = Random(Len(Voyelle))
   Voyelle$ = Mid(Voyelle, PosVoyelle, 1)
   
   If Voyelle$ <> Right(NomAleatoire$, 1)
    
    Aleatoire = Random(2) + 1
    NomAleatoire$ + Voyelle$
    
    If Voyelle$ <> "a" Or Aleatoire/2 = Int(Aleatoire/2)
     Break
    EndIf
    
   EndIf 
   
  ForEver
  
  If Len(NomAleatoire$) >= MaxLongueurNom
   Break
  EndIf 
   
 ForEver 
 
 ; Suppression combinaisons interdites
 NomAleatoire$ = ReplaceString(NomAleatoire$, "ea", "a")
 NomAleatoire$ = ReplaceString(NomAleatoire$, "ae", "e")
 NomAleatoire$ = ReplaceString(NomAleatoire$, "ao", "a")
 NomAleatoire$ = ReplaceString(NomAleatoire$, "oa", "o")
 NomAleatoire$ = ReplaceString(NomAleatoire$, "vm", "v")
 NomAleatoire$ = ReplaceString(NomAleatoire$, "mv", "m")
 
 ; Suppression des doubles consonnes
 For p = 1 To Len(NomAleatoire$)
  
  If FindString(Consonne, Mid(NomAleatoire$, p, 1)) And FindString(Consonne, Mid(NomAleatoire$, p + 1, 1))
   NomAleatoire$ = Left(NomAleatoire$, p) + Mid(NomAleatoire$, p + 2)
  EndIf
  
 Next
 
 Debug UCase(Left(NomAleatoire$, 1)) + Mid(NomAleatoire$, 2)
        
Next

Le bonheur c'est simple comme un merçi

Je ne chercherais pas à te proposer quoique ce soit :p

PS : Manque pas les prénoms ?

Le bonheur c'est simple comme un merçi

Merci à toi

Je ne chercherais pas à te proposer quoique ce soit :p

Bah, je trouve que tu bosses deja comme un guedin dans ce forum, tu va quand meme pas optimiser les codes de tout le monde, bien qu'avec moi ce soit pas trop dur..

Et puis le jour ou quelqu'un me dira qu'il a eu besoin d'une de mes idées...c'est pas demain

Alors perdre ton temps avec moi....c'est un peu donner du lard au cochon comme disaient mes parents

Manque pas les prénoms ?

Bah, en fait les prénoms, il suffit de faire une liste des prenoms français, je m'en suis constitué une en croisant des listes par ci par la, on peut pas trop jouer avec, sinon ça colle pas.
C'est pour un simulateur, et je voulais pas utiliser une liste de vrais clients

Avec les noms de famille, on peut s'eclater, ça fait presque toujours vrai, rien que le miens, je croise pas une personne qui ne me demande pas comment ça se prononce, alors je repond toujours la meme phrase depuis 40 ans, ça se prononce pas, ça s'eternue

L'avantage, comme "j'aime pas" faire rire les gens, ça met de l'ambiance, et même un jour on etait presque plié de rire dans un car de CRS qui venait juste de me mettre un PV pour avoir roulé sur un ZEBRA d'autoroute..j'ai joué, j'ai perdu

Au final, ils etaient presque embeté de m'aligner, comme quoi...l'humour...ça a plus de force qu'on ne le croit

Parce que je sais pas si tu le sait...mais j'suis un rigolo..dans tous les sens du terme

J'ai modifié le code, parce que trop de consonnes qui se suivent, et je voudrais pas que ce c.. de code ressorte mon vrai nom

Kwai chang caine a écrit : Ca m'etonnerait que ça serve a "quinquin", mais bon..on sait jamais

Ben si
Moi ça va me servir, j'ai eu besoin de créer un générateur de noms aléatoires récemment, et le tien donne des noms qui ressemblent plus à des noms que le mien !

donc merci

PS : par contre, je risque de le bricoler pour mettre des procédures....

Alors la...les bras m'en tombent !!!

J'l'ai vendu en même pas une heure, t'es mon premier client

T'es pas difficile pour le coté des noms, y sont tous a coucher dehors avec un ticket de logement, mais si ça peut t'aider, j'suis super content

j'ai pas pu pondre un durand, un dupont

Et tant pis pour les procédures...en avant guinguan

Et puis apres tout :

Merci beaucoup de ta réponse

ouais parce que "Niainefeula" et "Foicutasiavu", j'les connais pas ces personnes

il faudra mes les présenter !
Mais c'est vrai que la plupart des noms qui sont sortis restent plausibles ! Beau boulot KCC (pourquoi tu nous sors pas une version pour le purepunch ? avec les prénoms en plus)

Tu rigoles, j'arrive déja pas a me remettre d'avoir un client.

On melange pas les torchons et les serviettes.

J'ai regardé les codes de oufs qu'il y a....trop de la balle.

C'est tellement beau que j'ai même pas osé, pour le coups poster un merci, pour ne pas salir le THREAD

Et puis ce code, bien que je sois content qu'il vous plaise, il est tout simple, y'aurait fallu que je le peaufine, un peu plus, ça sonne plutot asiatique

J'ai pas eu d'idées pour le franciser, j'ai déjà retiré les X, Y, Z, et H parce qu'alors avec ces lettres...c'est carrément le voyage dans les iles ...

Je sais, je devrais le vendre aux spammeurs tchong, pour qu'il créé des nouvelles BAL bidon

Non non, c'est super gentil à toi, je te remercie, mais je vais suivre la compétition, comme pour les miss france, dans mon petit canapé avec une grosse bierre, ou plutot dans mon gros canapé avec une petite bierre...ça va pour le bébé kronembourg j'suis assez équipé

Tiens ça me fait penser ....des miss....ça prend pas de S

Code : Tout sélectionner

Declare.s pseudo(longueur)
for i=1 to 200
	debug "Mr "+pseudo(4)+ " "+pseudo(3)
next i

procedure.s pseudo(longueur)
	RandomSeed(random(2000))
	; by Dobro
	;longueur=longueur Max en syllable
	cons.s="b c d f g l m n p q r s t v ch"
	voy.s="a e i o u "
	long_minimum=2
	long=random(4)+long_minimum ; longeur d'un nom
	
	if long>longueur:long=longueur:Endif
	for i=1 to long
		c.s=StringField(cons.s,random(14)+1," ")
		v.s=StringField(voy.s,random(4)+1," ")
		resulat.s=resulat.s+c.s+v.s	
	next i
	ProcedureReturn resulat.s
EndProcedure
; EPB

autre Version plus ancienne

Code : Tout sélectionner



Procedure.s alea_name(longueur)     
	; by dobro
	RandomSeed(Random(1000))
	Dim voy.s (6) : voy(1)="A": voy(2)="O": voy(3)="I": voy(4)="E": voy(5)="U"
	For i=2 To longueur Step 2 
		de_voyelle=Random(4)+1
		d:
		de_consone=Random(25)+1 ; 65 a 90
		If (de_consone+64<>65) And  (de_consone+64<>79) And (de_consone+64<>73) And (de_consone+64<>69) And (de_consone+64<>85) And (de_consone+64<>89)
			nom$=nom$+Chr(de_consone+64)+voy(de_voyelle)
			Else
			RandomSeed(Random(1000))
			Goto d:
		EndIf 
	Next i
	ProcedureReturn LCase(nom$ )
EndProcedure

; mise en application

For i= 1 To 50 ; on genere 50 nom de longueur variable entre 4 et 8 caracteres
	
	longueur=Random(4)+4 
	Debug alea_name(longueur)
Next i; EPB

Version compressé (mais pas trop)

Code : Tout sélectionner

Declare.s pseudo(longueur)

Macro M:Macro:EndMacro
	M f:for:EndMacro: M n:next:EndMacro: M p:ProcedureReturn:EndMacro
	M St:StringField:EndMacro: M de:random:EndMacro :  M Rs:RandomSeed:EndMacro
	M im:if:EndMacro: M iem:Endif:EndMacro
	f i=1 to 200 :debug "Mr "+pseudo(4)+ " "+pseudo(3):n i
	procedure.s pseudo(longueur):Rs(de(2000)):cons.s="b c d f g l m n p q r s t v ch":voy.s="a e i o u "
		long_minimum=2: long=de(4)+long_minimum: im long>longueur:long=longueur:iem:f i=1 to long : c.s=St(cons.s,de(14)+1," "):v.s=St(voy.s,de(4)+1," ")
		resulat.s=resulat.s+c.s+v.s:n i :P resulat.s
	EndProcedure
; EPB

Kwai chang caine a écrit :Ca m’étonnerait que ça serve a "quinquin", mais bon..on sait jamais

Tu te trompes. j'ai adopté et enregistré ton code dans mon dossier trucs et astuces. C'est très pratique pour créer une table client dans une base de données. C'est pour ça que si tu pouvais ajouter les prénoms ainsi qu'une adresse et un code postal ville bidon ça serait un véritable plusssssss.

bonsoir
pour le fun

tous ces mecs doivent parler le russe

cordialement

Code : Tout sélectionner

For u=1 To 20
For i=1 To 6+Random(4)
	a$+Chr((Random(25)+1)+96)
Next i
For i=1 To 6+Random(4)
	b$+Chr((Random(25)+1)+96)
Next i
For i=1 To 6+Random(4)
	c$+Chr((Random(25)+1)+96)
Next i
For i=1 To 6+Random(4)
	v$+Chr((Random(25)+1)+96)
Next i
For i=1 To 5
		n$+Chr((Random(9)+1)+47)
Next i
Debug "nom : "+a$+"  prénom : "+b$+"    adresse : "+Str(Random(49)+1)+" rue "+c$+"  ville : "+n$+"   "+v$
a$="":b$="":c$="":n$="":v$=""
Next u

bonjour
Faire un code comme Kcc, c'était trop de prise de tête pour moi ce matin.

Alors j'ai triché avec des datas

Voici des noms pêlemêle

Cordialement

ps: mise à jour pour les noms propres "maintenant 1028 noms différents"

Code : Tout sélectionner

Restore nompropre 
Repeat
  Read.s a$
  Debug a$
Until a$="§"
Restore prenomsfeminins
Repeat 
  Read.s a$
   Debug a$
Until a$="§"
Restore prenomsmasculins
Repeat 
  Read.s a$
   Debug a$
Until a$="§"


DataSection  ;database de 1028 noms de familles les plus répandus en france et le gagnant est "Martin"
nompropre:
Data.s "Abadie","Adam","Albert","Alexandre","Alix","Allain","Allard","Allemand","Alonso","Alvarez"
Data.s "Alves","Andre","Andrieu","Andrieux","Antoine","Armand","Arnaud","Arnould","Arnoux","Astier"
Data.s "Aubert","Aubin","Aubry","Auffret","Auge","Auger","Auvray","Avril","Babin","Bachelet"
Data.s "Bailleul","Bailly","Barbe","Barbier","Barbot","Bardet","Bardin","Baron","Barraud","Barre"
Data.s "Barreau","Barret","Barrier","Barriere","Barthelemy","Basset","Bastien","Bataille","Baud","Baudet"
Data.s "Baudin","Baudoin","Baudouin","Baudry","Bauer","Bayle","Bazin","Beau","Beaufils","Beaulieu"
Data.s "Beaumont","Beauvais","Beck","Becker","Begue","Beguin","Belin","Bellanger","Bellec","Bellet"
Data.s "Ben","Benard","Benoist","Benoit","Berard","Berger","Bernard","Bernier","Berry","Berthe"
Data.s "Berthelot","Berthet","Berthier","Bertin","Bertrand","Besnard","Besse","Besson","Bianchi","Bidault"
Data.s "Bigot","Billard","Billet","Billon","Billy","Binet","Blaise","Blanc","Blanchard","Blanchet"
Data.s "Blandin","Blin","Blondeau","Blondel","Blot","Bo","Bob","Bocquet","Bodin","Bois","Boisseau"
Data.s "Boisson","Boivin","Bon","Bonhomme","Bonin","Bonnard","Bonnaud","Bonneau","Bonnefoy","Bonnet"
Data.s "Bonnin","Bontemps","Bordes","Bossard","Bouchard","Bouche","Boucher","Bouchet","Bouchez","Boudet"
Data.s "Bouillon","Boulanger","Boulay","Boulet","Bouquet","Bour","Bourbon","Bourdin","Bourdon","Bourgeois"
Data.s "Bourgoin","Bourguignon","Bousquet","Boutet","Boutin","Bouton","Bouvet","Bouvier","Boyer","Brault"
Data.s "Braun","Bresson","Bret","Breton","Briand","Briere","Brisset","Brochard","Brossard","Bru","Brule"
Data.s "Brun","Bruneau","Brunel","Brunet","Bruno","Bruyere","Buisson","Bureau","Burel","Busson","Cadiou"
Data.s "Caillaud","Caillet","Calvet","Calvez","Camus","Cano","Capelle","Cardon","Cariou","Carlier"
Data.s "Caron","Carpentier","Carre","Carrere","Carriere","Cartier","Carton","Carvalho","Casanova","Castel"
Data.s "Chabert","Chambon","Champion","Chapelle","Chapon","Chapuis","Charbonnier","Chardon","Charles"
Data.s "Charlet","Charlier","Charlot","Charpentier","Charrier","Chartier","Charton","Chateau","Chatelain"
Data.s "Chauveau","Chauvet","Chauvin","Chemin","Chene","Cheron","Chevalier","Chevallier","Chevrier"
Data.s "Chiron","Chollet","Chopin","Chretien","Christophe","Claude","Claudel","Clement","Clerc","Cloarec"
Data.s "Cochet","Cohen","Colas","Colin","Collet","Collignon","Collin","Combe","Combes","Comte","Constant"
Data.s "Conte","Cordier","Cormier","Cornet","Cornu","Corre","Costa","Coste","Cottin","Couderc","Coudert"
Data.s "Coulon","Courtin","Courtois","Cousin","Coutant","Couturier","Crepin","Cros","Crouzet","Cuvelier"
Data.s "DaSilva","Dacosta","Daniel","Darras","Dasilva","Dauphin","David","De","Debray","Delage"
Data.s "Delahaye","Delalande","Delamare","Delannoy","Delaporte","Delarue","Delattre","Delaunay"
Data.s "Delcroix","Delhaye","Delmas","Delorme","Demange","Demay","Denis","Deoliveira","Derrien","Desbois"
Data.s "Descamps","Deschamps","Deshayes","Desousa","Despres","Devaux","Deville","Devos","Dias","Diaz"
Data.s "Didier","Dijoux","Diot","Dore","DosSantos","Dossantos","Doucet","Drouet","Drouin","Dubois"
Data.s "Dubos","Dubost","Dubourg","Dubreuil","Dubus","Duchemin","Duchene","Duchesne","Duclos","Ducrocq"
Data.s "Dufour","Duhamel","Dujardin","Dumas","Dumont","Dumortier","Dumoulin","Dupin","Dupond","Dupont"
Data.s "Duprat","Dupre","Dupuis","Dupuy","Duquesne","Durand","Durant","Duret","Durieux","Duriez"
Data.s "Dutertre","Duval","Esnault","Esteve","Etienne","Evrard","Fabre","Faivre","Faucher","Faure"
Data.s "Favier","Favre","Favreau","Fayolle","Felix","Fernandes","Fernandez","Ferrand","Ferrari","Ferre"
Data.s "Ferreira","Ferrer","Ferrier","Ferry","Fevre","Fevrier","Fievet","Fischer","Flament","Fleury"
Data.s "Floch","Fontaine","Forest","Forestier","Fort","Fortin","Foucault","Foucher","Foulon","Fouquet"
Data.s "Fourcade","Fournier","Fraisse","Franco","Francois","Fremont","Frey","Froment","Gabriel","Gaillard"
Data.s "Gallais","Galland","Gallet","Gallois","Garcia","Garin","Garnier","Garreau","Gasnier","Gaudin"
Data.s "Gauthier","Gautier","Gay","Geffroy","Genet","Genin","Gentil","Geoffroy","George","Georges"
Data.s "Gerard","Germain","Gervais","Gibert","Gicquel","Gil","Gilbert","Gilles","Gillet","Gillot"
Data.s "Gimenez","Girard","Girardot","Giraud","Girault","Gobert","Godard","Godart","Godefroy","Godet"
Data.s "Godin","Gomes","Gomez","Goncalves","Gonzales","Gonzalez","Gonçalves","Gosselin","Gosset","Goujon"
Data.s "Grand","Grandjean","Grange","Granger","Granier","Gras","Gregoire","Grenier","Grimaud","Grondin"
Data.s "Gros","Grosjean","Gross","Guegan","Gueguen","Guerin","Guery","Guibert","Guichard","Guignard"
Data.s "Guilbaud","Guilbert","Guillard","Guillaume","Guillemin","Guillemot","Guillet","Guillon","Guillot"
Data.s "Guillou","Guiot","Guiraud","Guitton","Guy","Guyard","Guyon","Guyot","Hamel","Hamelin","Hamon"
Data.s "Hardouin","Hardy","Hebert","Hennequin","Henri","Henry","Herault","Hernandez","Herve","Hoarau"
Data.s "Hoareau","Hoffmann","Honore","Hubert","Hue","Huet","Hugues","Huguet","Humbert","Husson"
Data.s "Imbert","Jacob","Jacquemin","Jacques","Jacquet","Jacquin","Jacquot","James","Jamet","Jan"
Data.s "Janin","Janvier","Jaouen","Jardin","Jarry","Jean","Jeanne","Jegou","Jolivet","Jolly"
Data.s "Joly","Joseph","Josse","Jouan","Joubert","Jourdain","Jourdan","Jouve","Julien","Jullien"
Data.s "Jung","Keller","Kieffer","Klein","Labat","Labbe","Laborde","Lacaze","Lacombe","Lacoste"
Data.s "Lacour","Lacroix","Lafon","Lafond","Lafont","Lagarde","Lagrange","Laine","Lalanne","Lallemand"
Data.s "Lallement","Lambert","Lamotte","Lamour","Lamy","Landais","Lang","Langlais","Langlois","Lapeyre"
Data.s "Lapierre","Laporte","Larcher","Laroche","Larue","Lassalle","Lasserre","Latour","Launay"
Data.s "Laurent","Laval","Lavaud","Lavergne","Lavigne","Le","LeCorre","LeGall","LeGoff","LeRoux"
Data.s "Lebars","Lebas","Lebeau","Leberre","Lebihan","Leblanc","Leblond","Lebon","Leborgne","Lebras"
Data.s "Lebreton","Lebris","Lebrun","Leclerc","Leclercq","Leclere","Lecocq","Lecoeur","Lecomte","Leconte"
Data.s "Lecoq","Lecorre","Lecuyer","Ledoux","Ledu","Leduc","Lefebvre","Lefeuvre","Lefevre","Lefloch"
Data.s "Lefort","Lefranc","Lefrancois","Legal","Legall","Legay","Legendre","Leger","Legoff","Legrand"
Data.s "Legras","Legros","Leguen","Lejeune","Leleu","Lelievre","Lelong","Leloup","Lemaire","Lemaitre"
Data.s "Lemarchand","Lemercier","Lemeur","Lemoine","Lemonnier","Lenoir","Leon","Leonard","Lepage"
Data.s "Lepine","Lepretre","Leray","Leriche","Leroux","Leroy","Lesage","Lesueur","Letellier","Levasseur"
Data.s "Leveque","Levy","Lhomme","Lienard","Loiseau","Loisel","Loison","Lombard","Lopes","Lopez","Louis"
Data.s "Louvet","Loyer","Lucas","Ly","Mace","Madec","Magne","Magnier","Magnin","Mahe","Mahieu"
Data.s "Maillard","Maillet","Maillot","Maire","Maitre","Mallet","Manceau","Mangin","Marais","Marc"
Data.s "Marcel","Marchal","Marchand","Marechal","Marie","Marin","Marion","Marques","Marquet","Marquis"
Data.s "Marteau","Martel","Marti","Martin","Martineau","Martinet","Martinez","Martins","Marty","Mary"
Data.s "Mas","Masse","Masson","Mathieu","Mathis","Mauger","Maurel","Maurice","Maurin","Maury"
Data.s "Mayer","Maze","Menard","Mendes","Mercier","Merle","Merlin","Metais","Metayer","Meunier"
Data.s "Meyer","Michaud","Michaux","Michel","Michon","Mignot","Mille","Millet","Millot","Miquel"
Data.s "Moi","Moine","Molina","Monier","Monin","Monnet","Monnier","Montagne","Monteil","Mora"
Data.s "Morand","Moreau","Morel","Moreno","Moret","Morice","Morin","Morvan","Motte","Moulin"
Data.s "Mounier","Mouton","Muller","Munier","Munoz","Murat","Navarro","Nedelec","Neveu","Nguyen"
Data.s "Nicolas","Nicolle","Noel","Nogues","Normand","Oger","Olive","Olivier","Ollivier","Oudin"
Data.s "Page","Pages","Paillard","Pain","Papin","Paquet","Parent","Paris","Parisot","Parmentier"
Data.s "Pascal","Pasquet","Pasquier","Pastor","Paul","Payen","Payet","Pelissier","Pellerin","Pelletier"
Data.s "Peltier","Pepin","Pereira","Peres","Perez","Perin","Pernot","Peron","Perret","Perrier"
Data.s "Perrin","Perron","Perrot","Peter","Petit","Petitjean","Peyre","Pham","Philippe","Philippon"
Data.s "Philippot","Picard","Pichard","Pichon","Picot","Pierre","Pierron","Pierson","Pillet","Pineau"
Data.s "Pinel","Pinson","Pinto","Piot","Piquet","Pires","Poirier","Poirot","Poisson","Pollet"
Data.s "Pommier","Poncet","Pons","Portal","Porte","Portier","Potier","Pottier","Pouget","Poulain"
Data.s "Poulet","Pouliquen","Prat","Prevost","Prevot","Prieur","Prigent","Prost","Proust","Provost"
Data.s "Pruvost","Puech","Pujol","Quentin","Quere","Raffin","Ragot","Raimbault","Ramos","Raoul"
Data.s "Rault","Raymond","Raynal","Raynaud","Reboul","Regnier","Remond","Remy","Renard","Renaud"
Data.s "Renaudin","Renault","Renou","Revel","Rey","Reynaud","Ribeiro","Ricard","Richard","Rigal"
Data.s "Rigaud","Rio","Riou","Rivet","Riviere","Robert","Robillard","Robin","Robinet","Roche"
Data.s "Rocher","Rodier","Rodrigues","Rodriguez","Roger","Roland","Rolland","Rollet","Rollin","Romain"
Data.s "Romero","Rondeau","Roques","Rose","Rossi","Rossignol","Roth","Rougier","Rousseau","Roussel"
Data.s "Rousselle","Rousset","Roux","Rouxel","Rouyer","Roy","Royer","Ruiz","Sabatier","Salaun","Salle"
Data.s "Salles","Salmon","Salomon","Samson","Sanchez","Santos","Sarrazin","Saulnier","Saunier"
Data.s "Sauvage","Savary","Schaeffer","Schmidt","Schmitt","Schneider","Schwartz","Seguin","Sellier"
Data.s "Senechal","Sergent","Serra","Serrano","Serre","Serres","Sicard","Simon","Simonin","Simonnet"
Data.s "Smith","Soler","Soulie","Soulier","Stephan","Taillandier","Tanguy","Tardy","Tavernier"
Data.s "Teixeira","Tellier","Terrier","Tessier","Texie","Texier","Teyssier","Thebault","Thery"
Data.s "Thevenet","Thevenin","Thibault","Thiebaut","Thierry","Thiery","Thiriet","Thirion","Thomas"
Data.s "Thuillier","Tison","Tisserand","Tissier","Tissot","Tixier","Torres","Tournier","Toussaint"
Data.s "Tran","Turpin","Vacher","Vaillant","Valentin","Valette","Vallee","Vallet","Vannier","Varin"
Data.s "Vasseur","Verdier","Verger","Vernet","Vernier","Veron","Verrier","Vial","Viard","Viaud"
Data.s "Vidal","Viel","Vigier","Vignal","Vigneron","Vignon","Vigouroux","Viguier","Vilain","Villain"
Data.s "Villard","Villeneuve","Villette","Vincent","Vivier","Voisin","Wagner","Walter","Weber"
Data.s "Weiss","Wolff","Zimmermann","§"

prenomsfeminins:
Data.s "Marie","Nathalie","Monique","Isabelle","Catherine","Sylvie","Françoise"
Data.s "Jacqueline","Martine","Christine","Nicole","Valérie","Sandrine","Anaïs"
Data.s "Stéphanie","Sophie","Jeanne","Véronique","Christiane","Céline","Chantal"
Data.s "Patricia","Hélène","Annie","Brigitte","Jeannine","Denise","Alexandra"
Data.s "Laurence","Émilie","Michèle","Virginie","Corinne","Yvette","Élodie"
Data.s "Colette","Danielle","Cécile","Caroline","Madeleine","Claudine","Léa"
Data.s "Florence","Simone","Laetitia","Suzanne","Audrey","Geneviève","Laura"
Data.s "Élisabeth","Sarah","Josette","Andrée","Lucie","Manon","Marie-Thérèse"
Data.s "Pauline","Annick","Renée","Thérèse","Delphine","Évelyne","Marie-Claude"
Data.s "Melanie","Karine","Marion","Odette","Marine","Josiane","Christelle"
Data.s "Mireille","Yvonne","Michelle","Gisèle","Ginette","Chloé","Antoinette"
Data.s "Mathilde","Marcelle","Charlotte","Marguerite","Fabienne","Frédérique"
Data.s "Sandra","Pascale","Liliane","Jocelyne","Aurore","Nelly","Gaelle","Inès"
Data.s "Séverine","Raymonde","Sabrina","Micheline","Amandine","Myriam","Nadine"
Data.s "Joëlle","Juliette","Angélique","Anne-Marie","Anne","Marie-Christine"
Data.s "Maryse","Lucienne","Odile","Amélie","Sonia","Daniele","Justine","Julie"
Data.s "Vanessa","Emmanuelle","Georgette","Oceane","Élise","Fanny","Alice"
Data.s "Francine","Huguette","Magali","Clara","Laure","Nadia","Maria","Claire"
Data.s "Aline","Morgane","Muriel","Agnès","Éliane","Paulette","Béatrice","Elsa"
Data.s "Germaine","Jessica","Arlette","Estelle","Pierrette","Solange","Emma"
Data.s "Jennifer","Samantha","Sabine","Aurélie","Marie-Jose","Agathe","Marlene"
Data.s "Janine","Melissa","Régine","Lydie","Clémence","Lucette","Aude","Romane"
Data.s "Noémie","Coralie","Henriette","Lisa","Eva","Anna","Carole","Bernadette"
Data.s "Sylviane","Adeline","Viviane","Marie-France","Maeva","Irene","Yolande"
Data.s "Nadege","Simonne","Gabrielle","Carine","Alicia","Ophélie","Julia","Jade"
Data.s "Rose","Marthe","Mauricette","Geraldine","Claudette","Jeanine","Edith"
Data.s "Margaux","Marina","Ludivine","Rachel","Gilberte","Valentine","Maryline"
Data.s "Joséphine","Murielle","Elisa","Marianne","Marie-Laure","Angèle","Celia"
Data.s "Marie-Hélène","Fernande","Alexia","Maryvonne","Clémentine","Gwendoline"
Data.s "Marie-Claire","Emeline","Lola","Maud","Axelle","Nina","Sylvia","Katia"
Data.s "Charlene","Anne-Sophie","Margot","Adele","Peggy","Noëlle","Gwenaelle"
Data.s "Lucile","Marjorie","Deborah","Laurie","Solène","Natacha","Linda","Paule"
Data.s "Lydia","Rolande","Zoé","Andrea","Ingrid","Anita","Cindy","Carla","Lena"
Data.s "Olivia","Cathy","Annette","Blandine","Ambre","Kelly","Cynthia","Mylène"
Data.s "Magalie","Charline","Barbara","Armelle","Marie-Francoise","Sara","Leila"
Data.s "Johanna","Eugénie","Cecilia","Dorothée","Roselyne","Marie-Paule","Reine"
Data.s "Marie-Louise","Clarisse","Claudie","Victoria","Marie-Pierre","Louisette"
Data.s "Laurine","Malika","Lise","Marylène","Lilou","Corine","Clotilde","Astrid"
Data.s "Eloise","Carmen","Lina","Flavie","France","Christel","Flora","Heloise"
Data.s "Perrine","Marie-Noelle","Cassandra","Annabelle","Salomé","Marie-Line"
Data.s "Anne-Laure","Emilienne","Léonie","Floriane","Edwige","Berthe","Roseline"
Data.s "Tiphaine","Maelys","Aurelia","Coline","Anaelle","Marielle","Priscilla"
Data.s "Diane","Violette","Sandy","Fatima","Leslie","Betty","Claudia","Éléonore"
Data.s "Eveline","Alison","Marie-Ange","Anissa","Angelina","Tiffany","Constance"
Data.s "Marinette","Candice","Yasmine","Melina","Nora","Samia","Karen","Roxane"
Data.s "Tatiana","Marie-Jeanne","Jeannette","Adrienne","Aimee","Esther","Eve"
Data.s "Sylvette","Megane","Leone","Christele","Raphaëlle","Rose-Marie","Rejane"
Data.s "Lauriane","Blanche","Yasmina","Sofia","Nolwenn","Cloe","Helena","Melodie"
Data.s "Samira","Olga","Julienne","Florine","Rebecca","Marilyne","Ilona","Wendy"
Data.s "Aïcha","Louna","Stella","Victoire","Karima","Dalila","Capucine","Naima"
Data.s "Fiona","Alizee","Pascaline","Sophia","Kenza","Fatiha","Mailys","Rosalie"
Data.s "Line","Doriane","Marie-Anne","Cyrielle","Chrystelle","Dolores","Manuela"
Data.s "Elena","Lysiane","Nicolle","Angeline","Yamina","Marie-Josèphe","Ariane"
Data.s "Augustine","Louisa","Marie-Madeleine","Marie-Rose","Marie-Odile","Nancy"
Data.s "Erika","Albertine","Faustine","Yveline","Gladys","Flore","Pamela","Anny"
Data.s "Leane","Oriane","Soraya","Cassandre","Roberte","Marie-Josee","Berengere"
Data.s "Farida","Coraline","Adelaide","Melinda","Laurene","Francette","Guylaine"
Data.s "Orlane","Enora","Melody","Violaine","Bérénice","Marie-Annick","Hortense"
Data.s "Manuella","Lucille","Assia","Priscillia","Anne-Lise","Victorine","Fatma"
Data.s "Apolline","Alexandrine","Judith","Amina","Jenny","Maureen","Katy","Lana"
Data.s "Louane","Berangere","Graziella","Ida","Luna","Tania","Maite","Laurette"
Data.s "Christina","Angela","Joanna","Marie-Agnes","Meline","Ninon","Mariette"
Data.s "Dounia","Diana","Loane","Suzette","Paola","Amelia","Armande","Lindsay"
Data.s "Lolita","Lila","Rosa","Amel","Ornella","Djamila","Ana","Lara","Rosine"
Data.s "Dorine","Rachida","Alberte","Rita","Eliette","Anne-Claire","Fatoumata"
Data.s "Albane","Salima","Elea","Zohra","Noella","Muguette","Kimberley","Alyssa"
Data.s "Daphne","Leontine","Augusta","Gwladys","Solenn","Garance","Iris","Lily"
Data.s "Lou-Anne","Amanda"
Data.s "Ilyes","Claude","Dominique","Maxime","Camille","Alexis"
Data.s "Maxence","Morgan","Lou","Sacha","Alix","Imane","Farah","§"



prenomsmasculins:
Data.s "Jean","Michel","Pierre","Philippe","David","Pascal","Thierry","Stéphane"
Data.s "Alain","Nicolas","Bernard","Patrick","Christophe","Laurent","Frédéric"
Data.s "Alexandre","Christian","Jacques","Gérard","Julien","Sébastien","Daniel"
Data.s "François","André","Thomas","Didier","Michael","Lionel","Jean-François"
Data.s "Olivier","Éric","Vincent","René","Guillaume","Louis","Raymond","Gregory"
Data.s "Robert","Roger","Bruno","Jérôme","Antoine","Georges","Romain","Emmanuel"
Data.s "Marc","Guy","Jean-Pierre","Franck","Anthony","Henri","Fabrice","Patrice"
Data.s "Marcel","Cédric","Maurice","Jean-Claude","Mathieu","Étienne","Matthieu"
Data.s "Kevin","Joseph","Gilles","Lucas","Charles","Fabien","Jean-Luc","Xavier"
Data.s "Benjamin","Joël","Denis","Jeremy","Clément","Sylvain","Gilbert","Mathis"
Data.s "Francis","Arnaud","Hervé","Ludovic","Damien","Mickaël","Benoît","Roland"
Data.s "Florian","Quentin","Paul","Yannick","Jean-Marc","Rémi","Yann","Jonathan"
Data.s "Gabriel","Albert","Jean-Paul","Richard","Aurélien","Jean-Louis","Victor"
Data.s "Florent","Simon","Rémy","Arthur","William","Jacky","Bertrand","Corentin"
Data.s "Mohamed","Dylan","Nathan","Régis","Gaétan","Thibault","Bastien","Yoann"
Data.s "José","Jules","Émile","Jordan","Tom","Fernand","Édouard","Jean-Baptiste"
Data.s "Hubert","Jean-Jacques","Tony","Leo","Luc","Noël","Christopher","Cyrille"
Data.s "Jean-Philippe","Mehdi","Martin","Karim","Manuel","Yanis","Erwan","Léon"
Data.s "Tristan","Jean-Yves","Thibaut","Dimitri","Jean-Christophe","Gaël","Alex"
Data.s "Steven","Robin","Gerald","Jimmy","Dorian","Martial","Eugène","Geoffrey"
Data.s "Armand","Yvon","Johan","Brice","Matteo","Max","Matheo","Gaston","Yohan"
Data.s "Mathias","Jérémie","Marius","Félix","Eddy","Renaud","Hugues","Rodolphe"
Data.s "Teddy","Grégoire","Alfred","Steve","Yohann","Antonin","Bryan","Antonio"
Data.s "Mael","Edmond","Killian","Noah","Élie","Lilian","Rudy","Romuald","Yvan"
Data.s "Aymeric","Auguste","Alban","James","Jason","Sofiane","Tanguy","Augustin"
Data.s "Norbert","Evan","Mikael","Adam","Willy","Rayan","Ethan","Aimé","Freddy"
Data.s "Rachid","Jean-Charles","Pierrick","Alan","Johann","Antony","Allan","Ali"
Data.s "Farid","Samir","Jackie","Ahmed","Stanislas","Boris","Timothee","Raphaël"
Data.s "Emilien","Wilfriedt","Thibaud","Jean-Noël","Charly","Flavien","Gauthier"
Data.s "Germain","Johnny","Yoan","Kylian","Esteban","Stephan","John","Yassine"
Data.s "Mario","Ernes","Joris","Miguel","Alphonse","Jocelyn","Raoul","Ghislain"
Data.s "Kamel","Mateo","Matthias","Amaury","Amine","Lorenzo","Samy","Mustapha"
Data.s "Ryan","Ismaël","Maximilien","Diego","Pierre-Yves","Abdelkader","Yacine"
Data.s "Titouan","Hakim","Gustave","Gwenael","Emeric","Geoffroy","Abel","Walid"
Data.s "Justin","Noa","Nabil","Mathys","Gabin","Saïd","Jessy","Julian","Marvin"
Data.s "Frank","Nolan","Brandon","Youssef","Carlos","Giovanni","Malik","Cyprien"
Data.s "Sami","Steeve","Logan","Bilal","Andy","Jack","Younès","Gautier","Mourad"
Data.s "Vivien","Nassim","Lenny","Ange","Noe","Wilfrid","Gildas","Omar","Loris"
Data.s "Kilian","Ibrahim","Hamza","Pablo","Moïse","Rayane","Gaspard","Nathanael"
Data.s "Karl","François-Xavier","Timothe","Guilhem","Oscar","Melvin","Mohammed"
Data.s "Angelo","Luca","Nordine","Marceau","Ayoub","Henry","Francisco","Erick"
Data.s "Joachim","Jean-Bernard","Brahim","Elias","Rafael","Marco","Basile","Ugo"
Data.s "Brian","Ivan","Théophile","Eliott","Erwann","Arsène","Virgile","Kyllian"
Data.s "Rodrigue","Joffrey","Mike","Juan","Stephen","Sullivan","Adel","Donovan"
Data.s "Salim","Davy","Moussa","Charlie","Désiré","Rubén","Jean-Marie","Nelson"
Data.s "Leonard","Malo","Théodore","Rolland","Kenny","Constant","Amar","Lucien"
Data.s "Djamel","Teo","Léopold","Yves","Serge","Axel","Baptiste","Enzo","Samuel"
Data.s "Luis","Roman","Zakaria","Loïc","Hugo","Theo","Valentin","Jean-Michel"
Data.s "Raphaël","Adrien","Ronan","Cyril","§"

Provider:  
Data.s "Yahoo.fr" 
Data.s "Wanadoo.fr" 
Data.s "Orange.fr" 
Data.s "Free.fr" 
Data.s "Gmail.fr" 
Data.s "Alice.fr" 
Data.s "Infonie.fr" 
Data.s "§" 

EndDataSection

Bonjour et Merci à tous
A la suite du PRG de Kernadec en tirant au sort

Code : Tout sélectionner

Dim T_NOM.s(1000) 
Dim T_PRENM.s(1000)
Dim T_PRENF.s(1000)
Restore nompropre
i=0
While a$<>"§"
	Read.s a$
	T_NOM(i)=a$
	I+1
; 	Debug a$
Wend
MAX_NOM=I-1
Restore prenomsmasculins
i=0
a$=""
While a$<>"§"
	Read.s a$
		T_PRENM(i)=a$
	I+1
;   Debug a$
Wend
MAX_PRENM=I-1

Restore prenomsfeminins
i=0
a$=""
While a$<>"§"
	Read.s a$
		T_PRENF(i)=a$
	I+1
;   Debug a$
Wend
MAX_PRENF=I-1

; Debug _n(max_nom)+_n(max_prenm)+_n(max_prenf)
For n=0 To MAX_NOM
FEM_MAS=Random(100)%2
Select FEM_MAS
Case 0
PRENOM$=T_PRENM(Random(max_PRENM))
Case 1
PRENOM$=T_PRENF(Random(max_PRENF))
EndSelect
Debug PRENOM$+" "+t_nom(Random(MAX_NOM))
Next
DataSection
  nompropre:
  Data.s "Martin","Bernard","Thomas","Petit","Robert","Richard","Durand","Dubois"
  Data.s "Moreau","Laurent","Simon","Michel","Lefebvre","Leroy","Roux","David"
  Data.s "Bertrand","Morel","Fournier","Girard","Bonnet","Dupont","Lambert","Roy"
  Data.s "Fontaine","Rousseau","Vincent","Muller","Lefevre","Faure","Andre","Rey"
  Data.s "Mercier","Blanc","Guerin","Bonhomme","Garnier","Chevalier","Francois"
  Data.s "Legrand","Gauthier","Garcia","Perrin","Robin","Clement","Morin","Denis"
  Data.s "Henry","Roussel","Mathieu","Gautier","Masson","Marchand","Duval","Brun"
  Data.s "Dumont","Lemaire","Meyer","Dufour","Meunier","Charpentier","Guillaume"
  Data.s "Blanchard","Giraud","Joly","Riviere","Martineau","Brunet","Gaillard"
  Data.s "Barbier","Arnaud","Martinez","Gerard","Roche","Renard","Schmitt","Marie"
  Data.s "Leroux","Colin","Vidal","Caron","Picard","Roger","Fabre","Aubert","Remy"
  Data.s "Lemoine","Renaud","Dumas","Lacroix","Olivier","Philippe","Bourgeois"
  Data.s "Pierre","Benoit","Payet","Rolland","Leclercq","Boyer","Noel","Schneider"
  Data.s "Lecomte","Lopez","Jean","Dupuy","Guillot","Hubert","Berger","Barre"
  Data.s "Carpentier","Nicolas","Sanchez","Dupuis","Moulin","Louis","Deschamps"
  Data.s "Huet","Vasseur","Perez","Boucher","Fleury","Royer","Klein","Jacquet"
  Data.s "Adam","Paris","Poirier","Marty","Aubry","Carre","Fernandez","Leclerc"
  Data.s "Renault","Menard","Baron","Bertin","Bailly","Boulanger","Rossignol"
  Data.s "Herve","LeGall","Collet","Leger","Bouvier","Chevallier","Charbonnier"
  Data.s "Julien","Prevost","Millet","Perrot","Daniel","LeRoux","Cousin","Guyot"
  Data.s "Germain","Breton","Besson","Langlois","LeGoff","Pelletier","Camus"
  Data.s "Leveque","Perrier","Leblanc","Lebrun","Marchal","Weber","Toussaint"
  Data.s "Mallet","Hamon","Jacob","Monnier","Michaud","Rodriguez","Lelievre"
  Data.s "Guichard","Gillet","Etienne","Grondin","Poulain","Tessier","Masse"
  Data.s "Collin","Chauvin","DaSilva","Bouchet","Gay","Lemaitre","Maillard"
  Data.s "Benard","Marechal","Humbert","Reynaud","Antoine","Hoarau","Jourdain"
  Data.s "Barthelemy","Cordier","Pichon","Lejeune","Gilbert","Lamy","Delaunay"
  Data.s "Pasquier","Carlier","Laporte","Buisson","Ollivier","Briand","Chapuis"
  Data.s "Alexandre","Georges","Guillou","Besnard","Legros","Gonzalez","Coulon"
  Data.s "Maillot","Albert","Couturier","Delattre","Launay","Hebert","Berthelot"
  Data.s "Didier","Voisin","Pons","Bousquet","Coste","Vallee","Jacques","Martel"
  Data.s "Maury","Raynaud","Barbe","Pascal","Bigot","Verdier","Charrier","Sauvage"
  Data.s "Guillet","Mahe","Leduc","Gregoire","Joubert","Lucas","Charles","Colas"
  Data.s "Delmas","Morvan","Lebreton","Tanguy","Pineau","Lebon","Gaudin","Regnier"
  Data.s "Imbert","Paul","Raymond","Guillon","Brunel","Ferrand","Hardy","Courtois"
  Data.s "Devaux","Bodin","Chauvet","Allard","Blondel","Laine","Lesage","Valentin"
  Data.s "Delorme","Seguin","Lenoir","Bonneau","Pereira","Thibault","Hernandez"
  Data.s "Lacombe","Riou","Lagarde","Clerc","Bruneau","Godard","Vaillantr","Rossi"
  Data.s "Gomez","Jourdan","Pages","Lombard","Mary","Delannoy","Levy","Prigent"
  Data.s "Blin","Texie","Marion","Allain","Maurice","Guilbert","Baudry","Bazin"
  Data.s "Dupre","Marin","Evrard","Hoareau","Turpin","Bourdon","Lefort","Legendre"
  Data.s "Chartier","Gilles","Lacoste","Loiseau","Duhamel","Laroche","Ferreira"
  Data.s "Rousset","Wagner","Fischer","Normand","Maillet","Rodrigues","Valette"
  Data.s "Guibert","Rocher","Bonnin","Jacquot","Grenier","Chretien","Fouquet"
  Data.s "Leconte","Peltier","Pruvost","Vallet","Pottier","Descamps","Lemonnier"
  Data.s "Parent","Boutin","Potier","Chauveau","Neveu","Lecoq","Thierry","Cornu"
  Data.s "Peron","Delahaye","Vial","Blot","Delage","Petitjean","Sabatier","Poncet"
  Data.s "Maurin","Lafon","Faivre","Merle","Blanchet","Parmentier","Weiss","Cros"
  Data.s "Serre","Favre","Becker","Foucher","Guyon","Joseph","Mace","DosSantos"
  Data.s "Gallet","Bouvet","Salmon","LeCorre","Fernandes","Bernier","Goncalves"
  Data.s "Girault","Begue","Andrieu","Maurel","Auger","Gras","Castel","Chambon"
  Data.s "Laborde","Gervais","Boulay","Stephan","Labbe","Guy","Besse","Perret"
  Data.s "Samson","Duclos","Dijoux","Doucet","Gros","Ruiz","§"
  
  
  prenomsfeminins:
  Data.s "Marie","Nathalie","Monique","Isabelle","Catherine","Sylvie","Françoise"
  Data.s "Jacqueline","Martine","Christine","Nicole","Valérie","Sandrine","Anaïs"
  Data.s "Stéphanie","Sophie","Jeanne","Véronique","Christiane","Céline","Chantal"
  Data.s "Patricia","Hélène","Annie","Brigitte","Jeannine","Denise","Alexandra"
  Data.s "Laurence","Émilie","Michèle","Virginie","Corinne","Yvette","Élodie"
  Data.s "Colette","Danielle","Cécile","Caroline","Madeleine","Claudine","Léa"
  Data.s "Florence","Simone","Laetitia","Suzanne","Audrey","Geneviève","Laura"
  Data.s "Élisabeth","Sarah","Josette","Andrée","Lucie","Manon","Marie-Thérèse"
  Data.s "Pauline","Annick","Renée","Thérèse","Delphine","Évelyne","Marie-Claude"
  Data.s "Melanie","Karine","Marion","Odette","Marine","Josiane","Christelle"
  Data.s "Mireille","Yvonne","Michelle","Gisèle","Ginette","Chloé","Antoinette"
  Data.s "Mathilde","Marcelle","Charlotte","Marguerite","Fabienne","Frédérique"
  Data.s "Sandra","Pascale","Liliane","Jocelyne","Aurore","Nelly","Gaelle","Inès"
  Data.s "Séverine","Raymonde","Sabrina","Micheline","Amandine","Myriam","Nadine"
  Data.s "Joëlle","Juliette","Angélique","Anne-Marie","Anne","Marie-Christine"
  Data.s "Maryse","Lucienne","Odile","Amélie","Sonia","Daniele","Justine","Julie"
  Data.s "Vanessa","Emmanuelle","Georgette","Oceane","Élise","Fanny","Alice"
  Data.s "Francine","Huguette","Magali","Clara","Laure","Nadia","Maria","Claire"
  Data.s "Aline","Morgane","Muriel","Agnès","Éliane","Paulette","Béatrice","Elsa"
  Data.s "Germaine","Jessica","Arlette","Estelle","Pierrette","Solange","Emma"
  Data.s "Jennifer","Samantha","Sabine","Aurélie","Marie-Jose","Agathe","Marlene"
  Data.s "Janine","Melissa","Régine","Lydie","Clémence","Lucette","Aude","Romane"
  Data.s "Noémie","Coralie","Henriette","Lisa","Eva","Anna","Carole","Bernadette"
  Data.s "Sylviane","Adeline","Viviane","Marie-France","Maeva","Irene","Yolande"
  Data.s "Nadege","Simonne","Gabrielle","Carine","Alicia","Ophélie","Julia","Jade"
  Data.s "Rose","Marthe","Mauricette","Geraldine","Claudette","Jeanine","Edith"
  Data.s "Margaux","Marina","Ludivine","Rachel","Gilberte","Valentine","Maryline"
  Data.s "Joséphine","Murielle","Elisa","Marianne","Marie-Laure","Angèle","Celia"
  Data.s "Marie-Hélène","Fernande","Alexia","Maryvonne","Clémentine","Gwendoline"
  Data.s "Marie-Claire","Emeline","Lola","Maud","Axelle","Nina","Sylvia","Katia"
  Data.s "Charlene","Anne-Sophie","Margot","Adele","Peggy","Noëlle","Gwenaelle"
  Data.s "Lucile","Marjorie","Deborah","Laurie","Solène","Natacha","Linda","Paule"
  Data.s "Lydia","Rolande","Zoé","Andrea","Ingrid","Anita","Cindy","Carla","Lena"
  Data.s "Olivia","Cathy","Annette","Blandine","Ambre","Kelly","Cynthia","Mylène"
  Data.s "Magalie","Charline","Barbara","Armelle","Marie-Francoise","Sara","Leila"
  Data.s "Johanna","Eugénie","Cecilia","Dorothée","Roselyne","Marie-Paule","Reine"
  Data.s "Marie-Louise","Clarisse","Claudie","Victoria","Marie-Pierre","Louisette"
  Data.s "Laurine","Malika","Lise","Marylène","Lilou","Corine","Clotilde","Astrid"
  Data.s "Eloise","Carmen","Lina","Flavie","France","Christel","Flora","Heloise"
  Data.s "Perrine","Marie-Noelle","Cassandra","Annabelle","Salomé","Marie-Line"
  Data.s "Anne-Laure","Emilienne","Léonie","Floriane","Edwige","Berthe","Roseline"
  Data.s "Tiphaine","Maelys","Aurelia","Coline","Anaelle","Marielle","Priscilla"
  Data.s "Diane","Violette","Sandy","Fatima","Leslie","Betty","Claudia","Éléonore"
  Data.s "Eveline","Alison","Marie-Ange","Anissa","Angelina","Tiffany","Constance"
  Data.s "Marinette","Candice","Yasmine","Melina","Nora","Samia","Karen","Roxane"
  Data.s "Tatiana","Marie-Jeanne","Jeannette","Adrienne","Aimee","Esther","Eve"
  Data.s "Sylvette","Megane","Leone","Christele","Raphaëlle","Rose-Marie","Rejane"
  Data.s "Lauriane","Blanche","Yasmina","Sofia","Nolwenn","Cloe","Helena","Melodie"
  Data.s "Samira","Olga","Julienne","Florine","Rebecca","Marilyne","Ilona","Wendy"
  Data.s "Aïcha","Louna","Stella","Victoire","Karima","Dalila","Capucine","Naima"
  Data.s "Fiona","Alizee","Pascaline","Sophia","Kenza","Fatiha","Mailys","Rosalie"
  Data.s "Line","Doriane","Marie-Anne","Cyrielle","Chrystelle","Dolores","Manuela"
  Data.s "Elena","Lysiane","Nicolle","Angeline","Yamina","Marie-Josèphe","Ariane"
  Data.s "Augustine","Louisa","Marie-Madeleine","Marie-Rose","Marie-Odile","Nancy"
  Data.s "Erika","Albertine","Faustine","Yveline","Gladys","Flore","Pamela","Anny"
  Data.s "Leane","Oriane","Soraya","Cassandre","Roberte","Marie-Josee","Berengere"
  Data.s "Farida","Coraline","Adelaide","Melinda","Laurene","Francette","Guylaine"
  Data.s "Orlane","Enora","Melody","Violaine","Bérénice","Marie-Annick","Hortense"
  Data.s "Manuella","Lucille","Assia","Priscillia","Anne-Lise","Victorine","Fatma"
  Data.s "Apolline","Alexandrine","Judith","Amina","Jenny","Maureen","Katy","Lana"
  Data.s "Louane","Berangere","Graziella","Ida","Luna","Tania","Maite","Laurette"
  Data.s "Christina","Angela","Joanna","Marie-Agnes","Meline","Ninon","Mariette"
  Data.s "Dounia","Diana","Loane","Suzette","Paola","Amelia","Armande","Lindsay"
  Data.s "Lolita","Lila","Rosa","Amel","Ornella","Djamila","Ana","Lara","Rosine"
  Data.s "Dorine","Rachida","Alberte","Rita","Eliette","Anne-Claire","Fatoumata"
  Data.s "Albane","Salima","Elea","Zohra","Noella","Muguette","Kimberley","Alyssa"
  Data.s "Daphne","Leontine","Augusta","Gwladys","Solenn","Garance","Iris","Lily"
  Data.s "Lou-Anne","Amanda"
  Data.s "Ilyes","Claude","Dominique","Maxime","Camille","Alexis"
  Data.s "Maxence","Morgan","Lou","Sacha","Alix","Imane","Farah","§"
  
  
  
  prenomsmasculins:
  Data.s "Jean","Michel","Pierre","Philippe","David","Pascal","Thierry","Stéphane"
  Data.s "Alain","Nicolas","Bernard","Patrick","Christophe","Laurent","Frédéric"
  Data.s "Alexandre","Christian","Jacques","Gérard","Julien","Sébastien","Daniel"
  Data.s "François","André","Thomas","Didier","Michael","Lionel","Jean-François"
  Data.s "Olivier","Éric","Vincent","René","Guillaume","Louis","Raymond","Gregory"
  Data.s "Robert","Roger","Bruno","Jérôme","Antoine","Georges","Romain","Emmanuel"
  Data.s "Marc","Guy","Jean-Pierre","Franck","Anthony","Henri","Fabrice","Patrice"
  Data.s "Marcel","Cédric","Maurice","Jean-Claude","Mathieu","Étienne","Matthieu"
  Data.s "Kevin","Joseph","Gilles","Lucas","Charles","Fabien","Jean-Luc","Xavier"
  Data.s "Benjamin","Joël","Denis","Jeremy","Clément","Sylvain","Gilbert","Mathis"
  Data.s "Francis","Arnaud","Hervé","Ludovic","Damien","Mickaël","Benoît","Roland"
  Data.s "Florian","Quentin","Paul","Yannick","Jean-Marc","Rémi","Yann","Jonathan"
  Data.s "Gabriel","Albert","Jean-Paul","Richard","Aurélien","Jean-Louis","Victor"
  Data.s "Florent","Simon","Rémy","Arthur","William","Jacky","Bertrand","Corentin"
  Data.s "Mohamed","Dylan","Nathan","Régis","Gaétan","Thibault","Bastien","Yoann"
  Data.s "José","Jules","Émile","Jordan","Tom","Fernand","Édouard","Jean-Baptiste"
  Data.s "Hubert","Jean-Jacques","Tony","Leo","Luc","Noël","Christopher","Cyrille"
  Data.s "Jean-Philippe","Mehdi","Martin","Karim","Manuel","Yanis","Erwan","Léon"
  Data.s "Tristan","Jean-Yves","Thibaut","Dimitri","Jean-Christophe","Gaël","Alex"
  Data.s "Steven","Robin","Gerald","Jimmy","Dorian","Martial","Eugène","Geoffrey"
  Data.s "Armand","Yvon","Johan","Brice","Matteo","Max","Matheo","Gaston","Yohan"
  Data.s "Mathias","Jérémie","Marius","Félix","Eddy","Renaud","Hugues","Rodolphe"
  Data.s "Teddy","Grégoire","Alfred","Steve","Yohann","Antonin","Bryan","Antonio"
  Data.s "Mael","Edmond","Killian","Noah","Élie","Lilian","Rudy","Romuald","Yvan"
  Data.s "Aymeric","Auguste","Alban","James","Jason","Sofiane","Tanguy","Augustin"
  Data.s "Norbert","Evan","Mikael","Adam","Willy","Rayan","Ethan","Aimé","Freddy"
  Data.s "Rachid","Jean-Charles","Pierrick","Alan","Johann","Antony","Allan","Ali"
  Data.s "Farid","Samir","Jackie","Ahmed","Stanislas","Boris","Timothee","Raphaël"
  Data.s "Emilien","Wilfriedt","Thibaud","Jean-Noël","Charly","Flavien","Gauthier"
  Data.s "Germain","Johnny","Yoan","Kylian","Esteban","Stephan","John","Yassine"
  Data.s "Mario","Ernes","Joris","Miguel","Alphonse","Jocelyn","Raoul","Ghislain"
  Data.s "Kamel","Mateo","Matthias","Amaury","Amine","Lorenzo","Samy","Mustapha"
  Data.s "Ryan","Ismaël","Maximilien","Diego","Pierre-Yves","Abdelkader","Yacine"
  Data.s "Titouan","Hakim","Gustave","Gwenael","Emeric","Geoffroy","Abel","Walid"
  Data.s "Justin","Noa","Nabil","Mathys","Gabin","Saïd","Jessy","Julian","Marvin"
  Data.s "Frank","Nolan","Brandon","Youssef","Carlos","Giovanni","Malik","Cyprien"
  Data.s "Sami","Steeve","Logan","Bilal","Andy","Jack","Younès","Gautier","Mourad"
  Data.s "Vivien","Nassim","Lenny","Ange","Noe","Wilfrid","Gildas","Omar","Loris"
  Data.s "Kilian","Ibrahim","Hamza","Pablo","Moïse","Rayane","Gaspard","Nathanael"
  Data.s "Karl","François-Xavier","Timothe","Guilhem","Oscar","Melvin","Mohammed"
  Data.s "Angelo","Luca","Nordine","Marceau","Ayoub","Henry","Francisco","Erick"
  Data.s "Joachim","Jean-Bernard","Brahim","Elias","Rafael","Marco","Basile","Ugo"
  Data.s "Brian","Ivan","Théophile","Eliott","Erwann","Arsène","Virgile","Kyllian"
  Data.s "Rodrigue","Joffrey","Mike","Juan","Stephen","Sullivan","Adel","Donovan"
  Data.s "Salim","Davy","Moussa","Charlie","Désiré","Rubén","Jean-Marie","Nelson"
  Data.s "Leonard","Malo","Théodore","Rolland","Kenny","Constant","Amar","Lucien"
  Data.s "Djamel","Teo","Léopold","Yves","Serge","Axel","Baptiste","Enzo","Samuel"
  Data.s "Luis","Roman","Zakaria","Loïc","Hugo","Theo","Valentin","Jean-Michel"
  Data.s "Raphaël","Adrien","Ronan","Cyril","§"
EndDataSection

kernadec a écrit :Faire un code comme Kcc, c'était trop de prise de tête pour moi ce matin.

Trop facile Monsieur kernadec

. Il faudrait revoir votre code de maniére à avoir un debug du style :

Code : Tout sélectionner

Debug Prenom$+" "+Nom$

Il faudrait prévoir que l'association nom prénom soit une combinaison composée d'un tirage aléatoire issus de la liste des noms et au choix un prénom masculin ou féminin. On pourrait ajouter une légère complication avec une gestion des prénoms composés.

Reedit : Tssss devancé par PAPIPP de quelques minutes :p
Ceci dit il y a une erreur ligne 35

Il suffit de commenter la ligne et ça fonctionne quand même !

En tous cas : chapeau à KCC qui a eut une idée géniale, donc grand merci à KCC !

Micoute a écrit :Il suffit de commenter la ligne et ça fonctionne quand même !

Je suis d'accord, je voulais juste prévenir PAPIPP

De même, il y a un ";" qui ne devrait pas figurer dans la datasection mais ça n'empeche pas le code de fonctionner

PureBasic

Generateur de clients

Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients

Re: Generateur de clients