Кустарное преобразование в верхний и нижний регистры
Работает с ASCII символами, в том числе и с русскими.
Код
Function BufCharUp(sValue As String) As String
For i As Integer = 0 To Len(sValue)-1
Select Case sValue[i]
Case 65 To 90,97 To 122,168,184,192 to 255
sValue[i] = sValue[i] And &hdf
End Select
Next
Return sValue
End Function
function BufCharDown(sValue As String) As String
For i As Integer = 0 To Len(sValue)-1
Select Case sValue[i]
Case 65 To 90,97 To 122,168,184,192 to 255
sValue[i] = sValue[i] or &h20
End Select
Next
Return sValue
End Function
Dim As String sValue = "Hello World!"
? BufCharDown(sValue)
? BufCharUp(sValue)
sleep
