Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need idea for sort
Message
From
26/02/2010 07:51:11
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
 
 
To
26/02/2010 06:19:02
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01451160
Message ID:
01451198
Views:
37
So what I come up now without UDF (what is hard to create to me)
SELECT;
 ICASE(;
  EMPTY(GETWORDNUM(TRIM(cur1.cName),1,'.')),SPACE(Cur2.iLen01),;
  ISDIGIT(GETWORDNUM(TRIM(cur1.cName),1,'.')),PADL(GETWORDNUM(TRIM(cur1.cName),1,'.'),Cur2.iLen01,'0'),;
  PADR(GETWORDNUM(TRIM(cur1.cName),1,'.'),Cur2.iLen01));
 +;
 ICASE(;
  EMPTY(GETWORDNUM(TRIM(cur1.cName),2,'.')),SPACE(Cur2.iLen02),;
  ISDIGIT(GETWORDNUM(TRIM(cur1.cName),2,'.')),PADL(GETWORDNUM(TRIM(cur1.cName),2,'.'),Cur2.iLen02,'0'),;
  PADR(GETWORDNUM(TRIM(cur1.cName),2,'.'),Cur2.iLen02));
 +;
 ICASE(;
  EMPTY(GETWORDNUM(TRIM(cur1.cName),3,'.')),SPACE(Cur2.iLen03),;
  ISDIGIT(GETWORDNUM(TRIM(cur1.cName),3,'.')),PADL(GETWORDNUM(TRIM(cur1.cName),3,'.'),Cur2.iLen03,'0'),;
  PADR(GETWORDNUM(TRIM(cur1.cName),3,'.'),Cur2.iLen03));
 AS vVerbindungsSort,;
 +;
 ICASE(;
  EMPTY(GETWORDNUM(TRIM(cur1.cName),4,'.')),SPACE(Cur2.iLen04),;
  ISDIGIT(GETWORDNUM(TRIM(cur1.cName),4,'.')),PADL(GETWORDNUM(TRIM(cur1.cName),4,'.'),Cur2.iLen04,'0'),;
  PADR(GETWORDNUM(TRIM(cur1.cName),4,'.'),Cur2.iLen04));
 AS cSort,;
 cur1.cName AS cNr;
 FROM curSource AS cur1;
 FULL JOIN (;
  SELECT;
   MAX(LEN(GETWORDNUM(TRIM(Cur2_1.cName),1,'.'))) AS iLen01,;
   MAX(LEN(GETWORDNUM(TRIM(Cur2_1.cName),2,'.'))) AS iLen02,;
   MAX(LEN(GETWORDNUM(TRIM(Cur2_1.cName),3,'.'))) AS iLen03,;
   MAX(LEN(GETWORDNUM(TRIM(Cur2_1.cName),4,'.'))) AS iLen04;
   FROM curSource AS Cur2_1;
  ) AS Cur2;
 ON .T.;
 ORDER BY 1
Update:

this is without mixed stuff, but this is out of spec anyway.
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord

Weeks of programming can save you hours of planning.

Off

There is no place like [::1]
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform