code:

---

$TextK = "abcdefghijklmnopqrstuvwxyzäöüß"
$TextG = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ"
CLS
BREAK ON
? $TextK
? UCASE($TextK)
? $TextG
? LCASE($TextG)
?

---

and got as result the following lines:

code:

---

abcdefghijklmnopqrstuvwxyzäöüß
ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖüß
ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ
abcdefghijklmnopqrstuvwxyzäöÜ

---

The second line is only incorrect in ü. For ß there is no upper character.
Also the fourth line is incorrect in Ü.

My only question is: Is it a bug or a NON-FEATURE for non-english languages. If it is last I think it will be a good idea to write it into the documentation.

Whats about other languages than german that have special characters?

------------------
Jens Kalski
eMail: jens@kalski.de

[This message has been edited by JensKalski (edited 13 May 2001).]

Have a look at this port. It shows a set of cases of 'a'='A' that might contain all the extended character sets that you are looking for. It might not, but it might give you some ideas.

Using the ideas in that post, I wrote a test script:

German.kix

code:

---

BREAK ON
CLS

$=setascii("off")
$TextK = "abcdefghijklmnopqrstuvwxyzäöüß"
$TextG = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ"

"source  kleine" $TextK ?
"enlarge kleine" UCASE($TextK) ? ?
"source grosse " $TextG ?
"shrink grosse " LCASE($TextG) ? ?

"little:" ?
chr(228) " " 256+asc("ä") ?
chr(246) " " 256+asc("ö") ?
chr(252) " " 256+asc("ü") ? ?

"big" ?
chr(196) " " 256+asc("Ä") ?
chr(214) " " 256+asc("Ö") ?
chr(220) " " 256+asc("Ü") ? ?

"sz" ?
chr(223) " " 256+asc("ß") ? ?

"subs" ?
"A-a=" 228-196 ?
"O-o=" 246-214 ?
"U-u=" 252-220 ? ?

"comps" ?
if chr(228)=chr(196) "A=a" else "A<>a" endif ?
if chr(246)=chr(214) "O=o" else "O<>o" endif ?
if chr(252)=chr(220) "U=u" else "U<>u" endif ? ?

---

This shows that KiX (3.63 and 2001 beta 2a) believe that Ä=ä and the difference of 32 corresponds with my discoveries in that aforementioned post. I hope I have helped in some way...

cj

p.s. Kix2001 beta can distinguish between Ä and ä with == instead of =

------------------
For more scripts goto cj's scripts page

chrismat@ozemail.com.au

german2.k2k

code:

---

break on
cls

for $i=128 to 255
	$i ": " lcase(chr($i)) " " ucase(chr($i)) " "

	if lcase(chr($i))==ucase(chr($i))
		"equal"
	else
		"not equal"
	endif
	?

next

---

That script produces this output:

code:

---

128: € € equal
129: � � equal
130: ‚ ‚ equal
131: ƒ ƒ equal
132: „ „ equal
133: … … equal
134: † † equal
135: ‡ ‡ equal
136: ˆ ˆ equal
137: ‰ ‰ equal
138: Š Š equal
139: ‹ ‹ equal
140: ΠΠequal
141: � � equal
142: Ž Ž equal
143: � � equal
144: � � equal
145: ‘ ‘ equal
146: ’ ’ equal
147: “ “ equal
148: ” ” equal
149: • • equal
150: – – equal
151: — — equal
152: ˜ ˜ equal
153: ™ ™ equal
154: š š equal
155: › › equal
156: œ œ equal
157: � � equal
158: ž ž equal
159: Ÿ Ÿ equal
160:     equal
161: ¡ ¡ equal
162: ¢ ¢ equal
163: £ £ equal
164: ¤ ¤ equal
165: ¥ ¥ equal
166: ¦ ¦ equal
167: § § equal
168: ¨ ¨ equal
169: © © equal
170: ª ª equal
171: « « equal
172: ¬ ¬ equal
173: ­ ­ equal
174: ® ® equal
175: ¯ ¯ equal
176: ° ° equal
177: ± ± equal
178: ² ² equal
179: ³ ³ equal
180: ´ ´ equal
181: µ µ equal
182: ¶ ¶ equal
183: · · equal
184: ¸ ¸ equal
185: ¹ ¹ equal
186: º º equal
187: » » equal
188: ¼ ¼ equal
189: ½ ½ equal
190: ¾ ¾ equal
191: ¿ ¿ equal
192: à À not equal
193: á Á not equal
194: â Â not equal
195: ã Ã not equal
196: ä Ä not equal
197: å Å not equal
198: æ Æ not equal
199: ç Ç not equal
200: è È not equal
201: é É not equal
202: ê Ê not equal
203: ë Ë not equal
204: ì Ì not equal
205: í Í not equal
206: î Î not equal
207: Ï Ï equal
208: ð Ð not equal
209: ñ Ñ not equal
210: ò Ò not equal
211: ó Ó not equal
212: ô Ô not equal
213: õ Õ not equal
214: ö Ö not equal
215: × × equal
216: Ø Ø equal
217: Ù Ù equal
218: Ú Ú equal
219: Û Û equal
220: Ü Ü equal
221: Ý Ý equal
222: Þ Þ equal
223: ß ß equal
224: à À not equal
225: á Á not equal
226: â Â not equal
227: ã Ã not equal
228: ä Ä not equal
229: å Å not equal
230: æ Æ not equal
231: ç Ç not equal
232: è È not equal
233: é É not equal
234: ê Ê not equal
235: ë Ë not equal
236: ì Ì not equal
237: í Í not equal
238: î Î not equal
239: ï ï equal
240: ð Ð not equal
241: ñ Ñ not equal
242: ò Ò not equal
243: ó Ó not equal
244: ô Ô not equal
245: õ Õ not equal
246: ö Ö not equal
247: ÷ ÷ equal
248: ø ø equal
249: ù ù equal
250: ú ú equal
251: û û equal
252: ü ü equal
253: ý ý equal
254: þ þ equal
255: ÿ ÿ equal

---

Now you can see what characters KiX will change with UCASE/LCASE.

cj

------------------
Jens Kalski
eMail: jens@kalski.de

These are replacements for LCASE and UCASE.
Here is the full UDF Spec:

code:

---

cjLCASE
Author		cj (chrismat@ozemail.com.au)

Action		Equivalent to KiX function LCASE, but with support for extended language characters.

Syntax		CJLCASE(string)

Parameters	string
		Required string to be changed to lowercase.

Returns		The input string in lowercase.

Remarks		Supports extended characters like É and Â.

Examples	$word=cjLCASE("CLICHÉ")

Source
Function cjLCASE($x)
	dim $y, $z
	for $i=1 to len($x)
		$y=asc(substr($x, $i, 1)) ; get next char
		$z=$y	; set default
		if $y<1 $y=$y+256 endif	; support for negative numbers from ASC()
		if $y>64 and $y<91	; normal char set
		or $y>191 and $y<222	; extended char set
			$z=$y+32
		endif
		if $y=254 $z=222 endif	; special case
		$cjLCASE=$cjLCASE+chr($z)
	next
EndFunction

---

and

code:

---

cjUCASE
Author		cj (chrismat@ozemail.com.au)

Action		Equivalent to KiX function UCASE, but with support for extended language characters.

Syntax		CJUCASE(string)

Parameters	string
		Required string to be changed to uppercase.

Returns		The input string in uppercase.

Remarks		Supports extended characters like é and â.

Examples	$word=cjUCASE("resumé")

Source
Function cjUCASE($x)
	dim $y, $z
	for $i=1 to len($x)
		$y=asc(substr($x, $i, 1)) ; get next char
		$z=$y	; set default
		if $y<1 $y=$y+256 endif	; support for negative numbers from ASC()
		if $y>96 and $y<123	; normal char set
		or $y>223 and $y<254	; extended char set
			$z=$y-32
		endif
		if $y=222 $z=254 endif	; special case
		$cjUCASE=$cjUCASE+chr($z)
	next
EndFunction

---

cj

------------------
cj's scripts page
cj's User Guide - 14 May 2001

chrismat@ozemail.com.au

[This message has been edited by cj (edited 14 May 2001).]