[AS][DEV] Changer la case en Capital

Bonsoir,

Je recherche comment faire pour changer la case d'une chaîne de caractères pour la mettre en Capital (la première lettre en majuscule et le reste en minuscule).

Avez-vous une idée ?

Par avance, merci. ;)

Peut être que ce lien peut t'aider : http://macscripter.net/viewtopic.php?pid=41960

oui, j'ai déjà regarder aussi sur ce lien, mais moi j'avais déjà ça à la base :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
on ChangeCase()
	tell tab view item 4 of tab view 1 of window 1
		if the button is "theChangeCase" then
			set the comparison_string to "ABCDEFGHIJKLMNOPQRSTUVWXYZEEEEIIIAAAAOOOUUUC"
			set the source_string to "abcdefghijklmnopqrstuvwxyzéèêëîïìàâäàôöòùûüç"
		else
			set the comparison_string to "abcdefghijklmnopqrstuvwxyzéèêëîïìàâäàôöòùûüç"
			set the source_string to "ABCDEFGHIJKLMNOPQRSTUVWXYZEEEEIIIAAAAOOOUUUC"
		end if
		set theChange to contents of text field "theResult"
		set T to ""
		considering case
			repeat with thisChar in theChange
				set x to the offset of thisChar in the comparison_string
				if x is not 0 then
					set T to T & character x of the source_string
				else
					set T to T & thisChar
				end if
			end repeat
		end considering
		set contents of text field "theResult" to T
		set the clipboard to T
	end tell
end ChangeCase

Idem pour le minuscule.
J'aurai voulu l'utiliser pour faire la première Lettre en Maj et le reste en Min.