SEPARACAO DE TEXTO

USUARIO.EXCLUIDOS 07/04/2004 16:41:46
#19261
se o texto.text(qualquer texto) for maior que a quantidade de caracteres do text1.text(objeto text) ele continuar no text2.text(objeto text). Eu preciso que ele verifique automaticamente e já faça essa separação....
ex.:
text.maxlenght=2
texto="Ola"
text.text=texto.text ' essa seria a linha
text1= Ol
text2= a

é possível fazer isso???
Vinícius Albuqerque Freire
USUARIO.EXCLUIDOS 07/04/2004 16:45:16
#19266 Resposta escolhida
Tente:

Text1.text = mid(texto,1,text1.maxlenght)
text2.text = mid(texto,text1.maxlenght+1)
USUARIO.EXCLUIDOS 07/04/2004 17:22:57
#19282
Tu colocou na variavel texto o valor a ser dividido

Tente colocar um pedaço do codigo onde tu adquire o valor a ser dividido que te ajudo a encaixar a função
USUARIO.EXCLUIDOS 07/04/2004 17:37:00
#19288
Chame a rotina e passe como parametro a posição que a mesma deva ser dividida


Sub DividirTexto(Posicao as long)
Text1.text = mid(texto,1,posicao)
text2.text = mid(texto,posicao+1)
end sub
USUARIO.EXCLUIDOS 08/04/2004 10:42:58
#19383
Só feche o t'ópico, obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar