Меняем регистр

Spearance 11.11.2005 08:59 / 11.11.2005 09:20

Крохотный метод для смены регистра:

########################################
# меняет регистр на СТРОЧНЫЙ/прописной/Первый символ строчный
# type - upper/lower/first
#####
@change_case[str;type]
^if(def $str && def $type){
	$result[^switch[$type]{
		^case[upper]{^str.upper[]}
		^case[lower]{^str.lower[]}
		^case[first]{^str.match[^^([а-яa-z])(.*?)^$][i]{^if(def $match.1){^match.1.upper[]}^if(def $match.2){^match.2.lower[]}}}
		^case[DEFAULT]{$str}
	}]
	
}
### End @change_case[]

Пример здесь.

---