QUEBRA DE LINHA EM UM TEXTBOX

BAMBAM 18/04/2012 10:25:59
#400140
Estou precisando de um codigo da seguinte maneira num textbox ou rithtextbox;

cada vez que eu jogar no textbox ou rithtextbox um determinado texto, ele quebre a linha a cada apostofro que ele encontrar

Por exemplo, se eu jogar o codigo;


DTM+132:120324:101[ô]NAD+CA+HMM:
172:20[ô]LOC+147+0060610::5[ô]MEA+WT++KGM:23400[ô]LOC+9+BRSSZ:139:6[ô]LOC+11+USORF:139:6[ô]LOC+83+USORF:139:6[ô]

ele deve ficar assim

DTM+132:120324:101[ô]
NAD+CA+HMM:172:20[ô]
LOC+147+0060610::5[ô]
MEA+WT++KGM:23400[ô]
LOC+9+BRSSZ:139:6[ô]
LOC+11+USORF:139:6[ô]
LOC+83+USORF:139:6[ô]


vlw,, Abraço, fico agradecido se puderes me ajudar
MACYSZYN 18/04/2012 10:43:38
#400141
Para quebrar as linhas, faz assim
Text1 = Replace(Text1, [Ô][ô][Ô], [Ô][ô][Ô] & vbCrLf)

Agora, é só colocar no evento que você quiser.
BAMBAM 18/04/2012 10:49:56
#400144
Desculpa a minha ignorancia

mas coloquei como tu falou, achio que naum deu certo, pq dae quando eu digito algum texto ele apaga tudo dentro do textbox, ele naum quebra a linha a cada apostofro

Private Sub TextBox1_Change()

TextBox1 = Replace(Text1, [Ô][ô][Ô], [Ô][ô][Ô] & vbCrLf)

End Sub
MARCELO.TREZE 18/04/2012 13:05:48
#400163 Resposta escolhida
Bambam o código do colega está certo, porém eis a pergunta: - se você vai digitar, então porque não pressionar a tecla enter?, porém se você for colar o código no Text1 este irá funcionar se você fizer assim:

colocar um RichtextBox, um Command Button e um Textbox em seu projeto

No textBox você cola a string que postou acima

no command button vai colar este código

Private Sub Command1_Click()
RichTextBox1.Text = Replace(Text1.Text , [Ô][ô][Ô], vbCrLf)
End Sub


agora você terá o resultado esperado no richtextbox.
FILMAN 18/04/2012 13:57:56
#400164
Caro colega te enviei no email
Tópico encerrado , respostas não são mais permitidas
Voltar