CARACTERES EM MINUSCULOS NO TEXTBOX

USUARIO.EXCLUIDOS 19/11/2006 23:53:45
#185318
a função UCase serve para colocar o 1º caracter de uma palavra em maiusculo numa textbox. como tirar desta seleção silabas com de, da, do dos, das. por exemplo usando a função ucase o nome
geraldo da silva
sai
Geraldo Da Silva
é pra sair:
Geraldo da Silva

obrigado

deltanusigma
ESLEYSANCHES 20/11/2006 00:01:46
#185320 Resposta escolhida
Amigo use o Lcase

VARIAVEL = LCase("OLA ISSO ESTA EM MAIUSCULA")
msgbox(VARIAVEL)


Espero que te ajude !!
Abraços !!
USUARIO.EXCLUIDOS 20/11/2006 00:28:44
#185322
é simples...


tipo: 


Dim Texto as String

Texto = text1.text

texto = Replace(Texto, " Da ", " da ")
texto = Replace(Texto, " De ", " de ")
...

text1.text = texto


OBS: tem que ter os espaços antes e depois da silaba para identificar que é uma silaba separada
FFCOUTO 20/11/2006 08:19:53
#185330
use esta função abaixo e veja q é o q vc precisa

Public Function LCasePreposition(ByVal sText As String) As String
   Dim Excecao
   Dim NewText As String
   Dim Fim As String
   Dim loSize As Integer
   Dim hiSize As Integer
   Dim i As Integer
   
   Excecao = Array(" Do ", " Dos ", " Da ", " Das ", " De ", " E ", " Del ", " Di ")
   NewText = Space(1) & LCase(sText) & Space(1)
   Fim = Len(sText)

   For i = 1 To Fim
      If Mid(NewText, i, 1) = " " Then
         Mid(NewText, i + 1, 1) = UCase(Mid(NewText, i + 1, 1))
      End If
   Next

   loSize = LBound(Excecao)
   hiSize = UBound(Excecao)

   For i = loSize To hiSize
      Do While InStr(1, NewText, Excecao(i)) > 0
         Mid(NewText, InStr(1, NewText, Excecao(i)), Len(Excecao(i))) = LCase(Excecao(i))
      Loop
   Next

   LCasePreposition = Trim(NewText)
End Function

'Para chamar a função faça assim
Private Sub Text1_LostFocus()
   Text1 = LCasePreposition(Text1)
End Sub



espero ter ajudado.
USUARIO.EXCLUIDOS 20/11/2006 10:11:40
#185343
Olá amigo...

Fiz uma função que poderá te ajudar (ela não verifica se é "de" "dos" "da", mas verifica todas as palavras com 2 e tres letras). Eu uso sempre essa função por isso tem 3 opções quando vc chama a função: 


FormatTexto(Texto, Tipo)


Onde:
Tipo = 1 (Tudo Maiúsculo)
Tipo = 2 (Tudo Minúsculo)
Tipo = 3 (Maiúsculo e Minúsculo)

dai é só vc colocar essa função num módulo e funciona em qualquer hora do programa, valeu...



[c]Function FormatTexto(Texto, Tipo)
   If Texto <> "" And Mid(Texto, 1, 1) = "*" Then
      Texto = Mid(Texto, 2, Len(Texto))
      FormatTexto = Texto
      Exit Function
   End If
   
   If Tipo = 1 Then 'TUDO MAIÃÅ¡SCULO
      Resultado = Format(Texto, ">")
   ElseIf Tipo = 2 Then 'TUDO MINÃÅ¡SCULO
      Resultado = Format(Texto, "<")
   ElseIf Tipo = 3 Then 'MAIÃÅ¡SCULO E MINÃÅ¡SCULO
      Resultado = ""
      Início = True: Espaço = False
      txt = Format(Texto, "<")
      For i = 1 To Len(txt)
         If Início = True Then
            If Mid(txt, i, 1) = " " Then
               Resultado = Resultado & Mid(txt, i, 1)
            Else
               Resultado = Resultado & Format(Mid(txt, i, 1), ">")
               Início = False
            End If
         ElseIf Espaço = True Then
            Espaço = False
            If Mid(txt, i, 4) Like "??? " Then
               Resultado = Resultado & Format(Mid(txt, i, 4), "<")
               Espaço = True
               i = i + 3
            ElseIf Mid(txt, i, 3) Like "?? " Then
               Resultado = Resultado & Format(Mid(txt, i, 3), "<")
               Espaço = True
               i = i + 2
            ElseIf Mid(txt, i, 2) Like "? " Then
               Resultado = Resultado & Format(Mid(txt, i, 2), "<")
               Espaço = True
               i = i + 1
            ElseIf Mid(txt, i, 1) = " " Then
               Espaço = True
               Resultado = Resultado & " "
            ElseIf Mid(txt, i, 1) = "." Then
               Início = True
               Resultado = Resultado & "."
            Else
               Resultado = Resultado & Format(Mid(txt, i, 1), ">")
            End If
         Else
            If Mid(txt, i, 1) = " " Then
               Espaço = True
               Resultado = Resultado & " "
            ElseIf Mid(txt, i, 1) = "." Then
               Início = True
               Resultado = Resultado & "."
            Else
               Resultado = Resultado & Format(Mid(txt, i, 1), "<")
            End If
         End If
      Next i
   End If
   FormatTexto = Resultado
End Function


[/c]
USUARIO.EXCLUIDOS 20/11/2006 14:24:30
#185394
Colega, dê uma pesquisada antes de postar, veja a função que eu criei: CONVERTER PRIMEIRA LETRA EM MAIUSCULO COM EXCECOES


Qualquer dúvida poste...flw
Tópico encerrado , respostas não são mais permitidas
Voltar