how can i choose programaticaly

[diallo332@]

how can i choose programaticaly this numbers.
0=(387ERE274138P)1=(2358840223)2= (4585JD947596A7)
0=(YIO68274138PO)1=(7223PPD7223)2=(9955GF75OI)
the first number after alphabet equal the numbers inside (....)as showing in up
someone can help me withe a sample
Thank you

[altenbach]

If I understand you right, your example is working properly. Are you just looking for cleaner code?

Attached is a quick modification that is a bit simpler to read. If this is not what you need, please clarify.

[altenbach]

Sometimes it is even easier to read or modify the code if there are no case structures and everything is visible at a glance. For example, you could index into an lookup array of strings. This is just one of many ways to do it.
Compare the code size (Vi properties...memory), it is 25% of your sample (2.1kB vs 8.4kB).

[diallo332@]

Thank you very much Altenbach, for replying me
it exactly what i was looking for
thank very mach

[diallo332@]

Thak you very much Altenbch
for giving me clean code, the sample it more better than mine
Thank you