QUEBRA DE TEXTO
Galera preciso de uma luz,como quebrar um texto, sendo que ele não tem espaço nenhum?
Eu peguei as dicas do webmaster, más todas elas fazem uma quebra de string, por espaço ou enter, más no meu caso tenho um text multiline no ctrc e o cliente vai digitando as notas que estão vinculadas a esse ctrc, abaixo segue um exemplo
NFS:49905/49906/49907/49911/49912/49913/49914/49916/49917/49918/49920/50017/50018/50022/50024/50025/50143/50144/50146/50152/123456789-1223
O problema é que para imprimir no campo obs do ctrc, tem que ser no máximo 5 linhas e cada linha com 20 caracter e nesse exemplo aqui, ele imprimir uma linha só com tudo junto, mesmo eu usando umas das soluções do webmaster.
Será que alguém tem alguma função para quebrar esse texto, pessei em usar o mid, más não consegui montar uma rotina para fazer essa separação
Obrigado e abraço a todos
Eu peguei as dicas do webmaster, más todas elas fazem uma quebra de string, por espaço ou enter, más no meu caso tenho um text multiline no ctrc e o cliente vai digitando as notas que estão vinculadas a esse ctrc, abaixo segue um exemplo
NFS:49905/49906/49907/49911/49912/49913/49914/49916/49917/49918/49920/50017/50018/50022/50024/50025/50143/50144/50146/50152/123456789-1223
O problema é que para imprimir no campo obs do ctrc, tem que ser no máximo 5 linhas e cada linha com 20 caracter e nesse exemplo aqui, ele imprimir uma linha só com tudo junto, mesmo eu usando umas das soluções do webmaster.
Será que alguém tem alguma função para quebrar esse texto, pessei em usar o mid, más não consegui montar uma rotina para fazer essa separação
Obrigado e abraço a todos
Alguém pode me dar uma força nesse problema?
agora eis minha duvida?
se pode ser apenas no maximo 05 linhas com 20 caracteres (5 x 20 = 100) o que pretende fazer com os 38 caracteres restantes da string acima, quebrar é fácil.
um exemplo de como quebrar, coloque um listbox um comandbutton no form e cole este código
se pode ser apenas no maximo 05 linhas com 20 caracteres (5 x 20 = 100) o que pretende fazer com os 38 caracteres restantes da string acima, quebrar é fácil.
um exemplo de como quebrar, coloque um listbox um comandbutton no form e cole este código
Private Sub Command1_Click()
Dim linha As String
linha = [Ô]NFS:49905/49906/49907/49911/49912/49913/49914/49916/49917/49918/49920/50017/50018/50022/50024/50025/50143/50144/50146/50152/123456789-1223[Ô]
For f = 1 To Len(linha) Step 20
List1.AddItem Mid(linha, f, 20)
Next f
End Sub
Marcelo obrigado pelo retorno
Marcelo sim, no máximo são 5 linhas, a quant de 20 caracteres é um valor simbólico, pois na realidade são mais caracteres que cabem, más se sobrar alguma coisa, pretendo jogar para a segunda obs que existe no ctrc
Más agradeço a atenção e ajuda
Marcelo sim, no máximo são 5 linhas, a quant de 20 caracteres é um valor simbólico, pois na realidade são mais caracteres que cabem, más se sobrar alguma coisa, pretendo jogar para a segunda obs que existe no ctrc
Más agradeço a atenção e ajuda
Tópico encerrado , respostas não são mais permitidas