[delphi-br] Re: importar arquivo com qualificador de texto
Dirlei, tive um problema parecido, só que dentro de um dos determinados campos tinha o nome do individuo, só que ele poderia vir com a vírgula, como exemplo abaixo 1,029,200900,Carlos Alberto 2,030,200901,Henrique, Carmen Se eu der um SPLIT por vírgula, no primeiro registro vou ter um vetor de 4 posições, e no segundo registro, vou ter um vetor com 5 posições. A minha solução foi avisar o cliente que se ele colocar a vírgula nos nomes, iria dar problema, mas gostaria de fazer uma solução que se o cara colocar a vírgula, o sistema entenda isso e ignore na hora do SPLIT. Alguém teria uma solução para isso? Marcos --- Em delphi-br@yahoogrupos.com.br, Dirlei dir...@... escreveu Ralph, Para retirar as aspas, você pode utilizar: StringReplace(linha do arquivo, '', '', [rfReplaceAll]); Para fazer split dos valores separados por vírgula, você pode utilizar uma função que fiz para isso. Disponibilizei em: http://pastebin.com/ZfAGxK5i (use à vontade, mas mantenha a atribuição). Dirlei. Ralp Alves Bezerra escreveu: Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves
Re: [delphi-br] Re: importar arquivo com qualificador de texto
Marcos, Tente usar esta função para fazer o split dos dados: function Explode(delimiter:string; source:string) : TStringList; (* // Name : Explode // Purpose : each of which is a substring of string formed by splitting it on // boundaries formed by the string delim. It does not support PHP's // 'limit' feature. // Date : 12 Feb 2001 by Bob Brown (bob.br...@opus.co.nz) // Comments : Based on PHP's Explode function (http://www.php.net/explode). // Returns an array of strings, each of which is a substring of // string formed by splitting it on boundaries formed by the string // delimiter. *) var c : word; begin Result:=TStringList.Create; c:=0; while source'' do begin if Pos(delimiter,source)0 then begin Result.Add(Copy(Source,1,Pos(delimiter,source)-1)); Delete(Source,1,Length(Result[c])+Length(delimiter)); end else begin Result.Add(Source); Source:=''; end; inc(c); end; end; Sucesso !! Moacir Em 10/03/2010 09:41, Marcos Abreu Ferreira escreveu: Dirlei, tive um problema parecido, só que dentro de um dos determinados campos tinha o nome do individuo, só que ele poderia vir com a vírgula, como exemplo abaixo 1,029,200900,Carlos Alberto 2,030,200901,Henrique, Carmen Se eu der um SPLIT por vírgula, no primeiro registro vou ter um vetor de 4 posições, e no segundo registro, vou ter um vetor com 5 posições. A minha solução foi avisar o cliente que se ele colocar a vírgula nos nomes, iria dar problema, mas gostaria de fazer uma solução que se o cara colocar a vírgula, o sistema entenda isso e ignore na hora do SPLIT. Alguém teria uma solução para isso? Marcos --- Em delphi-br@yahoogrupos.com.br, Dirleidir...@... escreveu Ralph, Para retirar as aspas, você pode utilizar: StringReplace(linha do arquivo, '', '', [rfReplaceAll]); Para fazer split dos valores separados por vírgula, você pode utilizar uma função que fiz para isso. Disponibilizei em: http://pastebin.com/ZfAGxK5i (use à vontade, mas mantenha a atribuição). Dirlei. Ralp Alves Bezerra escreveu: Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves
Re: [delphi-br] Re: importar arquivo com qualificador de texto
Usar como ponto de split a aspa e a vírgula ao invés de apenas a aspa ou apena a vírgula. Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 10/3/10, Marcos Abreu Ferreira m.abreuferre...@hotmail.com escreveu: De: Marcos Abreu Ferreira m.abreuferre...@hotmail.com Assunto: [delphi-br] Re: importar arquivo com qualificador de texto Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 10 de Março de 2010, 9:41 Dirlei, tive um problema parecido, só que dentro de um dos determinados campos tinha o nome do individuo, só que ele poderia vir com a vírgula, como exemplo abaixo 1,029,200900, Carlos Alberto 2,030,200901, Henrique, Carmen Se eu der um SPLIT por vírgula, no primeiro registro vou ter um vetor de 4 posições, e no segundo registro, vou ter um vetor com 5 posições. A minha solução foi avisar o cliente que se ele colocar a vírgula nos nomes, iria dar problema, mas gostaria de fazer uma solução que se o cara colocar a vírgula, o sistema entenda isso e ignore na hora do SPLIT. Alguém teria uma solução para isso? Marcos --- Em delphi...@yahoogrup os.com.br, Dirlei dir...@... escreveu Ralph, Para retirar as aspas, você pode utilizar: StringReplace( linha do arquivo, '', '', [rfReplaceAll] ); Para fazer split dos valores separados por vírgula, você pode utilizar uma função que fiz para isso. Disponibilizei em: http://pastebin. com/ZfAGxK5i (use à vontade, mas mantenha a atribuição). Dirlei. Ralp Alves Bezerra escreveu: Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029, 200900,01 ,01,20091201, 01120001 ,200912, 01,031 601,029, 200900,01 ,01,20091201, 01120001 ,200912, 01,031 601,029, 200900,01 ,01,20091201, 01120001 ,200912, 01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: importar arquivo com qualificador de texto
Dá uma olhada nesse exemplo: http://pastebin.com/2zVV18TW Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 10/3/10, Ricardo César Cardoso ricardo_engs...@yahoo.com.br escreveu: De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br Assunto: Re: [delphi-br] Re: importar arquivo com qualificador de texto Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 10 de Março de 2010, 10:51 Usar como ponto de split a aspa e a vírgula ao invés de apenas a aspa ou apena a vírgula. Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 10/3/10, Marcos Abreu Ferreira m.abreuferreira@ hotmail.com escreveu: De: Marcos Abreu Ferreira m.abreuferreira@ hotmail.com Assunto: [delphi-br] Re: importar arquivo com qualificador de texto Para: delphi...@yahoogrup os.com.br Data: Quarta-feira, 10 de Março de 2010, 9:41 Dirlei, tive um problema parecido, só que dentro de um dos determinados campos tinha o nome do individuo, só que ele poderia vir com a vírgula, como exemplo abaixo 1,029,200900, Carlos Alberto 2,030,200901, Henrique, Carmen Se eu der um SPLIT por vírgula, no primeiro registro vou ter um vetor de 4 posições, e no segundo registro, vou ter um vetor com 5 posições. A minha solução foi avisar o cliente que se ele colocar a vírgula nos nomes, iria dar problema, mas gostaria de fazer uma solução que se o cara colocar a vírgula, o sistema entenda isso e ignore na hora do SPLIT. Alguém teria uma solução para isso? Marcos --- Em delphi...@yahoogrup os.com.br, Dirlei dir...@... escreveu Ralph, Para retirar as aspas, você pode utilizar: StringReplace( linha do arquivo, '', '', [rfReplaceAll] ); Para fazer split dos valores separados por vírgula, você pode utilizar uma função que fiz para isso. Disponibilizei em: http://pastebin. com/ZfAGxK5i (use à vontade, mas mantenha a atribuição). Dirlei. Ralp Alves Bezerra escreveu: Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029, 200900,01 ,01,20091201, 01120001 ,200912, 01,031 601,029, 200900,01 ,01,20091201, 01120001 ,200912, 01,031 601,029, 200900,01 ,01,20091201, 01120001 ,200912, 01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: importar arquivo com qualificador de texto
Marcos, Se o arquivo puder ser gerado com um separador diferente de vírgula (!#, por exemplo), isso resolve o problema. Caso contrário, a rotina que faz split deveria receber também o delimitador de strings (neste caso, aspas duplas) e não considerar o delimitador de campos presente dentro de uma string ao fazer a separação dos tokens. Você pode adaptar a rotina que eu disponibilizei para fazê-la contemplar isso e surpreender o seu cliente com uma melhoria no seu software ; ) Um abraço, Dirlei. Marcos Abreu Ferreira escreveu: Dirlei, tive um problema parecido, só que dentro de um dos determinados campos tinha o nome do individuo, só que ele poderia vir com a vírgula, como exemplo abaixo 1,029,200900,Carlos Alberto 2,030,200901,Henrique, Carmen Se eu der um SPLIT por vírgula, no primeiro registro vou ter um vetor de 4 posições, e no segundo registro, vou ter um vetor com 5 posições. A minha solução foi avisar o cliente que se ele colocar a vírgula nos nomes, iria dar problema, mas gostaria de fazer uma solução que se o cara colocar a vírgula, o sistema entenda isso e ignore na hora do SPLIT. Alguém teria uma solução para isso? Marcos --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Dirlei dir...@... escreveu Ralph, Para retirar as aspas, você pode utilizar: StringReplace(linha do arquivo, '', '', [rfReplaceAll]); Para fazer split dos valores separados por vírgula, você pode utilizar uma função que fiz para isso. Disponibilizei em: http://pastebin.com/ZfAGxK5i http://pastebin.com/ZfAGxK5i (use à vontade, mas mantenha a atribuição). Dirlei. Ralp Alves Bezerra escreveu: Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves
[delphi-br] Ferramenta UML Seven
Salve salve pessoal, Galera usava o Star UML pra criar os casos de uso etc...porem mudei para o seven e nao ta funfando alguem conhece outra ferrameta free??? []'s [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como ? IP + Nome + MAC das maquinas remotas ? HLP! PLZ!
Como ? IP + Nome + MAC das maquinas remotas ? HLP! PLZ! Como pegar essas informações das maquinas remotas... Tenho a maioria XP (SP3), 1- Win7, 2 - Win98SE... Obrigado, Luiz Escobar [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: DELPHI 10 apostila, tutorial, ...
Se você quis dizer Delphi 2010, um ótimo ponto de partida são os artigos do Andreano e do Bruno. Leia inclusive os sobre Delphi 2009. http://www.andreanolanusse.com/blogpt/ http://cc.codegear.com/author/38483 http://cc.codegear.com/author/795118 Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Focus Automaçao focus...@... escreveu Gostaria de ter acesso a alguma apostila, tutorial, ou semelhantes sobre o DELPHI 10 caso algum membro a tenha e possa compartilhar, seria grato! Rômulo MaywormFocus Automação - RJ
[delphi-br] Re: Tem como mudar o envelopamento do SOAP do delphi?
Alguem sabe resolver o que nosso amigo perguntou? --- Em delphi-br@yahoogrupos.com.br, Fellipe Henrique felli...@... escreveu Amigos, estou tentando acessar um WS, e está dando a seguinte mensagem: Possible SOAP version mismatch: Envelope namespace http://schemas.xmlsoap.org/soap/envelope/ was unexpected. Expecting http://www.w3.org/2003/05/soap-envelope. O que me dizem dessa mensagem? como arrumo isso!? []s -- _ T.·.F.·.A.·. Fellipe Henrique Blog: www.digitumsoft.com.br/blogs/fellipeh --- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como ? IP + Nome + MAC das maquinas remotas ? HLP! PLZ!
Tenho um código que pega essas informações, mas está em C. Ele usa a API do Windows. Vou te passar as funções: IP e MAC - GetAdaptersInfo Nome - GetComputerName Dá uma olhada no MSDN para conhecer a documentação. Na internet talvez exista algum exemplo em Pascal/Delphi. [ ]'s Dirlei. Luiz Escobar escreveu: Como ? IP + Nome + MAC das maquinas remotas ? HLP! PLZ! Como pegar essas informações das maquinas remotas... Tenho a maioria XP (SP3), 1- Win7, 2 - Win98SE... Obrigado, Luiz Escobar
[delphi-br] KeyUp + RunTime
Boa tarde... Gostaria de colher algumas idéias aq no grupo sobre um problema que estou enfrentando... Tenho uma rotina(função) que cria um pequeno FORM em tempo de execução com um edit para receber um numero inteiro(1, 2, 3, 4 ou 5) + dois botões(BitBtn) sendo um ok e um Canelar. E assim que o usuario preencher esse campo Edit e precionar o botão ok o mesmo envia o valor a um Formulario posterior pra ser trabalho o valor. O botão cancelar anula a operação. Pra se tornar mais ágil meu cliente solicitou q ao preencher esse Edit fosse automaticamente enviado o valor e fechado(destruido) o form. Só por se tratar de um FORM RunTime eu gostaria de algumas idéias para se capturar através do ONKEYUP ou KEYUP do Edit e já fazer todo o processo... eliminando assim a nescessidade de o usuário pressionar o botão ok ou Cancelar. Bem se alguem tiver alguma dica e idéia que compartilhe a mesma. Detalhe o FORM é RunTime. Grato. Att. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ferramenta UML Seven
Não deve demorar pra eles lançarem uma versão do Star UML que corrija isso, mas se precisar de outra ferramenta nesse meio tempo, tem o astah (antigo Jude) e o argouml, mais ou menos na mesma linha. Em 10 de março de 2010 14:31, Mario Rodrigues marioirodrig...@gmail.comescreveu: Salve salve pessoal, Galera usava o Star UML pra criar os casos de uso etc...porem mudei para o seven e nao ta funfando alguem conhece outra ferrameta free??? []'s [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ferramenta UML Seven
Jude, mas eu acho q hj em dia se chama astha, algo assim, na faculdade nos usavamos ela! Em 10 de março de 2010 14:31, Mario Rodrigues marioirodrig...@gmail.comescreveu: Salve salve pessoal, Galera usava o Star UML pra criar os casos de uso etc...porem mudei para o seven e nao ta funfando alguem conhece outra ferrameta free??? []'s [As partes desta mensagem que não continham texto foram removidas] -- Nazareno Neto Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Agenda igual do Outlook 2003
Sei somente de um componente pago que faz isso: TPlanner da TMS, veja o link: http://www.tmssoftware.com/site/planner.asp falow --- Em delphi-br@yahoogrupos.com.br, Richardson Freddo mjrkon...@... escreveu Olá amigos. Alguem conhece algum componente, ou alguma forma de desenvolver uma agenda igual a que tem o Outlook 2003? Uso Delphi 7. Valew Richardson Marcelo Freddo. msn: freddodp...@... Skype: r.freddo Rondonópolis/MT Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Como ? IP + Nome + MAC das maquinas remotas ? HLP! PLZ!
Três coisas: 1) GetAdaptersInfo() é uma função da biblioteca iphlpapi.dll. Pesquise na Internet que você encontra até exemplos em Delphi que mostram como usá-la. 2) GetComputerName() é uma função da biblioteca kernel32.dll, e pode ser acessível fazendo simplesmente um uses para a unit Windows. 3) O colega Luiz Escobar quer obter essas informações de computadores remotos, e não do computador local, e essas funções mencionadas servem somente para o segundo caso, e não para o primeiro o qual o colega necessita. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirlei Enviada em: quarta-feira, 10 de março de 2010 14:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como ? IP + Nome + MAC das maquinas remotas ? HLP! PLZ! Tenho um código que pega essas informações, mas está em C. Ele usa a API do Windows. Vou te passar as funções: IP e MAC - GetAdaptersInfo Nome - GetComputerName Dá uma olhada no MSDN para conhecer a documentação. Na internet talvez exista algum exemplo em Pascal/Delphi. [ ]'s Dirlei. Luiz Escobar escreveu: Como ? IP + Nome + MAC das maquinas remotas ? HLP! PLZ! Como pegar essas informações das maquinas remotas... Tenho a maioria XP (SP3), 1- Win7, 2 - Win98SE... Obrigado, Luiz Escobar [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Formulário lento para Abrir
Olá, tenho uma tabela grande, quando mando abrir o formulário para lançar mais registros, o formulário está lento para abrir, uso DbExpress e firebird 2.1, quando abro o formulário, abro junto no on create o clientdataset que tem o sql 'selec * from tabela', gostaria de saber o que devo fazer para dar uma melhorada no desempenho do sistema, abro junto 3 tabelas menores, de onde uso os dados para preencher os DBLookupComboBox.
RES: [delphi-br] Formulário lento para Abrir
Olá Rodrigo, Quando você usa o comando SELECT * FROM tabela, dependendo da quantidade de registros que a tabela possui, pode ocasionar uma certa lentidão. Nesse caso você poderia utilizar uma clausula no SQL para trazer somente os 50 primeiros registros (ou quanto você quiser), e depois inserir um campo para que o usuário possa procurar esse os demais registros através de uma pesquisa no evento OnChange de um edit. A sintaxe no SQL acredito que ficaria assim: select first 50 * from clientes Colegas, por favor, faz um tempo que não trabalho com Firebird, se esse comando estiver incorreto, por favor me corrija. Abraços!! Ricardo Ravelli De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de rodrigo Enviada em: quarta-feira, 10 de março de 2010 16:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Formulário lento para Abrir Olá, tenho uma tabela grande, quando mando abrir o formulário para lançar mais registros, o formulário está lento para abrir, uso DbExpress e firebird 2.1, quando abro o formulário, abro junto no on create o clientdataset que tem o sql 'selec * from tabela', gostaria de saber o que devo fazer para dar uma melhorada no desempenho do sistema, abro junto 3 tabelas menores, de onde uso os dados para preencher os DBLookupComboBox. [As partes desta mensagem que não continham texto foram removidas]