Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Reduce code article
Message
From
28/04/2006 12:11:28
Mike Yearwood
Toronto, Ontario, Canada
 
 
To
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Reduce code article
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01117574
Message ID:
01117574
Views:
49
Hi Hilmar

I finally skimmed through all the UT mags. The neatest trick of all was your ordering records bit.

SELECT ..., at(Code, "QWER") as OrderField

That can be expanded to handle multi-string codes too. Assuming code is 5 chars with no spaces...

select INT(AT("," + code + ",",",ABCDE,12345,FGHIJ,67890,") / 5 + 1) + 1 as OrderField

I believe a UDF could be made for this, making it easier to use it in several similar queries. I would not make it very general purpose as it would add significant overhead with parameter checking etc.

Something like this...

UDFCodeOrder.PRG
RETURN INT(AT("," + code + ",",",PEARS,12345,APPLE,ORANG,") / 5 + 1) + 1

With the query being

select UDFCodeOrder() as OrderField

Agreed?
Next
Reply
Map
View

Click here to load this message in the networking platform