


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Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9