如何在VB6中反转字符串的大小写？

Question

我正在尝试创建一个可以接受字符串字母并反转其大小写的程序。我知道在vb.net中存在IsUpper（）命令，但我不知道在vb6中有这样的事情。

我可以用什么代替它？

谢谢！

Answer 1

这样的事情应该有效：

Private Function Invert(strIn As String) As String
    Dim strOut As String
    Dim strChar As String
    Dim intLoop As Integer

    For intLoop = 1 To Len(strIn)
        strChar = Mid(strIn, intLoop, 1)
        If UCase(strChar) = strChar Then
            strChar = LCase(strChar)
        Else
            strChar = UCase(strChar)
        End If
        strOut = strOut + strChar
    Next

    Invert = strOut
End Function

循环提供的字符串，并提取每个字符。然后它尝试将其转换为大写，并根据提取的字符进行检查。如果它是相同的那么它已经是大写的，所以它将它转换为小写。

它可以很好地处理非字母字符，因为UCase / LCase忽略了这些字符。