Hello Sam and the Elektonika team,
This function will do the trick for you:
on convertStrToUppercase iStr
oStr = ""
n = length(iStr)
repeat with i = 1 to n
tA = charToNum(iStr.char[i])
if tA = min(max(97, tA), 122) then tA = tA - 32 -- char is lowercase
oStr = oStr & numToChar (tA)
end repeat
return oStr
end
PS - I'm pretty sure not all the people on this list are "chaps"
Luke
on 6/10/00 7:09 PM, sam at [EMAIL PROTECTED] wrote:
> Hello chaps,
>
> I need to convert a string to UPPERCASE before writing it to a text member
> (due to the font my colleague Geo created consisting of only uppercase
> chars) - how do I do that? sure it must be easy but can't find out how....
>
> Thanks,
>
> Sam and the Elektonika team.
>
> ================================================================
>
> = elektonika =
> = just another nu-meeja company =
> = www.elektonika.co.uk = = [EMAIL PROTECTED] = = www.mustardpot.com =
>
> STANDARD DISCLAIMER: This message is confidential. You should not copy it or
> disclose its contents to anyone. You may use and apply the information only
> for the intended purpose. Internet communications are not secure and
> therefore Elektonika does not accept legal responsibility for the contents
> of this
> message. Any views or opinions presented are only those of the author and
> not those of Elektonika. If this email has come to you in error please
> delete it and
> any attachments.
>
>
> [To remove yourself from this list, or to change to digest mode, go to
> http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
> email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
> Lingo-L is for learning and helping with programming Lingo. Thanks!]
--
Luke Wigley
Multimedia Director/Producer
Mecca Medialight Pty Ltd
Mecca Medialight: Medialight Sound Studio:
111 Moor Street 1 Bakehouse Lane
Fitzroy, Vic. 3065 North Fitzroy, Vic. 3068
Tel +613 9416 2033 Tel +613 9416 2033
Fax +613 9416 2055 Fax +613 9416 2055
www.medialight.com.au
__________________________________________________________________________
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
