Just a comment, that's the kind of thing I would have written that as a
<cfscipt> block. It would be a little faster and less bulky looking ....
~Justin MacCarthy
----- Original Message -----
From: Zachary Bedell <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, July 02, 2000 2:36 PM
Subject: RE: UPS CHECK DIGIT
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> > This is what I came up with. Anyone have anything any faster?
>
> I'm not sure if this is any faster, but I think it's a little easier
> to grok.
>
> It's not in tag form, but should be easy enough to tagify...
>
> Hope this helps.
>
> Best regards,
> Zachary Bedell
>
> <!---
> ASSume: Tracking number is a string like:
> "1Z12345X421234567"
> 12345X is the UPS Account
> 42 is the service level (Ground w/ Signature in this case)
> 1234567 is your sequence number
> The check digit is missing
> - --->
>
> <!--- At this point we should have a tracking number, minus
> checkdigit. --->
> <!--- Trim off the 1Z --->
> <Cfset CheckTrackingNumber = Mid(TrackingNumber, 3,
> Len(TrackingNumber) - 2)>
> <cfset TheSum = 0>
>
> <cfset LenTrak = Len(CheckTrackingNumber)>
> <Cfloop from="1" to="#LenTrak#" index="i">
> <Cfset TheChar = Mid(CheckTrackingNumber, i,1)>
> <cfif Not IsNumeric(TheChar)>
> <!--- Handle letter to number conversion --->
> <Cfset TheChar = Asc(TheChar) - 63>
> </cfif>
>
> <cfif i MOD 2 EQ 0>
> <!--- Even --->
> <cfset TheSum = TheSum + (2 * Int(TheChar))>
> <cfelse>
> <!--- Odd --->
> <Cfset TheSum = TheSum + Int(TheChar)>
> </cfif>
> </cfloop>
> <cfset Remain = TheSum MOD 10>
> <cfset Check = 10 - Remain>
> <Cfif Check EQ 10><cfset Check = 0></cfif>
> <Cfset TrackingNumber = TrackingNumber & Check>
> <!--- No tracking number has its check digit appended --->
>
>
> -----BEGIN PGP SIGNATURE-----
> Version: PGPfreeware 6.5.3 for non-commercial use <http://www.pgp.com>
>
> iQA/AwUBOV9FWAraVoMWBwRBEQI5LwCgij+D/1gd5yYg3gaawmpfeeyFaJoAn0AM
> qIetaKh9+3recuB2SXkNgehD
> =C8gi
> -----END PGP SIGNATURE-----
> --------------------------------------------------------------------------
----
> Archives: http://www.eGroups.com/list/cf-talk
> To Unsubscribe visit
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or
send a message to [EMAIL PROTECTED] with 'unsubscribe' in
the body.
>
>
------------------------------------------------------------------------------
Archives: http://www.eGroups.com/list/cf-talk
To Unsubscribe visit
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or send a
message to [EMAIL PROTECTED] with 'unsubscribe' in the body.
