> What I do not succeed in is converting a lowercase letter in an uppercase
> letter before it gets passed to the text field.
>
> Did anybody of you guys do that before?
Sure, in English it's a snap, but I you'll need to do some 1 to 1 mapping
for German (though probably not *too* much). For the English a to z, the
following will do it:
on lowerToUpperCase stringIn
stringOut = stringIn
repeat with i = 1 to stringIn.char.count
charNum = charToNum(stringIn.char[i])
if 123 > charNum > 96 then
--lower case a to z are chars 97 to 122,
--upper case are 65 to 90.
put numToChar(charNum - 32) into stringOut.char[i]
end if
end repeat
return stringOut
end
For German, though, you'd want to run a second handler after the first to
deal with umlauts and such. Something like this (far from optimized):
on lowerToUpperSpecialChars stringIn
stringOut = stringIn
charList = ["�":"�"]
repeat with i = 1 to charList.count
tempChar = charList.getPropAt(i)
if stringOut contains tempChar then
repeat with ii = 1 to stringOut.char.count
if charToNum(tempChar) = charToNum(stringOut.char[ii]) then
put charList[tempChar] into stringOut.char[ii]
end if
end repeat
end if
end repeat
return stringOut
end
HTH,
Kurt
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/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!]
