Publié par SFLPMEA le 27/01/2010
Source Qbasic toutes versions. A partir de C:\DICO\COMPLET.TXT (téléchargé comme dit dans le message d’explication), création de C:\DICO\DIC_OdS3.ODS (Fichier Random), Officiel du Scrabble 3. Par SFLPMEA.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
'************************* '* CREATION DICTIONNAIRE * C:\DICO\CREADIC0.BAS '************************* '*** Ecrit le 23/01/2010 OPEN "C:\DICO\COMPLET.TXT" FOR INPUT AS 1 OPEN "C:\DICO\DIC_OdS3.ODS" FOR RANDOM AS #2 LEN = 32 FIELD 2, 31 AS E$, 1 AS S$ CLS : E2! = 0 Debut! = TIMER DO INPUT #1, M$ E2! = E2! + 1 LSET E$ = M$: LSET S$ = " " PUT 2, E2! LOOP UNTIL EOF(1) LOCATE 10, 25: COLOR 11: PRINT "*" + M$ + "*" LOCATE 27, 10: PRINT USING "Ex‚cution en ###.##"; TIMER - Debut!
