IMPORTACAO DE ARQUIVO .TXT DO EVEREST
Olá,
Alguém teria uma idéia de como fazer um algoritmo para a leitura de um arquivo texto nao formatado (arquivo gerado pelo Software Everest) para um banco de dados???
são varios txts gerados de varias maquinas diferentes.... sendo assim os arquivos possuem itens diferentes!
Obrigado
Alguém teria uma idéia de como fazer um algoritmo para a leitura de um arquivo texto nao formatado (arquivo gerado pelo Software Everest) para um banco de dados???
são varios txts gerados de varias maquinas diferentes.... sendo assim os arquivos possuem itens diferentes!
Obrigado
bem... não formatado... o que vc quer dizer com isso? é um txt com tamanho fixo ou delimitadores? manda um exemplo dele para gente dar uma olhada... copia e cola aqui no fórum mesmo
Exemplo de txt
Computador:// TABELA
Sistema operacional // CAMPO Microsoft Windows 98 SE // DADO
***********************************************************************************************************
--------[ EVEREST Home Edition (c) 2003-2005 Lavalys, Inc. ]------------------------------------------------------------
Versão EVEREST v2.00.300 Beta/pt
Homepage http://www.lavalys.com/
Tipo de relatório Assistente de relatórios
Computador CAISM_03
Gerador graal
Sistema operacional Microsoft Windows 98 SE 4.10.2222A (Win98 SE)
Data 2005-05-18
Hora 12:53
--------[ Sumário ]-----------------------------------------------------------------------------------------------------
Computador:
Sistema operacional Microsoft Windows 98 SE
Service Pack do Sistema Operacional -
Internet Explorer 6.0.2800.1106 (IE 6.0 SP1)
DirectX 4.06.03.0518 (DirectX 6.1a)
Nome do Computador CAISM_03
Nome do usuário graal
Placa mãe:
Tipo de processador AMD Duron XP, 1300 MHz (13 x 100)
Nome da Placa Mãe PCChips M810DLU (2 PCI, 1 CNR, 2 DDR DIMM, Audio, Video, LAN)
Chipset da Placa Mãe SiS 740
Memória do Sistema 96 MB (PC2100 DDR SDRAM)
Tipo de BIOS AMI (04/10/03)
Porta de comunicação Porta de comunicações (COM1)
Porta de comunicação Porta de impressora ECP (LPT1)
Monitor:
Adaptador gráfico SiS 650_651_M650_740 (32 MB)
Acelerador 3D SiS 315 Integrated
Monitor AOC Spectrum 5E/5EA/5Elr/5ElrA [15" CRT] (1331925894)
MultimÃdia:
Adaptador de som SiS 7012 Audio Device
Armazenamento:
Controladora IDE Controlador IDE primário (fifo duplo)
Controladora IDE Controlador IDE secundário (fifo duplo)
Controladora IDE SiS 5513 Dual PCI IDE Controller
Drive de Disquete de 3 1/2 GENERIC NEC FLOPPY DISK
Disco rÃgido GENERIC IDE DISK TYPE47
Drive óptico ATAPI CDROM. (CD-ROM)
Status dos discos rÃgidos SMART Desconhecido
Partições:
C: (FAT32) 38152 MB (36423 MB livre)
Dispositivos de entrada:
Teclado Teclado avançado PC/AT (101/102 teclas)
Mouse Microsoft PS/2 Port Mouse
Rede:
Adaptador de Rede PPP Adapter.
Adaptador de Rede PPP Adapter.
Adaptador de Rede SiS NIC SISNIC (192.168.30.43)
Modem HSP56 MR
Dispositivos:
Impressora Lexmark Optra M410
Controladora USB1 SiS 7001 PCI-USB Open Host Controller
Controladora USB1 SiS 7001 PCI-USB Open Host Controller
--------[ Programas instalados ]----------------------------------------------------------------------------------------
Adobe Reader 6.0 - Português [português (brasileiro)] 006.000.000 Desconhecido
Assistente de publicação na Web 1.6 da Microsoft Desconhecido
Desinstalar o software da impressora Lexmark Desconhecido
HSP56 MR Drivers Desconhecido
Justsoft WinPolicy Desconhecido
LiveUpdate 1.7 (Symantec Corporation) Desconhecido
Microsoft Internet Explorer 6 SP1 e Ferramentas para Internet Desconhecido
Microsoft Office 2000 Professional 9.00.2720 - Office 2000 Retail Desconhecido
Microsoft Outlook Express 6 Desconhecido
NetMeeting 3.0 Desconhecido
Oracle JInitiator 1.1.8.16 Desconhecido
SiS 650_651_M650_740 Desconhecido
SiS 900 PCI Fast Ethernet Adapter Driver Desconhecido
Symantec AntiVirus Client 8.0.0.374 Desconhecido
WinZip 8.1 SR-1 (5266) Desconhecido
tentei diminuir a fonte mas nao deu certo, se quiserem envio o txt por e-mail para vcs verem...
Obrigado
Obrigado
bem... para ler é tranquilo, vc usa:
Dim sLinha as String
Open NomeDoArquivo.TXT For Input As #1
While Not EOF(1)
Line Input #1, sLinha
'aqui vc colocaria a rotina para ler... como vc sabe o que tem cada linha,
'como por exemplo
'"Versão EVEREST v2.00.300 Beta/pt
'fica relativamente ler somente o que está após esta posição...
Wend
Close #1
Dim sLinha as String
Open NomeDoArquivo.TXT For Input As #1
While Not EOF(1)
Line Input #1, sLinha
'aqui vc colocaria a rotina para ler... como vc sabe o que tem cada linha,
'como por exemplo
'"Versão EVEREST v2.00.300 Beta/pt
'fica relativamente ler somente o que está após esta posição...
Wend
Close #1
Então o caso é o seguinte....
onde for computador: [é uma tabela]
Sistema operacional [é um campo]
Microsoft Windows 98 SE [é um dado]
Nesse esquema nos demais tb.... teria que separar o que é tabela, campo e dado para poder acrregar em um bando de dados... pode ser o access mesmo!
são dados de +/- 800 maquinas!!! cada maquina possui um txt destes... então precisaria separar estas informações para aloca-las em um banco de dados para posteriores consultas.
Obrigado
onde for computador: [é uma tabela]
Sistema operacional [é um campo]
Microsoft Windows 98 SE [é um dado]
Nesse esquema nos demais tb.... teria que separar o que é tabela, campo e dado para poder acrregar em um bando de dados... pode ser o access mesmo!
são dados de +/- 800 maquinas!!! cada maquina possui um txt destes... então precisaria separar estas informações para aloca-las em um banco de dados para posteriores consultas.
Obrigado
Basicamente voce deve usar instr e left para saber o que você tem na linha que esta lendo.
Vamos a um exemplo bem bobinho...
Vamos a um exemplo bem bobinho...
Criterio="Monitor"
if left(linha,len(criterio)) = criterio then
'Achei a linha do monitor...
end if
Vou tentar gente...
valeu pelas dicas....
vou deixar o topico aberto mais um pouco se conseguir encerro ainda hj, ok!?
Obrigado,
valeu pelas dicas....
vou deixar o topico aberto mais um pouco se conseguir encerro ainda hj, ok!?
Obrigado,
Tópico encerrado , respostas não são mais permitidas