Importar txt
Prezada Dr(a). ADRIANA VITAL BRASIL CRM 52475744
Para seu acompanhamento, segue abaixo, relacao de seus pacientes que enviaram
formulas em nossas farmacias.
Agradecemos a confianca depositada e nos colocamos a disposicao para maiores
informacoes. DATA NOTA NOME DO PACIENTE VL. NOTA 02/08/10 23399 CHRISTINA RIBEIRO 87,00
DESCRIMINACAO DOS ITENS: QTD VALOR
3710 - BEATRIZ - LC FACIAL 9 99,00 04/08/10 23534 ERIKA SMITH 165,10
DESCRIMINACAO DOS ITENS: QTD VALOR
3739 - ZEROAK-LC LIMPEZA 1 72,30 12/08/10 23960 THIAGO DE SOUZA CARVALHO 20,00
DESCRIMINACAO DOS ITENS: QTD VALOR
4214 - SAB PIRITIONATO DE ZINCO 2% 1 20,00
Nesse txt acima, eu preciso importar para o meu banco os seguintes dados: 1: ADRIANA VITAL BRASIL 2: 3710 3: Beatriz - lc facial 4: 9 5: 99,00 Depois os demais: 1:3739 2:Zeroak-lc limpeza 3:1 4:72,30 E assim por diante, ou seja, pra cada registro é: codigo,descricao,qtd e valor. Desde já agradeço.
Para seu acompanhamento, segue abaixo, relacao de seus pacientes que enviaram
formulas em nossas farmacias.
Agradecemos a confianca depositada e nos colocamos a disposicao para maiores
informacoes. DATA NOTA NOME DO PACIENTE VL. NOTA 02/08/10 23399 CHRISTINA RIBEIRO 87,00
DESCRIMINACAO DOS ITENS: QTD VALOR
3710 - BEATRIZ - LC FACIAL 9 99,00 04/08/10 23534 ERIKA SMITH 165,10
DESCRIMINACAO DOS ITENS: QTD VALOR
3739 - ZEROAK-LC LIMPEZA 1 72,30 12/08/10 23960 THIAGO DE SOUZA CARVALHO 20,00
DESCRIMINACAO DOS ITENS: QTD VALOR
4214 - SAB PIRITIONATO DE ZINCO 2% 1 20,00
Nesse txt acima, eu preciso importar para o meu banco os seguintes dados: 1: ADRIANA VITAL BRASIL 2: 3710 3: Beatriz - lc facial 4: 9 5: 99,00 Depois os demais: 1:3739 2:Zeroak-lc limpeza 3:1 4:72,30 E assim por diante, ou seja, pra cada registro é: codigo,descricao,qtd e valor. Desde já agradeço.
Francisco Assis
Curtidas 0
Respostas
Wilson Junior
26/09/2010
Você deve analisar o layout do arquivo e verificar para cada campo em qual posição ele começa e qual a sua quantidade de caracteres, assim, para cada linha do seu arquivo você terá que efetuar um copy(LinhaX, PosicaoInicial, QtdeCaracters) para retornar o valor do campo.
Espero ter colaborado.
Espero ter colaborado.
GOSTEI 0
Wilson Junior
26/09/2010
De uma olhada também neste link, de como abrir e ler o arquivo https://www.devmedia.com.br/forum/delphi/384529-Leitura-de-arquivo-TXT.html
Espero ter colaborado.
Espero ter colaborado.
GOSTEI 0
Eriley Barbosa
26/09/2010
Pelo layout que passou é só carregar o arquivo numa TstringList, varrer esta TstringList, testando se a linha contém caracter, caso contrario é valor e joga nos campos correspondentes.
GOSTEI 0