|
|
Postada em 03/04/2006 07:39 hs
Alguém sabe como faço isso, tenho que quebrar o texto que esta no txtObsevação.text em linhas e cada linha pode ter cerca de 30 caracteres. Obrigado a todos pela atenção. |
|
|
|
|
|
|
|
Postada em 03/04/2006 08:54 hs
dim txt as string for i% = 1 to len(txtobservacao.text) txt = mid(txtobservacao.text,i%,1) if len(txt) = 30 then print #1, Txt txt = "" end if next i% |
|
|
|
João Paulo
não registrado
|
|
Postada em 03/04/2006 09:08 hs
Muito obrigado, vou tentar usando este código. |
|
|
|
|
|
Postada em 03/04/2006 15:26 hs
kerplunk, Estou usando o seguinte código dim txt as string for i% = 1 to len(txtobservacao.text) txt = mid(txtobservacao.text,i%,1) if len(txt) = 10 then 'aqui iformo a quantidade de caracteres list1.additem txt 'estou usando o List1 somente para teste. txt = "" end if next i% |
|
|
|
