PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → Importação e Exportação de Dados usando TXT
Importação e Exportação de Dados usando TXT
Débuté par adrianoboller, 16 jan. 2015 12:24 - 5 réponses
Membre enregistré
3 003 messages
Popularité : +89 (91 votes)
Posté le 16 janvier 2015 - 12:24
//Exmplos fornecidos por Paulo Viana Souza e Amarildo Matos

//Recuperar dados

TableDeleteAll(TABLE_itens_vendidos)
nArquivoid is int
sFimarquivo is string
nArquivoid = fOpen("C:\amarildo\orcamento.txt",foReadWrite)
IF nArquivoid<>-1 THEN
sLinha is string
sPegacampo is string
LOOP
sLinha = fReadLine(nArquivoid)
IF sLinha = EOT THEN
BREAK
ELSE
IF sLinha="" THEN
BREAK
ELSE
sPegacampo = ExtractString(sLinha,firstRank,"|")
sFimarquivo= ExtractString(sLinha,nextRank,"|")
IF sFimarquivo="FIM" THEN
BREAK
ELSE
IF sFimarquivo="ORCAMENTO" THEN
EDT_MATERIAL_SEQUENCIA=ExtractString(sLinha,nextRank,"|")
EDT_Material_Chave = ExtractString(sLinha,nextRank,"|")
TableAddLine(TABLE_itens_vendidos,EDT_MATERIAL_SEQUENCIA,EDT_Material_Chave,Material_nome,EDT_MATERIAL_Quantidade,EDT_MATERIAL_Valor_produto,EDT_MATERIAL_Valor_produtos,EDT_MATERIAL_Valor_percentual_ipi,EDT_MATERIAL_Valor_ipi,EDT_MATERIAL_Valor_total,EDT_MATERIAL_REFERENCIA,EDT_MATERIAL_CODIGO_BARRA,EDT_material_observacao)
ELSE
END
END
END
END
END
END



//Gravar Dados:
sMonta is string
sMonta = "|"
nPrimeiravez is int
nPrimeiravez=0
FOR ALL ROW OF TABLE_itens_vendidos
EDT_MATERIAL_TOTAL_VALOR_GERAL+=TABLE_itens_vendidos.COL_VALOR_TOTAL
EDT_MATERIAL_TOTAL_V_IPI+=TABLE_itens_vendidos.COL_VALOR_IPI
EDT_MATERIAL_TOTAL_V_PRODUTOS+=TABLE_itens_vendidos.COL_VALOR_PRODUTOS
sMonta+=["|"]+"ORCAMENTO"
sMonta+=["|"]+TABLE_itens_vendidos.COL_Sequencia
sMonta+=["|"]+TABLE_itens_vendidos.COL_CODIGO_MATERIAL// EDT_Material_Chave
IF TABLE_itens_vendidos.COL_DESCRICAO_MATERIAL="" THEN
sMonta=sMonta+["|"]+" "
ELSE
sMonta+=["|"]+TABLE_itens_vendidos.COL_DESCRICAO_MATERIAL// EDT_material_Nome
END
IF EDT_Condicao_pagamento_descricao="" THEN
sMonta+=["|"]+" "
ELSE
sMonta+=["|"]+EDT_Condicao_pagamento_descricao
END
sMonta+=["|"]+EDT_Valor_percentual_venda
sMonta+=CR
END
sMonta+=["|FIM"]
sMonta+=CR
fSaveText("C:\amarildo\orcamento.txt",sMonta)

//Outro Exemplo
Procedure criar_temp(minhatabela)
EXTERN Temp_File
MyFile is File Description
MyItem1 is Item Description
Tabelas is string=HListItem({minhatabela},hLstDetail)
// Declare the file
MyFile..Name = "Temp_File"
MyFile..Type = hFileNormal
MyFile..DescribedDirectory="c:\tmp\outros"
FOR EACH STRING sResultado OF Tabelas SEPARATED by CR
MyItem1..Name=ExtractString(sResultado,1,TAB)
MyItem1..Type=ExtractString(sResultado,3,TAB)
MyItem1..Size=ExtractString(sResultado,4,TAB)
HDescribeItem(MyFile, MyItem1)
END
HDescribeFile(MyFile)
HCreation("Temp_File")
Membre enregistré
8 messages
Popularité : +2 (2 votes)
Posté le 16 avril 2015 - 02:14
Boa Noite Adriano,
Estava fazendo este exemplo acima e os dados estão aparecendo em linguagem oriental.
Você saberia como resolver isso.

Marcos Alves
Membre enregistré
3 003 messages
Popularité : +89 (91 votes)
Posté le 16 avril 2015 - 13:38
Prezado Marcos,

No projeto voce tem que mudar para ANSI

Só isso...

P - (Project) - Project Description - Describer current configuration - Unicode - tem dois options mude de UNICODE para ANSI.

Segue imagem:



Membre enregistré
3 003 messages
Popularité : +89 (91 votes)
Posté le 16 avril 2015 - 13:39
:merci:
Membre enregistré
8 messages
Popularité : +2 (2 votes)
Posté le 17 avril 2015 - 02:12
Adriano,

Muito obrigado, deu certo!
Membre enregistré
3 003 messages
Popularité : +89 (91 votes)
Posté le 17 avril 2015 - 14:33
:merci: