Deletar Os Espaços Até Começar O Texto

[tuliod]

Bom diaaa!!

oláá pessoal!! :D

tudo beem??

to precisando de uma forçinha aí..

tem como deletar os espaços existentes em um texto até começar o texto..

EXEMPLO::

tenho um texto..

"            A Casa Caiu e o Gato Fugiu!!"

dae fica...

"A Casa Caiu e o Gato Fugiu!!"

entenderam??

tem como voces me ajudar??

Agradeço desde já!!

abraçooo!!

[Guest ###########---INICIATE---#######]

Cara voçe pode usar as Funçoes

Rtrim ' Tira Espaços da Direita

Ltrim 'Tira espaços da Esquerda

EX:

Private Sub CmdFormatText_Click()

Text1.Text = LTrim(Text1.Text)

'ou se quizer tirar dos dois lados

Text1.Text = RTrim(LTrim(Text1.Text))

End Sub

se Texto ficara assim: Os hifens são espaços

------------Meu texto

Meu texto

Se é isso que voçe queria está aí, se não tente saber mais sobre a funçao SPLIT() OK

Posta aí se tiver te ajudado Vlew! :ph34r:

[tuliod]

Valeeeu!!

é isso mesmo!!

obrigadoo

Tulio

[JIHAD_KASSAB]

Por Favor...

Gostaria que pudessem me ajudar.

Meu problema é parecido com esse.

Preciso saber como faço para quando clicar em um MSK o formato seja inteiro selecionado para quando eu começar a digitar tipo uma mascara de data ##/##/#### para não precisar ficar clicando no inicio da caixa do MSK.

o mais rapido que puderem me ajudar agradeço..

Salamu Aleikum

[kuroi]

na verdade, seu problema não tem nd a ver com esse, mas acho que o você quer é o seguinte:

no evento GotFocus do maskedbox, ponha o seguinte codigo:

MaskedBox1.SelStart = 0
MaskedBox1.SelLength = Len(MaskedBox1.Text)[/code]