****************************************************************************************** *
**EndUser4gl : Utilitaire de tri 
** *******************************************************************************************
**  
**  Tri par odre alph : FORMAT EXCEL : CSV
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"        

integer :    exit_trans1  ,x;

struct : ref 
{
 char  Name: 25 ,
       Surname:15 ,
       Adresse:40 ,
       Town:30 ,
       Telephon:20,
       Fax:20,
       Country:20 ; 
long   CodeTown ;
} 
       Sortinput    "c:\EndUser4gl\4gl\hlp\datafile\adresse.wri"  length=174    /* fichier longueur variable= fichier texte*/
  			by ref.name
            Sortoutput  "c:\EndUser4gl\4gl\hlp\datafile\AdresseSort.xls" 
            Format(ref.name,"	",ref.surname,"	",ref.adresse,"	",
                  ref.town,"	",ref.telephon,"	",ref.fax,"	",
                  ref.country,"	") use return_carriage  ;	
  
           		    MsgBox  : TITLE "My First ConnectExcel"  
           		    Message :      " Sort is Finish  see you -> c:\EndUser4gl\4gl\hlp\datafile\AdresseSort.xls" 
	          	    button  :       MB_OK
                   	    icon    :        MB_ICONEXCLAMATION           returning (x) ; 
 
	  ConnectExcel ("c:\EndUser4gl\4gl\hlp\datafile\AdresseSort.xls":VISIBLE)    ;