Funkce pro kapitálky

Funkce:
Public Function Kapitalky (str As String) As String 

   Dim i As Integer, L As Integer 
   Dim Prev_char As String * 1 
   Dim c As String * 1 
   Dim S As String 

   Prev_char = " " 
   L = Len(str) 
   i = 1 
   S = "" 
   Do While i <= L 
      c = Mid(str, i, 1) 
      If Prev_char = " " Or Prev_char = "-" Or Prev_char = "." Then 
         c = UCase(c) 
      Else 
         c = LCase(c) 
      End If 
      If c = "M" Then 
         If Mid(str, i + 1, 1) = "g" Or Mid(str, i + 1, 1) = "l" Then 
            c = "m" 
         End If 
      End If 
      S = S + c 
      Prev_char = c 
      i = i + 1 
   Loop 
   str = S 

   Kapitalky = S 

End Function

Použití:
Private Sub Command1_Click() 

   Text1.Text = Kapitalky(Text1.Text) 

End Sub

Zpět