Geraldo (gbsilva) Posted September 12, 2013 Report Share Posted September 12, 2013 Pessoal estou com um problema, um campo text que importo do sqlserver vem como a imagem anexa e eu preciso eliminar essas linhas e espaços que o usuário coloca. se eu jogar isso numa variável texto como eu poderia tratar essa variável antes de gerar o relatório deixando apenas 1 espaço entre as frases. Grato, Quote Link to comment Share on other sites More sharing options...
Arthur Silvestre Posted September 12, 2013 Report Share Posted September 12, 2013 Entendi que você quer eliminar os espaços em branco de uma string, beleza, tem soluções bem simples para isso, mas vejo que o problema é mais 500 kkkkkkkkkk bom, tem um exemplo ou a situação em si que está ocorrendo para poder ajudar melhor ? se for possível posta ai. Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted September 12, 2013 Report Share Posted September 12, 2013 WHILE SPACE(02) $ cText .OR. CHR(13)+CHR(10) $ cText cText:=STRTRAN(cText , SPACE(02) , SPACE(01) ) cText:=STRTRAN(cText , CHR(13)+CHR(10) , SPACE(01) ) ENDDO Quote Link to comment Share on other sites More sharing options...
joaosolution Posted September 12, 2013 Report Share Posted September 12, 2013 GBSilva cLinha:="ABC FGH OPP" For i:=2 To 20 cLinha := StrTran(cLinha,Replicate(" ",i)," ") Next Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted September 12, 2013 Author Report Share Posted September 12, 2013 Pessoal obrigado pelas respostas. Postei uma imagem para voces entenderem melhor o problema. João só vou poder testar amanhã na empresa, mas será que mesmo sendo uma linha inteira como esta na imagem essa solução resolveria ou teria que ser outra. Sds, Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted September 12, 2013 Author Report Share Posted September 12, 2013 Lembrei de mais um detalhe nesse campo já havia vários [enter] que consegui eliminar com replace no select, provavelmente terá também barra de espaço ou tab se tiver qual é o chr() dessas teclas, pode ser que necessite. REPLACE(a.aopt,char(13),'') AS s_aopt Grato, Quote Link to comment Share on other sites More sharing options...
sambomb Posted September 12, 2013 Report Share Posted September 12, 2013 cTxt := MemoRead( "C:\SeuArquivo.txt" ) For i := 1 to 32 cTxt := StrTran( cTxt, Chr(i) ) End Quote Link to comment Share on other sites More sharing options...
MatheusFarias Posted September 13, 2013 Report Share Posted September 13, 2013 Por favor use a memotran e nao reinvente a roda Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.