Function CaseSensitive(ByVal Expression As String) As String
Dim s$, i&, ch$
s = Space$(Len(Expression) * 2)
For i = 1 To Len(Expression)
ch = Mid$(Expression, i, 1)
If (ch = LCase$(ch)) Then
Mid$(s, i * 2 - 1, 1) = "_"
Else
Mid$(s, i * 2 - 1, 1) = "^"
End If
Mid$(s, i * 2, 2) = ch
Next
CaseSensitive = s
End Function
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 218