TEXTBOX PERDER FOCO E TIRAR ESPAçO COM APóSTROFO

 Tópico anterior Próximo tópico Novo tópico

TEXTBOX PERDER FOCO E TIRAR ESPAçO COM APóSTROFO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#494869 - 09/09/2020 14:34:27

VIVIANEARRAIS
BALSAS
Cadast. em:Setembro/2020


Olá pessoal

tenho um textbox onde coloca nome de meus produtos
Preciso ao perder o foco, ele faço o seguinte

-Tire espaço a esquerda
-Tire espaço a direita
-Tire espaço duplo entre as palavras
-Tire Apóstrofo ( ‘ )



#494871 - 09/09/2020 15:51:24

NOBODY
BOA VISTA / PE
Cadast. em:Agosto/2009


em um modulo insira o código
Public Function fixStrings(ByVal value As String) As String
    value = Trim(value)
    value = Replace(value, ''', '')
    value = Replace(value, '  ', ' ')
    
    fixStrings = value
End Function

o uso dele seria assim:
Exemplo:     Me.Caption = fixStrings(' sonildo ' josé ')

o retorno será: sonildo josé

Espero ter ajudado



#494877 - 09/09/2020 20:02:39

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Última edição em 09/09/2020 20:32:11 por EPISCOPAL

Só uma descrição ..... é bom colocar a função do Sonildo dentro de um laço, caso exista por exemplo três espaços seguidos.


tipo assim:


Private Function fixStrings(ByVal Value As String) As String
    Dim bRepete As Boolean
    Value = Replace$(Value, ''', vbNullString)
    Do
      Value = Replace$(Value, '  ', ' ')
      bRepete = InStr(1, Value, '  ', vbTextCompare)
      Value = Trim(Value)
    Loop Until Not bRepete
    fixStrings = Value
End Function


____________________________________________________________________
Episcopal Studios


#494879 - 09/09/2020 21:47:59

VIVIANEARRAIS
BALSAS
Cadast. em:Setembro/2020


boa noite pessoal,

as duas formos as linhas que possui a palavra (value) ficaram vermelha... pq?



Resposta escolhida #494887 - 10/09/2020 19:55:08

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


O problema está no site, ele substitui o aspas por apostrofo.

Onde aparece o vermelho, substitua o apostrofo por aspas ... ok?

____________________________________________________________________
Episcopal Studios


#494944 - 14/09/2020 16:58:58

VIVIANEARRAIS
BALSAS
Cadast. em:Setembro/2020


deu certo,

obg SONILDO e EPISCOPAL



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por VIVIANEARRAIS em 14/09/2020 16:59:08