ХГ
Первоисточник вот. Стоит ли включать не знаю, я бы включил
Size: a a a
ХГ
Oℕ
ХГ
R
ХГ
KV
Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
Dim I As Integer
SplitWords = Left(Str, 1)
For I = 2 To Len(Trim(Str))
If (Asc(Mid(Str, I, 1)) > 64) And _
(Asc(Mid(Str, I, 1)) < 91) And _
(Mid(Str, I - 1, 1) <> " ") Then _
SplitWords = SplitWords & " "
SplitWords = SplitWords & Mid(Str, I, 1)
Next
End Function
split (dropInitBlank . keepDelimsL $ whenElt isUpper)
ХГ
Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
Dim I As Integer
SplitWords = Left(Str, 1)
For I = 2 To Len(Trim(Str))
If (Asc(Mid(Str, I, 1)) > 64) And _
(Asc(Mid(Str, I, 1)) < 91) And _
(Mid(Str, I - 1, 1) <> " ") Then _
SplitWords = SplitWords & " "
SplitWords = SplitWords & Mid(Str, I, 1)
Next
End Function
split (dropInitBlank . keepDelimsL $ whenElt isUpper)
KV
ХГ
ХГ
KV
ХГ
R
R
Oℕ
R
Oℕ
R
Oℕ
R