{NeoBook Function}
Version=5,60
Language=NeoBook
Comment=Por josevdr95   (neo_strins)|----------------------------------------------------|Trabajo con strins|-----------------------------------------------------|Parmetro|neo_strins.c   (cuenta los caracteres de una cadena ignorando los espacios) ||neo_strins.ce   (cuenta los caracteres de una cadena incluyendo los espacios) ||neo_strins.capitalize  (letra capital, la primera letra se convierte a mayscula)||neo_strins.count   (Cuenta la cantidad de caracteres de un tipo dentro de la cadena)||
Param=[%strins]|FileName|Cadena
Param=[%Param]|FileName|Parmetro
Param=[%count]|FileName|Letra a contar
{End}
.cuenta los caracteres de una cadena ignorando los espacios
If "[%Param]" "=" "neo_strins.c"
StrReplace "[%strins]" " " "" "[%strins_s_es]" ""
StrLen "[%strins_s_es]" "[%strins_c_r]"
ClearVariables "[%strins_s_es]"
Else
EndIf
.cuenta los caracteres de una cadena incluyendo los espacios
If "[%Param]" "=" "neo_strins.ce"
StrLen "[%strins]" "[%strins_ce_r]"
Else
EndIf
.capitalize
If "[%Param]" "=" "neo_strins.capitalize"
SubStr "[%strins]" "1" "1" "[%strins_tmp1]"
StrUpper "[%strins_tmp1]" "[%strins_tmp1]"
StrDel "[%strins]" "1" "1" "[%strins_tmp2]"
StrIns "[%strins_tmp1]" "[%strins_tmp2]" "1" "[%strins_capitalize_r]"
ClearVariables "[%strins_tmp1]"
ClearVariables "[%strins_tmp2]"
Else
EndIf
.swapcase
If "[%Param]" "=" "neo_strins.swapcase"
StrLen "[%strins]" "[%strins_l]"
Loop "1" "[%strins_l]" "[i]"
StrLower "[%strins]" "[%strins]"
SubStr "[%strins]" "1" "1" "[%strins_tmp1]"
StrDel "[%strins]" "1" "1" "[%strins]"
StrUpper "[%strins]" "[%strins]"
SubStr "[%strins]" "1" "1" "[%strins_tmp2]"
Endloop
Else
EndIf
.count
If "[%Param]" "=" "neo_strins.count"
ClearVariables "[%strins_count_r]"
SetVar "[%strins_count_r]" "0"
StrLen "[%strins]" "[%strins_l]"
Loop "1" "[%strins_l]" "[i]"
SearchStr "[%count]" "[%strins]" "[tmp_1]" ""
If "[tmp_1]" ">" "0"
SetVar "[%strins_count_r]" "[%strins_count_r]+1"
Else
EndIf
StrDel "[%strins]" "[tmp_1]" "1" "[%strins]"
EndLoop
ClearVariables "[i]"
ClearVariables "[tmp_1]"
ClearVariables "[%strins_l]"
Else
EndIf
