30 Nov. 2000
> Date: Wed, 29 Nov 2000 19:44:35 +0010
> From: [log in to unmask]
> F90/F95 brought in some lovely character intrinsics.
>
> One that is missing, and every library on the net that I
> have seen has its own variant, is to uppercase (or
> lowercase).
>
> I was looking at our applications today, written by
> several people and over several decades. I was shocked
> to find that we have so many Mickey Mouse routines to do
> what I believe should be a sim-ple intrinsic.
>
> Though F2K is getting close (only 3/4 years down the
> track) shouldn't such an intrinsic be easily acceptable?
>
> A character by character function, or a straight string
> transformation? I'd go for the latter.
DO i = 1, LEN(String)
K = INDEX(LOWER, String(i:i))
IF (K > 0) String(i:i) = UPPER(K:K)
END DO
> Regards, Paddy
|