Find Lower Case In String

[bscs1963]

I have a text field in a table where I need to find where the first lower case occurs in the string.

I am trying to create a bar code of the field, and there needs to be a plus sign before each lower case letter.

For instance, the value DsMldGnRR would need to have a + sign before the "s". Then it would read as D+sM+l+dG+nRR. This would actual occur before each lower case. Once I find the first case, isnerting the + sign is easy.

 

[PHV]

A starting point:

Public Function LowerPlus(strValue)
If IsNull(strValue) Then Exit Function
Dim i As Long, x As String, strReturn As String
For i = 1 To Len(strValue)
  x = Mid(strValue, i, 1)
  If Asc(x) >= 97 And Asc(x) <= 122 Then
    strReturn = strReturn & "+"
  End If
  strReturn = strReturn & x
Next
LowerPlus = strReturn
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[strongm]

[blue]Public Function LowerPlus(strValue As String) As String
 
    With CreateObject("vbscript.regexp")
        .Pattern = "([a-z])"
        .Global = True
        LowerPlus = .Replace(strValue, "+$1")
    End With
    
End Function[/blue]