Uppercase_custom

Some fontfaces get unreadable when uppercased.

This function allows to filter at least μ or β chars.

https://forums.4d.com/4DBB_Main/x_User/3906/files/32530471.zip

<code 4D>
// Method Uppercase_custom uppercases the string passed in $1
// Some characters are filtered because unreadable when uppercased
//
// #SYNTAX: $String:=Uppercase_custom(“string”)
// #PARAMETERS:
// $0 Text : Uppercased string
// $1 Text : a string

// #DATE CREATION: 16/11/2019 #AUTHOR: Bertrand SOUBEYRAND info@soubeyrand-4d-developer.eu
// #DATE MODIFICATION: 00/00/0000
// #NOTE:

// #HEADER VERSION: 2

C_TEXT($0)

C_TEXT($1;$T_String)
$T_String:=$1

ARRAY TEXT($rT_Preserved_char;0)
APPEND TO ARRAY($rT_Preserved_char;“μ”)// the forum breaks chars
APPEND TO ARRAY($rT_Preserved_char;“β”)

C_LONGINT($i)
For ($i;1;Length($T_String))

C_TEXT($T_Char)
$T_Char:=$T_String[$i]
If (Find in array($rT_Preserved_char;$T_Char)=-1)
	$T_String[$i]:=Uppercase($T_String[$i])
end if

End for

$0:=$T_String

// EOM
</code 4D>