[RESOLVED] How to detect two uppercase letters.

[ebonez]

Hey. I wanna do something so when someone is typing in a textbox it will detect two capital letters and change it to one, like for example, "I bought a NEw phone yesterday." It would detect that the word, "new" had two capital letters and it changes it back to "New."
Anyone know how to do this?

[leinad31]

Will StrConv() suffice for your needs?

MsgBox ("I bought a NEw phone yesterday.", vbProperCase)

EDIT: Ooops... forgot that it capitalizes start of all words. You'll have to scan string two characters at a time from position 1 to Len(string) - 1. Personally I would go for byte array implementation, but you can also use Mid().

[ebonez]

Ok. Thanks. I'll try find something like that

[leinad31]

Option Explicit

Private Sub Form_Load()
Dim pos      As Long
Dim strTemp  As String
Dim lngCharA As Long
Dim lngCharB As Long

   strTemp = "I bought a NEw phone yesterday."
   For pos = 1 To Len(strTemp) - 1
      lngCharA = Asc(Mid(strTemp, pos, 1))
      lngCharB = Asc(Mid(strTemp, pos + 1, 1))
      If (lngCharA >= 65 And lngCharA <= 90) And (lngCharB >= 65 And lngCharB <= 90) Then
         Mid(strTemp, pos + 1, 1) = LCase(Chr(lngCharB))
      End If
   Next
   MsgBox strTemp
End Sub

[Pradeep1210]

StrConv(x,vbProperCase) won't help as it will capitalize the first letter of all the words.

Instead you must loop thru the string, set a flag when a capital letter is found. So when you get the second capital letter and you see that the flag is true you know you need to replace it.

This code might help (not tested).
Note that this is not the most efficient code and there could be better methods for doing this too.

Function ReplaceTwoCapitalsWithOne(ByVal sourceString as String)
    Dim found as Boolean
    For i = 0 To Len(sourceString) -1
        If Mid(sourceString, i, 1) like "[A-Z]" Then
            If found Then Mid(sourceString, i, 1) = Lcase(Mid(sourceString, i, 1))
            found = True
        Else
            found = False
        End If
    Next
    ReplaceTwoCapitalsWithOne = sourceString
End Sub

Pradeep

[DigiRev]

Try this, wrote it really quick:

Private Sub Text1_Change()
    On Error Resume Next
    
    Dim bytCur As Integer, lonLen As Long
    Dim lonSel As Long, lonPrevSpace As Long
    Dim strText As String
    
    strText = Text1.Text
    lonLen = Len(strText)
    lonSel = Text1.SelStart
    
    If lonLen > 0 Then
    
        If lonSel < 2 Then
            bytCur = CByte(Asc(Mid$(strText, 1, 1)))
        Else
            bytCur = CByte(Asc(Mid$(strText, lonSel - 1, 1)))
            lonPrevSpace = InStrRev(strText, " ", lonSel)
        End If
        
        If lonSel > 0 Then
            If lonPrevSpace + 1 <> (lonSel - 1) Then
                If bytCur >= 65 And bytCur <= 90 Then
                    Mid$(strText, lonSel - 1, 1) = Chr$(bytCur + 32)
                    Text1.Text = strText
                    Text1.SelStart = lonSel
                End If
            End If
        End If
        
    End If
End Sub

[ebonez]

Thanks, I used DigiRev's and it worked .

Resolved

[Logophobic]

Another option:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
  Case 65 To 90 ' A to Z
    With Text1
      If .SelStart > 0 Then
        Select Case Asc(Mid$(.Text, .SelStart, 1))
        Case 65 To 90: KeyAscii = KeyAscii + 32
        End Select
      End If
    End With
  End Select
End Sub

[DigiRev]

Another option:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
  Case 65 To 90 ' A to Z
    With Text1
      If .SelStart > 0 Then
        Select Case Asc(Mid$(.Text, .SelStart, 1))
        Case 65 To 90: KeyAscii = KeyAscii + 32
        End Select
      End If
    End With
  End Select
End Sub

Much better. I tend to write sloppy and sometimes redundantly when I'm tired or rushing through it...