SUBROUTINE MOULINETTE(MODULE,FICHIER,SYNONYME)

OPEN "","VOC" TO F.VOC ELSE RETURN
ENRVOC=""
ENRVOC=REPLACE(ENRVOC,1;"F")
CHEMIN="D:\TRANSFERT\":MODULE
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\":FICHIER)
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_":FICHIER)
WRITE ENRVOC ON F.VOC,SYNONYME
OPEN "",SYNONYME TO F.FICHIER ELSE RETURN

EXECUTE 'SELECT ':SYNONYME

10 READNEXT CLE ELSE
 DELETE F.VOC,SYNONYME
 RETURN 
END
READ ENR FROM F.FICHIER,CLE ELSE GOTO 10
ZONE=CONVERT(CHAR(0),"",CLE)
IF CLE#ZONE THEN
 WRITE ENR ON F.FICHIER,ZONE
 DELETE F.FICHIER,CLE
 CLE=ZONE
END

NBATTR=DCOUNT(ENR,CHAR(254))
MODIF="NON"

FOR D=1 TO NBATTR
 ATTR=EXTRACT(ENR,D)
 LONG=LEN(ATTR)
 ZONE=ATTR
 LOOP
  POS=INDEX(ZONE,CHAR(0),1)
  UNTIL POS=0 DO
   ZONE=ZONE[1,POS-1]:ZONE[POS+1,LEN(ZONE)-POS]
 REPEAT
 ENR=REPLACE(ENR,D;ZONE)
NEXT D

WRITE ENR ON F.FICHIER,CLE
GOTO 10