|
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Friday, November 16, 2007 3:06 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: SQL question - trim leading alphabetic characters
The following I think works:
Select substr(myField, max(1,locate('0',
translate(myField,'0000000000','0123456789'))))
A script and results to better visualize:
create table qtemp.strplusdig (myfield char (20))
;
insert into qtemp.strplusdig values
('ABC123'),('ABC123DEF'),('A1B2'),('B7C45'),('ABCDEF')
;
Select substr(myField, max(1,locate('0',
translate(myField,'0000000000','0123456789'))))
from qtemp.strplusdig
;
-- results of that select:
_SUBSTR_
123
123DEF
1B2
7C45
ABCDEF
******** End of data
Regards, Chuck
--
All comments provided "as is" with no warranties of any kind
whatsoever and may not represent positions, strategies, nor
views of my
employer
Adam Glauser wrote:
> -----Original Message-----any leading
> Subject: SQL question - trim leading alphabetic characters
>
> Does SQL have a relatively easy way to do this mapping?
>
> ABC123 -> 123
> ABC123DEF -> 123DEF
> A1B2 -> 1B2
> ...
Elvis Budimlic wrote:
Based solely on the sample set you provided, this ought to work:
SELECT REPLACE(REPLACE(myField,'ABC',''),'A','') FROM myLib/myFile
Thanks Elvis. I wasn't quite clear enough. I want to trim
alphabetic characters in order to sort by embeddednumerics. Apparently
this makes counting parts in a poorly organized stock roomeasier at one
of our locations easier.just seems like
In regular expressions terms, I'm looking for something like this:
s/[A-Z]*([A-Z0-9]*)/\1/
I think I might be going to RPG for %scan + %subst. It
a lot of overhead for a once-per-year query.
--
This is the Midrange Systems Technical Discussion
(MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.