marcio1361303176 Posted January 10, 2011 Report Share Posted January 10, 2011 Amigos, tenho na minha base de dados a Conta corrente 123456-5 4568-X 15487-9 Pra gerar um PAGFOR preciso separar o digito da conta teria que ficar assim o primerio conta seria 123456 e o digito assim 5 separa o digito da conta e preciso destas duas informaçoes. Márcio :. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted January 10, 2011 Author Report Share Posted January 10, 2011 Amigos, tenho na minha base de dados a Conta corrente 123456-5 4568-X 15487-9 Pra gerar um PAGFOR preciso separar o digito da conta teria que ficar assim o primerio conta seria 123456 e o digito assim 5 separa o digito da conta e preciso destas duas informaçoes. Márcio :. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 10, 2011 Report Share Posted January 10, 2011 veja comandos: LEFT y RIGHT João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
william Posted January 10, 2011 Report Share Posted January 10, 2011 citação:Amigos, tenho na minha base de dados a Conta corrente 123456-5 4568-X 15487-9 id=quote>id=quote>essa é facil cConta="123456-5" cContanew=substr(cConta,1,6) CDigito=substr(cConta,8,1) Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 3.0 Quote Link to comment Share on other sites More sharing options...
Decker Posted January 10, 2011 Report Share Posted January 10, 2011 Sim, mas vale lembrar que nem todas as contas correntes, tem o mesmo tamanho. Minha conta tem 3 digitos e o controle (128-7). A não ser que as contas do amigo sejam padrao. sugiro um STRZERO e apos uma sugestões anteriores. Decker celeyendecker@hotmail.com São Paulo - S.P. Fivewin(Demo)-Clipper5.3-WS Quote Link to comment Share on other sites More sharing options...
joaosolution Posted January 10, 2011 Report Share Posted January 10, 2011 Marcio Bom dia cConta:="128-7" cConta1:= Left(cConta,Rat("-",cConta)-1) cContaD:= Right(cConta,Rat("-",cConta)+1) ? cConta1 -> "128" ? cContaD -> "7" Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB Quote Link to comment Share on other sites More sharing options...
william Posted January 10, 2011 Report Share Posted January 10, 2011 citação:Sim, mas vale lembrar que nem todas as contas correntes, tem o mesmo tamanho. Minha conta tem 3 digitos e o controle (128-7). A não ser que as contas do amigo sejam padrao. sugiro um STRZERO e apos uma sugestões anteriores. id=quote>id=quote>Ok, facil tambem: cConta="123456-5" OU cConta="128-7" cContanew=substr(cConta,1,len(cconta)-2) CDigito=substr(cConta,len(cconta),1) Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 3.0 Quote Link to comment Share on other sites More sharing options...
Dr_Microso Posted January 10, 2011 Report Share Posted January 10, 2011 aA:=cc_process("12345689-0") //{} = cc & dig *----------------- FUNC cc_process(cC) *----------------- LOCAL cN, cD Eval({ |v| cN:=Left(v, Rat("-",v)-1), cD:=Right(v, Rat("-", v+1)) }, cC) RETURN {cN, cD} *----------------- * portável UDF/ LIB/uso genéricoid='Courier New'>id=size2>id=red>id=size3> xBase em geral/Pascal/Delphi 7 *---------------------------------------- Somos produto da soma de nossa forma de pensar e agir, todos os dias. dr.microso@hotmail.com Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted January 10, 2011 Report Share Posted January 10, 2011 x = "123456-5" ? strtran(x,"-","") ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP (Clipper a +- 20 anos) / C#/SQL2008/xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
Luisão Posted January 10, 2011 Report Share Posted January 10, 2011 Marcio, acredito que a melhor solução apresentada é a do João Bosco, que trata a regra e funcionará para qualquer caso, desde que esteja no formato "Conta-Digito", podendo a conta e o dÃgito ter qualquer tamanho. Luis Fernando Jr. (Luisão) Leme/SP -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY juninho.luisao@gmail.com juninho_luisao@hotmail.com Skype luis.fernando.jr Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted January 10, 2011 Author Report Share Posted January 10, 2011 Galera obrigado pela ajuda usei a dica do João Bosco. Obrigado a todos pelo empenho. Márcio :. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com Quote Link to comment Share on other sites More sharing options...
Dr_Microso Posted January 10, 2011 Report Share Posted January 10, 2011 Bom, também concordo que a melhor solução foi postada pelo colega João Bosco. Se a necessidade for isolada, acho que já está sub-entendido a dispensa de uma UDF, mas se houver precisão de re-aplicabilidade a outras strings similares... Como dizem hoje em dia: Jà É!!!! Ou melhor... Jà FOI!!! xBase em geral/Pascal/Delphi 7 *---------------------------------------- Somos produto da soma de nossa forma de pensar e agir, todos os dias. dr.microso@hotmail.com Quote Link to comment Share on other sites More sharing options...
AMBROSIO Posted January 10, 2011 Report Share Posted January 10, 2011 cConta:="123456-5" cNumero:=SUBS(cConta,1,AT("-",cConta)-1) cDigito:=SUBS(cConta,AT("-",cConta)+1) Mais uma pra brincar...rs Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Curitiba/São José dos Pinhais - PR Clipper5.0/ADVPL Quote Link to comment Share on other sites More sharing options...
gvc Posted January 11, 2011 Report Share Posted January 11, 2011 citação:sig_gilbertox = "123456-5" ? strtran(x,"-","") id=quote>id=quote>Esta é a melhor solução por remover todos os "-" da string, não importa a posição. Como apresentado pelo Eric.Developer, vc não precisa colocar o 3o. parâmetro se vai remover algo da string. Eu sempre uso quando vou remover "coisas" de campos especiais. Quote Link to comment Share on other sites More sharing options...
Dr_Microso Posted January 11, 2011 Report Share Posted January 11, 2011 Puxa Márcio, acho que ouve então um mal-entendido por alguns, inclusive por mim... Você não precisa de 2 dados? citação:"conta seria 123456 e o digito assim 5separa o digito da conta e preciso destas duas informaçoes." id=quote>id=quote>Queria apenas uma string produto da subtração do hÃfen, certo? Me confundi, mas já me desconfundi... xBase em geral/Pascal/Delphi 7 *---------------------------------------- Somos produto da soma de nossa forma de pensar e agir, todos os dias. dr.microso@hotmail.com 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.