Search Tools Links Login

UCase to LCase & LCase to UCase Converter


THIS VERY COOL FUNCTION TAKES A NORMAL STRING AND CONVERT EVERY CHARACTER IN IT FROM UCase TO LCase OR FROM LCase TO UCase... CHECK IT OUT!! AND VOTE IF YOU FIND IT USEFUL

Original Author: amaru

Code


Public Function Convert(orgStr As String) As String
For Counter = 1 To Len(orgStr)
X = Mid(orgStr, Counter, 1)
If X = LCase(X) Then
  X = UCase(X)
Else
  X = LCase(X)
End If
Convert = Convert & X
Next
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 82 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.