Padronizar dados

[Lionheart]

Olá, colegas...

Alguém conhece alguma rotina/função que impeça o usuário de digitar, num campo de cliente, o nome dele, com mais de

um espaço de separação? (ex.: José da Costa Coelho ....> José(espaço)(espaço)(espaço)da(espaço)(espaço)(espaço)(espaço) Costa(espaço)Coelho)..... Imaginem a confusão, numa tabela de nomes de clientes...

Já vi alguma coisa em outros foruns, porém não obtive nenhum resultado concreto.

Lion...

Edited March 23, 2012 by Lionheart

[kuroi]

Você pode fazer um Replace no KeyPress da TextBox, que troque " " por " " (dois espaços por um espaço só).

Ou se quiser arrumar uma String já digitada, deve dar com expressões regulares, mas não tenho prática com elas, então não consigo te indicar qual usar.

Ou você usar um While que cheque a String com InStr(), e vá fazendo o Replace(), enquanto ela tiver espaços duplos. Exemplo:

Do While InStrB(1, str, "  ") <> 0&
    str = Replace(str, "  ", " ")
Loop[/code]

[Lionheart]

:rolleyes:

Valeu, Kuroi.

Resolvi da seguinte maneira: no evento <LostFocux> de textbox com nome de clientes, inseri a seguinte rotina:

txtCliente = Replace(txtCliente,"  ", " ").

Obrigado pela dica. t +

Edited March 26, 2012 by Lionheart

[Danleonhart]

Só lembrando que se for colocado mais de dois "espaços" o script não corrigirá... :unsure: