Como Importar esse arquivo texto
Caros Amigos
De última hora me pediram para executar uma tarefa que não sei como começar?
Temos uma central telefônica para coleta de informações de todas as ligações efetuadas.
Ao final ela emite um arquivo com o layout abaixo.
O que preciso fazer?
Ler o arquivo, ignorando o cabecalho e demais partes:
Preciso colher as seguintes informacoes:
Ramal Nome, Ramal Numero, Data, Hora, Numero Discado, Local, Duracao
e automaticamente ir dando um insert na tabela.
Abaixo segue a primeira pagina do arquivo, sendo que o mesmo tem aproximadamente 18943 linhas.
Poderiam me ajudar?
Preciso com urgência
No Aguardo
Raphael Fonseca
De última hora me pediram para executar uma tarefa que não sei como começar?
Temos uma central telefônica para coleta de informações de todas as ligações efetuadas.
Ao final ela emite um arquivo com o layout abaixo.
O que preciso fazer?
Ler o arquivo, ignorando o cabecalho e demais partes:
Preciso colher as seguintes informacoes:
Ramal Nome, Ramal Numero, Data, Hora, Numero Discado, Local, Duracao
e automaticamente ir dando um insert na tabela.
Abaixo segue a primeira pagina do arquivo, sendo que o mesmo tem aproximadamente 18943 linhas.
Poderiam me ajudar?
Preciso com urgência
No Aguardo
Raphael Fonseca
Data: 02/08/04 Hora: 09:09
CROWN
Conta Mensal 1
De: 01/07/2004, Para: 31/07/2004, Tipo de Chamada: De Saída
Org3: < nenhum >
Ramal: Telefonista
Ramal Número: CROW. 9100
DATA DIA HORA TIPO NÚMERO DISCADO LOCAL UNIDADES DURAÇÃO TAXA CAT
01/07/04 QUINTA 9:12 SAÍD 96097618 Celular - Re --------- 0:00:07 0.40 DDD
01/07/04 QUINTA 9:19 SAÍD 99248195 Celular - Re --------- 0:00:07 0.40 DDD
01/07/04 QUINTA 10:12 SAÍD 0021351962931466 Alores e Mad --------- 0:00:07 1.16 DDI
01/07/04 QUINTA 10:13 SAÍD 0021351962931466 Alores e Mad --------- 0:00:11 1.16 DDI
01/07/04 QUINTA 10:24 SAÍD 26832410 Local --------- 0:01:45 0.19 LOC
01/07/04 QUINTA 10:33 SAÍD 102 Informacoes --------- 0:00:05 0.00 LOC
01/07/04 QUINTA 10:45 SAÍD 26833302 Local --------- 0:00:13 0.19 LOC
01/07/04 QUINTA 12:20 SAÍD 26834736 Local --------- 0:00:06 0.00 LOC
01/07/04 QUINTA 13:14 SAÍD 0212422373151 B S Francisc --------- 0:00:10 0.09 DDD
01/07/04 QUINTA 13:18 SAÍD 102 Informacoes --------- 0:00:06 0.00 LOC
01/07/04 QUINTA 13:21 SAÍD 102 Informacoes --------- 0:01:20 0.19 LOC
01/07/04 QUINTA 13:27 SAÍD 0212122524568 Local --------- 0:00:53 0.09 DDD
01/07/04 QUINTA 15:40 SAÍD 26832183 Local --------- 0:00:13 0.19 LOC
01/07/04 QUINTA 16:12 SAÍD 0212122244478 Local --------- 0:00:33 0.19 DDD
01/07/04 QUINTA 16:15 SAÍD 0212125074649 Auto-Telemar --------- 0:00:21 0.19 DDD
01/07/04 QUINTA 16:16 SAÍD 96138474 Celular - Re --------- 0:01:01 0.88 DDD
02/07/04 SEXTA 9:59 SAÍD 92786333 Celular - Re --------- 0:00:07 0.40 DDD
02/07/04 SEXTA 10:22 SAÍD 98359652 Celular - Re --------- 0:00:05 0.40 DDD
02/07/04 SEXTA 10:23 SAÍD 98359652 Celular - Re --------- 0:00:03 0.40 DDD
02/07/04 SEXTA 10:28 SAÍD 0212126734607 Local --------- 0:00:39 0.19 DDD
02/07/04 SEXTA 12:49 SAÍD 26832410 Local --------- 0:00:21 0.19 LOC
02/07/04 SEXTA 13:14 SAÍD 97932370 Celular - Re --------- 0:00:07 0.40 DDD
02/07/04 SEXTA 13:26 SAÍD 97615676 Celular - Re --------- 0:00:05 0.40 DDD
02/07/04 SEXTA 14:38 SAÍD 98023074 Celular - Re --------- 0:00:09 0.40 DDD
02/07/04 SEXTA 15:06 SAÍD 26834016 Local --------- 0:00:19 0.19 LOC
02/07/04 SEXTA 15:08 SAÍD 0212126729066 Local --------- 0:01:22 0.94 DDD
02/07/04 SEXTA 16:46 SAÍD 88231787 Celular - Re --------- 0:00:08 0.40 DDD
05/07/04 SEGUNDA 8:55 SAÍD 96527994 Celular - Re --------- 0:00:14 0.40 DDD
05/07/04 SEGUNDA 8:55 SAÍD 96527994 Celular - Re --------- 0:00:21 0.40 DDD
05/07/04 SEGUNDA 8:58 SAÍD 96527994 Celular - Re --------- 0:00:01 0.40 DDD
05/07/04 SEGUNDA 9:19 SAÍD 96527994 Celular - Re --------- 0:00:10 0.40 DDD
05/07/04 SEGUNDA 9:22 SAÍD 92529039 Celular - Re --------- 0:00:42 0.56 DDD
05/07/04 SEGUNDA 10:07 SAÍD 0218199133210 Celular - PE --------- 0:00:08 0.46 DDD
05/07/04 SEGUNDA 10:53 SAÍD 02111121 Informacoes --------- 0:01:47 0.00 DDD
05/07/04 SEGUNDA 10:55 SAÍD 02111121 Informacoes --------- 0:00:31 0.00 DDD
05/07/04 SEGUNDA 10:56 SAÍD 021112275852 Sao Paulo --------- 0:00:15 0.32 DDD
05/07/04 SEGUNDA 12:56 SAÍD 26831671 Local --------- 0:00:59 0.19 LOC
05/07/04 SEGUNDA 12:58 SAÍD 26835170 Local --------- 0:01:19 0.19 LOC
05/07/04 SEGUNDA 13:27 SAÍD 36933465 Local --------- 0:00:16 0.19 LOC
05/07/04 SEGUNDA 13:44 SAÍD 91912201 Celular - Re --------- 0:00:23 0.40 DDD
05/07/04 SEGUNDA 14:01 SAÍD 36933091 Local --------- 0:02:00 0.19 LOC
05/07/04 SEGUNDA 14:36 SAÍD 93912291 Celular - Re --------- 0:00:08 0.40 DDD
05/07/04 SEGUNDA 14:38 SAÍD 26831710 Local --------- 0:00:07 0.19 LOC
05/07/04 SEGUNDA 14:43 SAÍD 93912291 Celular - Re --------- 0:00:07 0.40 DDD
05/07/04 SEGUNDA 14:48 SAÍD 96827434 Celular - Re --------- 0:00:05 0.40 DDD
05/07/04 SEGUNDA 14:49 SAÍD 96827454 Celular - Re --------- 0:00:05 0.40 DDD
05/07/04 SEGUNDA 15:05 SAÍD 92786333 Celular - Re --------- 0:00:07 0.40 DDD
05/07/04 SEGUNDA 15:51 SAÍD 78449089 Nextel --------- 0:00:07 0.40 DDD
05/07/04 SEGUNDA 16:09 SAÍD 91043992 Celular - Re --------- 0:00:09 0.40 DDD
05/07/04 SEGUNDA 16:14 SAÍD 93619289 Celular - Re --------- 0:00:09 0.40 DDD
05/07/04 SEGUNDA 16:17 SAÍD 0212126670342 Local --------- 0:00:33 0.19 DDD
06/07/04 TERÇA 9:14 SAÍD 0212126729066 Local --------- 0:00:02 0.19 DDD
06/07/04 TERÇA 9:15 SAÍD 0212126729066 Local --------- 0:00:25 0.19 DDD
06/07/04 TERÇA 9:22 SAÍD 78118058 Nextel --------- 0:06:15 5.04 DDD
06/07/04 TERÇA 9:26 SAÍD 78118058 Nextel --------- 0:00:48 0.64 DDD
06/07/04 TERÇA 10:09 SAÍD 0212122244478 Local --------- 0:00:58 0.19 DDD
06/07/04 TERÇA 10:47 SAÍD 36933866 Local --------- 0:00:15 0.19 LOC
06/07/04 TERÇA 12:04 SAÍD 0212125074649 Auto-Telemar --------- 0:00:24 0.09 DDD
06/07/04 TERÇA 13:24 SAÍD 99513147 Celular - Re --------- 0:00:09 0.40 DDD
< 1 >
Data: 02/08/04 Hora: 09:09
CROWN
Conta Mensal 1
De: 01/07/2004, Para: 31/07/2004, Tipo de Chamada: De Saída
Org3: < nenhum >
Ramal: Telefonista
Ramal Número: CROW. 9100
DATA DIA HORA TIPO NÚMERO DISCADO LOCAL UNIDADES DURAÇÃO TAXA CAT
06/07/04 TERÇA 14:26 SAÍD 0212124620633 Regional --------- 0:03:11 4.31 DDD
06/07/04 TERÇA 14:28 SAÍD 0212124620633 Regional --------- 0:01:03 0.37 DDD
06/07/04 TERÇA 14:31 SAÍD 0212124620633 Regional --------- 0:00:22 0.19 DDD
06/07/04 TERÇA 14:33 SAÍD 0212124620633 Regional --------- 0:00:30 0.19 DDD
06/07/04 TERÇA 15:30 SAÍD 0212124620633 Regional --------- 0:01:41 1.50 DDD
06/07/04 TERÇA 15:30 SAÍD 0212124620633 Regional --------- 0:00:38 0.19 DDD
06/07/04 TERÇA 15:33 SAÍD 0212124620633 Regional --------- 0:01:51 1.87 DDD
07/07/04 QUARTA 9:06 SAÍD 91095661 Celular - Re --------- 0:00:19 0.40 DDD
07/07/04 QUARTA 10:08 SAÍD 92022173 Celular - Re --------- 0:00:06 0.40 DDD
07/07/04 QUARTA 10:08 SAÍD 91912201 Celular - Re --------- 0:00:56 0.80 DDD
07/07/04 QUARTA 10:26 SAÍD 91337060 Celular - Re --------- 0:00:07 0.40 DDD
07/07/04 QUARTA 13:54 SAÍD 36931542 Local --------- 0:00:11 0.19 LOC
07/07/04 QUARTA 14:05 SAÍD 99513147 Celular - Re --------- 0:00:04 0.40 DDD
07/07/04 QUARTA 14:07 SAÍD 99513147 Celular - Re --------- 0:00:08 0.40 DDD
07/07/04 QUARTA 14:11 SAÍD 93959755 Celular - Re --------- 0:00:02 0.40 DDD
07/07/04 QUARTA 14:22 SAÍD 0212424639909 Eng Paulo Fr --------- 0:00:01 0.04 RGL
07/07/04 QUARTA 14:33 SAÍD 78118058 Nextel --------- 0:02:11 1.76 DDD
07/07/04 QUARTA 14:55 SAÍD 0212125074649 Auto-Telemar --------- 0:00:10 0.19 DDD
07/07/04 QUARTA 15:05 SAÍD 0212424639909 Eng Paulo Fr --------- 0:00:06 0.04 RGL
07/07/04 QUARTA 15:11 SAÍD 93274535 Celular - Re --------- 0:00:25 0.40 DDD
07/07/04 QUARTA 15:20 SAÍD 91095661 Celular - Re --------- 0:00:10 0.40 DDD
07/07/04 QUARTA 15:27 SAÍD 94033434 Celular - Re --------- 0:02:40 2.16 DDD
07/07/04 QUARTA 15:28 SAÍD 94033434 Celular - Re --------- 0:00:04 0.40 DDD
07/07/04 QUARTA 15:29 SAÍD 94033434 Celular - Re --------- 0:00:10 0.40 DDD
07/07/04 QUARTA 16:25 SAÍD 26834838 Local --------- 0:03:32 0.19 LOC
07/07/04 QUARTA 16:54 SAÍD 97615676 Celular - Re --------- 0:00:10 0.40 DDD
08/07/04 QUINTA 9:08 SAÍD 98178311 Celular - Re --------- 0:00:09 0.40 DDD
08/07/04 QUINTA 9:35 SAÍD 26834016 Local --------- 0:00:58 0.19 LOC
08/07/04 QUINTA 9:36 SAÍD 26834016 Local --------- 0:00:47 0.19 LOC
08/07/04 QUINTA 9:37 SAÍD 91095661 Celular - Re --------- 0:00:10 0.40 DDD
08/07/04 QUINTA 9:40 SAÍD 26832410 Local --------- 0:00:50 0.19 LOC
08/07/04 QUINTA 10:00 SAÍD 26833812 Local --------- 0:00:13 0.19 LOC
08/07/04 QUINTA 10:02 SAÍD 93134742 Celular - Re --------- 0:00:11 0.40 DDD
08/07/04 QUINTA 10:18 SAÍD 26832003 Local --------- 0:02:19 0.19 LOC
08/07/04 QUINTA 10:28 SAÍD 97932370 Celular - Re --------- 0:00:06 0.40 DDD
08/07/04 QUINTA 12:31 SAÍD 26839172 Local --------- 23:59:59 26.21 LOC
08/07/04 QUINTA 13:42 SAÍD 0218188371422 Recife --------- 0:00:11 0.16 DDD
08/07/04 QUINTA 13:44 SAÍD 97560245 Celular - Re --------- 0:00:09 0.40 DDD
08/07/04 QUINTA 13:50 SAÍD 96044996 Celular - Re --------- 0:00:16 0.40 DDD
08/07/04 QUINTA 14:44 SAÍD 93228943 Celular - Re --------- 0:00:10 0.40 DDD
08/07/04 QUINTA 15:11 SAÍD 26832355 Local --------- 0:01:05 0.19 LOC
08/07/04 QUINTA 15:21 SAÍD 0212122607311 Local --------- 0:00:14 0.19 DDD
08/07/04 QUINTA 15:23 SAÍD 0212122407311 Local --------- 0:00:37 0.19 DDD
08/07/04 QUINTA 15:45 SAÍD 104 Servicos --------- 0:00:11 0.19 LOC
08/07/04 QUINTA 16:46 SAÍD 87548975 Celular - Re --------- 0:00:07 0.40 DDD
09/07/04 SEXTA 9:03 SAÍD 96527994 Celular - Re --------- 0:00:13 0.40 DDD
09/07/04 SEXTA 9:07 SAÍD 0800310102 ------------ --------- 0:00:08 0.32 DDD
09/07/04 SEXTA 9:17 SAÍD 102 Informacoes --------- 0:00:04 0.00 LOC
09/07/04 SEXTA 9:28 SAÍD 102 Informacoes --------- 0:00:03 0.00 LOC
09/07/04 SEXTA 9:45 SAÍD 93134742 Celular - Re --------- 0:00:08 0.40 DDD
09/07/04 SEXTA 9:51 SAÍD 99513147 Celular - Re --------- 0:00:05 0.40 DDD
09/07/04 SEXTA 9:52 SAÍD 99513147 Celular - Re --------- 0:00:09 0.40 DDD
09/07/04 SEXTA 10:00 SAÍD 0212126670342 Local --------- 0:00:35 0.19 DDD
09/07/04 SEXTA 10:03 SAÍD 96749822 Celular - Re --------- 0:00:04 0.40 DDD
09/07/04 SEXTA 10:05 SAÍD 26834838 Local --------- 0:00:49 0.19 LOC
09/07/04 SEXTA 10:33 SAÍD 81339947 Celular - Re --------- 0:00:09 0.40 DDD
09/07/04 SEXTA 11:01 SAÍD 87564860 Celular - Re --------- 0:00:08 0.40 DDD
09/07/04 SEXTA 12:07 SAÍD 96117377 Celular - Re --------- 0:00:10 0.40 DDD
09/07/04 SEXTA 12:08 SAÍD 96117277 Celular - Re --------- 0:00:12 0.40 DDD
Rbfonseca
Curtidas 0
Respostas
Aroldo Zanela
03/08/2004
Colega,
Fiz um pequeno exemplo do qual você poderá seguir:
Fiz um pequeno exemplo do qual você poderá seguir:
var Arquivo: TStringList;
nI, nJ: Integer;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(´c:\lista.txt´);
Arquivo.Sort;
nJ := Arquivo.Count-1;
For nI := 0 to nJ do
begin
if Copy(Arquivo.Strings[nI],1,8) ...
end;
Arquivo.Free;
end;GOSTEI 0