ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Extração de Dados

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
e_pera
Novato
Novato


Registrado: Quinta-Feira, 22 de Janeiro de 2009
Mensagens: 97

MensagemEnviada: Qua Dez 18, 2024 11:15 am    Assunto: Extração de Dados Responder com Citação

Bom dia,
Tenho um arquivo TXT de um CNIS que preciso extrair os dados (Nome, CPF, NIT, Código Emp., Origem do Vínculo, Data Inicio, Data Fim, Competência e Remuneração), alguém pode me ajudar, pois não sei como extrair estes dados, já tentei de todas as formas, estou usando o Delphi, e, irei exportar para uma base de dados Firebird, abaixo anexo o arquivo que tenho.

Código:
                                                                                                                                                                                                                                                                                                                      Página 1 de 15
                                                                                      INSS
                                                           CNIS - Cadastro Nacional de Informações Sociais
                                                                            Extrato Previdenciário                                                            16/12/2024 09:30:32
         Identificação do Filiado
      NIT: 666.66666.66-6                       CPF: 999.999.999-99         Nome: UMDOIS DE OLIVEIRA QUATRO
      Data de nascimento: 22/05/1964                                        Nome da mãe: TRES QUATRO DE OLIVEIRA
          Relações Previdenciárias
                                                                                                    Matrícula do       Tipo Filiado no
        Seq.       NIT          Código Emp.                     Origem do Vínculo                   Trabalhador            Vínculo       Data Início Data Fim  Últ. Remun.
         1     666.66666.66-6 01.535.699/0004-08  AR NASCIMENTO ENGENHARIA E CONSTRUCOES LTDA                        Empregado ou Agente 16/05/1983 30/08/1984   08/1984
                                                                                                                           Público
            Remunerações
         Competência        Remuneração        Indicadores       Competência       Remuneração        Indicadores       Competência       Remuneração        Indicadores
            05/1983           27.390,96                            06/1983            51.391,97                           07/1983           50.985,09
            08/1983           47.866,03                            09/1983            51.798,85                           10/1983           70.300,03
            11/1983           100.067,95                           12/1983           105.942,17
            01/1984           82.733,75                            02/1984            75.305,86                           03/1984           78.194,99
            04/1984           129.340,81                           05/1984           108.809,91                           06/1984           105.299,91
            07/1984           108.809,91                           08/1984           324.690,28
                                                                                                    Matrícula do       Tipo Filiado no
        Seq.       NIT          Código Emp.                     Origem do Vínculo                   Trabalhador            Vínculo       Data Início Data Fim  Últ. Remun.
         2     666.66666.66-6 50.015.932/0001-86   ROMA SERVICOS ADMINISTRATIVOS ENGENHARIA E                        Empregado ou Agente 24/08/1984 20/10/1986   09/1986
                                                                   CONST LTDA                                              Público
            Remunerações
         Competência        Remuneração        Indicadores       Competência       Remuneração        Indicadores       Competência       Remuneração        Indicadores
            08/1984           28.079,97                            09/1984           105.299,91                           10/1984           185.999,72
            11/1984           223.080,47                           12/1984           229.616,28
            01/1985           197.000,50                           02/1985           177.999,34                           03/1985           197.000,50
      O INSS poderá rever a qualquer tempo as informações constantes deste extrato, observados os arts.19 ao 19-F do RPS aprovado pelo Decreto 3.048/99.
      O segurado somente terá reconhecida como tempo de contribuição ao RGPS a competência cujo valor consolidado seja igual ou superior ao salário mínimo, sendo assegurados os ajustes de complementação, utilização
      ou agrupamento, conforme o caso, de acordo com o § 14 do art.195 da CF/1988 e art.29 da EC 103/2019.
                                                                                                                                                                                             Página 2 de 15
                                                                                                       INSS
                                                                       CNIS - Cadastro Nacional de Informações Sociais
                                                                                           Extrato Previdenciário                                                                             16/12/2024 09:30:32
           Identificação do Filiado
       NIT: 666.66666.66-6                                CPF: 999.999.999-99               Nome: UMDOIS DE OLIVEIRA QUATRO
       Data de nascimento: 22/05/1964                                                       Nome da mãe: TRES QUATRO DE OLIVEIRA
           Relações Previdenciárias
               04/1985              354.999,32                                   05/1985              367.001,63                                   06/1985              381.998,69
               07/1985              394.001,01                                   08/1985              394.001,01                                   09/1985              381.998,69
               10/1985              678.998,49                                   11/1985              657.000,00                                   12/1985              679.002,00
               01/1986              679.002,00                                   02/1986              679.002,00                                   03/1986                851,00
               04/1986               1.105,99                                    05/1986                1.118,99                                   06/1986                1.280,00
               07/1986               1.703,00                                    08/1986                1.518,99                                   09/1986                1.218,00
                                                                                                                        Matrícula do            Tipo Filiado no
         Seq.          NIT             Código Emp.                           Origem do Vínculo                           Trabalhador                Vínculo          Data Início Data Fim       Últ. Remun.
           3     666.66666.66-6     50.015.932/0001-86       ROMA SERVICOS ADMINISTRATIVOS ENGENHARIA E                                      Empregado ou Agente 26/11/1987 31/03/1988            03/1988
                                                                                 CONST LTDA                                                         Público
              Remunerações
           Competência            Remuneração           Indicadores           Competência           Remuneração            Indicadores          Competência           Remuneração            Indicadores
               11/1987               1.233,01                                    12/1987               11.498,00
               01/1988              17.153,99                                    02/1988               19.221,98                                   03/1988               29.238,00
                                                                                                                        Matrícula do            Tipo Filiado no
         Seq.          NIT             Código Emp.                           Origem do Vínculo                           Trabalhador                Vínculo          Data Início Data Fim       Últ. Remun.
           4     666.66666.66-6     60.812.633/0021-70      CEMSA CONSTRUCOES ENGENHARIA E MONTAGENS S                                       Empregado ou Agente 01/04/1988 08/08/1989            08/1989
                                                                                      A                                                             Público
          Indicadores:   PADM-EMPR
              Remunerações
           Competência            Remuneração           Indicadores           Competência           Remuneração            Indicadores          Competência           Remuneração            Indicadores
               04/1988              22.676,99                                    05/1988               41.903,99                                   06/1988               41.941,99
       O INSS poderá rever a qualquer tempo as informações constantes deste extrato, observados os arts.19 ao 19-F do RPS aprovado pelo Decreto 3.048/99.
       O segurado somente terá reconhecida como tempo de contribuição ao RGPS a competência cujo valor consolidado seja igual ou superior ao salário mínimo, sendo assegurados os ajustes de complementação, utilização
       ou agrupamento, conforme o caso, de acordo com o § 14 do art.195 da CF/1988 e art.29 da EC 103/2019.
                                                                                                                                                             Página 3 de 15
                                                                                      INSS
                                                           CNIS - Cadastro Nacional de Informações Sociais
                                                                            Extrato Previdenciário                                                            16/12/2024 09:30:32
         Identificação do Filiado
      NIT: 666.66666.66-6                       CPF: 999.999.999-99         Nome: UMDOIS DE OLIVEIRA QUATRO
      Data de nascimento: 22/05/1964                                        Nome da mãe: TRES QUATRO DE OLIVEIRA
          Relações Previdenciárias
            07/1988           44.144,03                            08/1988            56.330,95                           09/1988           67.409,00
            10/1988           121.863,04                           11/1988           149.993,04                           12/1988           168.386,94
            01/1989             254,00                             02/1989             221,99                             03/1989             223,00
            04/1989             243,99                             05/1989             240,00                             06/1989             502,00
            07/1989             570,99                             08/1989            1.363,99
                                                                                                    Matrícula do       Tipo Filiado no
        Seq.       NIT          Código Emp.                     Origem do Vínculo                   Trabalhador            Vínculo       Data Início Data Fim  Últ. Remun.
         5     666.66666.66-6 15.104.599/0001-80        SAMA S.A. - MINERACOES ASSOCIADAS                            Empregado ou Agente 10/08/1989 17/08/1992   08/1992
                                                                                                                           Público
            Remunerações
         Competência        Remuneração        Indicadores       Competência       Remuneração        Indicadores       Competência       Remuneração        Indicadores
            08/1989             740,00                             09/1989            1.393,00                            10/1989            2.273,99
            11/1989            3.900,99                            12/1989            4.426,00
            01/1990            7.334,94                            02/1990            9.571,86                            03/1990           19.296,89
            04/1990           16.647,90                            05/1990            17.267,71                           06/1990           24.204,74
            07/1990           24.379,55                            08/1990            29.490,60                           09/1990           37.424,96
            10/1990           35.552,86                            11/1990            43.174,55                           12/1990           47.363,58
            01/1991           56.341,55                            02/1991            65.656,19                           03/1991           66.294,90
            04/1991           66.653,60                            05/1991            80.491,60                           06/1991           82.698,20
            07/1991           91.057,10                            08/1991           118.819,80                           09/1991           174.669,60
            10/1991           159.201,00                           11/1991           332.627,40                           12/1991           320.027,40
            01/1992           369.474,81                           02/1992           382.382,23                           03/1992           666.595,10
      O INSS poderá rever a qualquer tempo as informações constantes deste extrato, observados os arts.19 ao 19-F do RPS aprovado pelo Decreto 3.048/99.
      O segurado somente terá reconhecida como tempo de contribuição ao RGPS a competência cujo valor consolidado seja igual ou superior ao salário mínimo, sendo assegurados os ajustes de complementação, utilização
      ou agrupamento, conforme o caso, de acordo com o § 14 do art.195 da CF/1988 e art.29 da EC 103/2019.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Yahoo Messenger MSN Messenger
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9099
Localização: Sinop-MT

MensagemEnviada: Sex Dez 27, 2024 3:14 pm    Assunto: Responder com Citação

rapaz, esse arquivo aí é complicado. nao tem opcao em csv, xml, json, excel...?
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
e_pera
Novato
Novato


Registrado: Quinta-Feira, 22 de Janeiro de 2009
Mensagens: 97

MensagemEnviada: Seg Dez 30, 2024 2:54 pm    Assunto: Responder com Citação

Boa tarde,

Tentei fazer a conversão do Txt para XML mas não consegui, utilizei o seguinte código:

Código:

procedure RunGhostscript(const Params: string);
begin
  ShellExecute(0, 'open', 'C:\Program Files (x86)\gs\gs10.04.0\bin\gswin32.exe', PChar(Params), nil, SW_NORMAL);
end;

procedure PDFToXML(const PDFFileName, XMLFileName: string);
var
  XMLDOC: IXMLDocument;
  RootNode, PageNode: IXMLNode;
  PageText: TStringList;
  i: Integer;
  TempFileName: string;
begin
  // Parâmetros do Ghostscript para extrair texto
  TempFileName := ChangeFileExt(PDFFileName, '.txt');
  RunGhostscript(Format('-sDEVICE=txtwrite -o "%s" "%s"', [TempFileName, PDFFileName]));
  // Ler o arquivo de texto gerado pelo Ghostscript
  PageText := TStringList.Create;
  try
    PageText.LoadFromFile(TempFileName);
    XMLDOC := NewXMLDocument;
    RootNode := XMLDOC.AddChild('PDFDocument');
    for i := 0 to PageText.Count - 1 do
    begin
      PageNode := RootNode.AddChild('Page');
      PageNode.Attributes['Number'] := i + 1;
      PageNode.Text := PageText[i];
    end;
    XMLDOC.SaveToFile(XMLFileName);
  finally
    PageText.Free;
  end;
end;


Se puder me informar onde eu errei agradeço, mas se não puder, encontrei uma pagina que convertia TXT em XML, então vou repassar uma parte do XML para que possa me ajudar:

Código:


      </office>
      <text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Extrato Previdenciário</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>16/12/2024 09:30:32</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>NIT:</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>120.92293.05-4</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>CPF:</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>315.926.601-00</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Nome:</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>JOAQUIM FARIAS NERES</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Data de nascimento:</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>22/05/1964</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Nome da mãe:</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>MARIA FARIAS NERES</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Página 1 de 15</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Identificação do Filiado</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Código Emp.</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Origem do Vínculo</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Tipo Filiado no</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Vínculo</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Data Início Data Fim Últ. Remun.</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Seq.</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>NIT</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Matrícula do</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Trabalhador</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>1</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>01.535.699/0004-08</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>AR NASCIMENTO ENGENHARIA E CONSTRUCOES LTDA</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Empregado ou Agente</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Público</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>16/05/1983 30/08/1984</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>08/1984</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>120.92293.05-4</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Competência</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Remuneração</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Indicadores</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Competência</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Remuneração</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Indicadores</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Competência</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Remuneração</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>Indicadores</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Remunerações</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>05/1983</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>27.390,96</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>06/1983</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>51.391,97</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>07/1983</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>50.985,09</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>08/1983</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>47.866,03</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>09/1983</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>51.798,85</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>10/1983</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>70.300,03</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>11/1983</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>100.067,95</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>12/1983</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>105.942,17</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>01/1984</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>82.733,75</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>02/1984</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>75.305,86</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>03/1984</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>78.194,99</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>04/1984</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>129.340,81</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>05/1984</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>108.809,91</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>06/1984</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>105.299,91</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>07/1984</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>108.809,91</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>08/1984</text></text>
     </draw>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <text>
    </draw>
    <draw>
     <draw>
      <text><text>324.690,28</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Código Emp.</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Origem do Vínculo</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Tipo Filiado no</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Vínculo</text></text>
     </draw>
    </draw>
    <draw>
     <draw>
      <text><text>Data Início Data Fim Últ. Remun.</text></text>
     </draw>
    </draw>
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Yahoo Messenger MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB