Match case in string 2

[three57m]

Is there a way to change the case of a string similar to the "StrConv Constant" vbProperCase but to convert the case
anyway I need. for example:

specialcasestring = "myCaSe"
if not stringcheck = specialcasestring then
make string same case

Note it may seem that I should just use

If Lcase(stringcheck) = Lcase(specialcasestring) then
stringcheck = specialcasestring

but I am trying to match the case without literally setting one string equal to the other.

I need to do it this way because the original string
"stringcheck" has special formatting in a richtextbox and when i use rtb.seltext = specialcasestring, however
rtb.seltext = StrConv(rtb.seltext, vbProperCase) allows formatting to remain but is not the desired case setting.

 

[three57m]

Clicked submit to fast on previous post and didnt type a thought, so this one is more clear.

Is there a way to change the case of a string similar to the "StrConv Constant" vbProperCase but to convert the case
anyway I need. for example:

specialcasestring = "myCaSe"
if not stringcheck = specialcasestring then
make string same case

Note it may seem that I should just use

If Lcase(stringcheck) = Lcase(specialcasestring) then
stringcheck = specialcasestring

but I am trying to match the case without literally setting one string equal to the other.

I need to do it this way because the original string
"stringcheck" has special formatting in a richtextbox and when i use rtb.seltext = specialcasestring the special formatting is lost, however
rtb.seltext = StrConv(rtb.seltext, vbProperCase) allows formatting to remain but is not the desired case setting.

 

[strongm]

Something like:

[blue]Public Function ArbitaryCase(ByVal strTarget As String, strCase As String) As String
    Dim strSource As String
    Dim lp As Long
    
    strSource = Left(strCase, Len(strTarget))
    For lp = 1 To Len(strSource)
        ArbitaryCase = ArbitaryCase & Chr$(Asc(Mid(UCase(strTarget), lp, 1)) Xor (Asc(Mid(strSource, lp, 1)) And &H20))
    Next
    ArbitaryCase = ArbitaryCase + Right(strTarget, Len(strTarget) - Len(strSource))
End Function[/blue]

 

[SBerthold]

Create a function, passing stringcheck and specialcasestring, which returns the modified string.

In this function you could loop through each char of stringcheck using Mid$(), compare the same Char in the same position of specialcasestring using Asc() on both characters.
If the Asc value for the current char of stringcheck is not with-in the same range as that of the specialcasestring char in the same position, (65 to 90 for lower chars, 97 to 122 for upper chars), then add or subtract 32 and convert the Asc value back using Chr$() and rebuild the string.

 

[strongm]

It's like you read my mind ...

 

[SBerthold]

>It's like you read my mind

That last pint had Bio-Spyware in it.

Let's see what happens next ... (apart negative effects on the Somatic motoneurons)

 

[TysonLPrice]

Maybe I am mis-reading your post but have you looked at
"Option Compare" to set how VB compares strings?

"Option Compare Text" is something I use frequently. There is also a "Option Compare Binary"

 

[strongm]

>Maybe I am mis-reading your post

I think you probably are; it took me a couple of readings of both the origanal posts to understand what three57m was getting at