Futura
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 26/05/2006 17:45 hs
preciso importar um txt, delimitado por virgulas. |
|
|
|
|
|
|
|
Postada em 26/05/2006 18:25 hs
se explique melhor. isso é um .CSV, deve ter que procurar uma api especifica. Já fiz isso em java. |
|
|
|
|
|
Postada em 26/05/2006 18:51 hs
se explique melhor. ???, é um arquivo texto (txt), delimitado por ";" ponto e virgula. |
|
|
|
|
|
Postada em 27/05/2006 14:22 hs
é q um .csv É um arquivo delimitado por ponto e vírgula, pode ser um arquivo exportado do excel como csv... mas não precisa necessariamente ser um csv para ter separação por ponto e vírgula... Bom agora para a importação...vc pode importar usando o ADO deste jeito: Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c: xtFilesFolder;Extended Properties=""text;HDR=No;FMT=Delimited"""
rs.CursorLocation = adUseClient
rs.Open "Select * from Teste.txt", cnn
"HDR=Yes;" indicates that the Min row contains columnnames, not data ******************************************************************* Vc tb pode abrir o arquivo e ler linha a linha separando depois os dados pelo comando "split": Dim F As Long, Linha As String
Dim Matriz as Variant
F = FreeFile
Open txttexto.Text For Input As F 'abre o arquivo texto
Do While Not EOF(F)
Line Input #F, Linha 'lê uma linha do arquivo texto
matriz = split(linha,";")
codigo = Matriz(0)
nome = Matriz(1) endereco = Matriz(2) telefone = Matriz(3) nascimento = Matriz(4) matriz = empty Loop ********************************************* Bom, existem outros métodos tb... vc pode ver como tb neste link: http://www.macoratti.net/txt_arqs.htm Qq dúvida é só postar t+
|
|
|
|
Righi
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/05/2006 07:52 hs
Cara eu acho que a sua dúvida é a seguinte:
um arquivo que contenha tipo assim : dinheiro,fase,vidas..
no caso ele3 se pareceria com isso (supondo)
1000,2,5
você quer que o seu programa saiba que antes da 1ª virgula tem que colocar tudo na variavel dinheiro, a 2ª na fase.. etc???
Se for, recomendo que dê uma olhada (aqui no site tem na área de dicas) nessa dica:
http://www.vbweb.com.br/dicas_visual.asp?Codigo=2262&Classificacao=4
ela ensina a usar o comando Split. e você pode usar essa tecnica não só com vírgulas, mas com qualaquer caracter que você bem entender.
Se a dúvida permanecer, Posta aew!
Abração
Righi
 Righi
Beginner Game Developer! duduchaves@uai.com.br
|
|
|
|
Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 05/06/2006 09:59 hs
pessoal, estou colocando aqui algumas linhas do arquivo, na verdade não entendi qual é o caracter delimitador, deem uma analisada. """R1_NOME" R1_REMUNERACAO R1_REGISTRO "R1_FU"" NCA ""O" R1_ADMISSAO R1_ORGAO R1_COMPETENCIA "R1_VENCTO_BA"" ""SE" R1_DEP_IR "R1_DEP_"" ""SF" R1_BANCO R1_AGENCIA R1_CONTA R1_LOCAL """ ""R1_COD01" """ ""R1_HIST01" R1_REF01 R1_VENC01 R1_DESC01 "R1_CO"" ""D02" R1_HIST02 R1_REF02 "R1_VENC0"" ""2" R1_DESC02 R1_COD03 "R"" ""1_HIST03" """ ""R1_REF03" R1_VENC03 "R1_DESC0"" ""3" R1_COD04 "R1_HIS"" ""T04" R1_REF04 R1_VENC04 R1_DESC04 R1_COD05 R1_HIST05 R1_REF05 R1_VENC05 R1_DESC05 R1_COD06 R1_HIST06 R1_REF06 R1_VENC06 R1_DESC06 R1_COD07 R1_HIST07 R1_REF07 R1_VENC07 R1_DESC07 R1_COD08 R1_HIST08 R1_REF08 R1_VENC08 R1_DESC08 R1_COD09 R1_HIST09 R1_REF09 R1_VENC09 R1_DESC09 R1_COD10 R1_HIST10 R1_REF10 R1_VENC10 R1_DESC10 R1_COD11 R1_HIST11 R1_REF11 R1_VENC11 R1_DESC11 R1_COD12 R1_HIST12 R1_REF12 R1_VENC12 R1_DESC12 R1_COD13 R1_HIST13 R1_REF13 R1_VENC13 R1_DESC13 R1_COD14 R1_HIST14 R1_REF14 R1_VENC14 R1_DESC14 R1_COD15 R1_HIST15 """ R1_REF ""15" R1_VENC15 "R"" ""1_DESC15" "R1_COD16"" """ R1_HIST16 R1_REF16 R1_VENC16 R1_DESC16 R1_COD17 R1_HIST17 R1_REF17 R1_VENC17 R1_DESC17 R1_COD18 R1_HIST18 R1_REF18 R1_VENC18 R1_DESC18 R1_COD19 R1_HIST19 R1_REF19 R1_VENC19 R1_DESC19 R1_COD20 R1_HIST20 R1_REF20 R1_VENC20 R1_DESC20 R1_BASE_INSS R1_BASE_IRRF R1_VENCIMENTOS R1_DESCONTOS R1_BASE_FGTS R1_VALOR_FGTS R1_LIQUIDO R1_MENSAGEM1 R1_MENSAGEM2 R1_MENSAGEM3 R1_MENSAGEM4 R1_SEQUENCIA R1_SERVIDOR R2_NOME R2_REMUNERACAO R2_REGISTRO R2_FUNCAO R2_ADMISSAO R2_ORGAO R2_COMPETENCIA R2_VENCTO_BASE R2_DEP_IR R2_DEP_SF R2_BANCO R2_AGENCIA R2_CONTA R2_LOCAL R2_COD01 R2_HIST01 R2_REF01 R2_VENC01 R2_DESC01 R2_COD02 R2_HIST02 R2_REF02 R2_VENC02 R2_DESC02 R2_COD03 R2_HIST03 R2_REF03 R2_VENC03 R2_DESC03 R2_COD04 R2_HIST04 R2_REF04 R2_VENC04 R2_DESC04 R2_COD05 R2_HIST05 R2_REF05 R2_VENC05 R2_DESC05 R2_COD06 R2_HIST06 R2_REF06 R2_VENC06 R2_DESC06 R2_COD07 R2_HIST07 R2_REF07 R2_VENC07 R2_DESC07 R2_COD08 R2_HIST08 R2_REF08 R2_VENC08 R2_DESC08 R2_COD09 R2_HIST09 R2_REF09 R2_VENC09 R2_DESC09 R2_COD10 R2_HIST10 R2_REF10 R2_VENC10 R2_DESC10 R2_COD11 R2_HIST11 R2_REF11 R2_VENC11 R2_DESC11 R2_COD12 R2_HIST12 R2_REF12 R2_VENC12 R2_DESC12 R2_COD13 R2_HIST13 R2_REF13 R2_VENC13 R2_DESC13 R2_COD14 R2_HIST14 R2_REF14 R2_VENC14 R2_DESC14 R2_COD15 R2_HIST15 R2_REF15 R2_VENC15 R2_DESC15 R2_COD16 R2_HIST16 R2_REF16 R2_VENC16 R2_DESC16 R2_COD17 R2_HIST17 R2_REF17 R2_VENC17 R2_DESC17 R2_COD18 R2_HIST18 R2_REF18 R2_VENC18 R2_DESC18 R2_COD19 R2_HIST19 R2_REF19 R2_VENC19 R2_DESC19 R2_COD20 R2_HIST20 R2_REF20 R2_VENC20 R2_DESC20 R2_BASE_INSS R2_BASE_IRRF R2_VENCIMENTOS R2_DESCONTOS R2_BASE_FGTS R2_VALOR_FGTS R2_LIQUIDO R2_MENSAGEM1 R2_MENSAGEM2 R2_MENSAGEM3 R2_MENSAGEM4 R2_SEQUENCIA "R2_SERVIDOR"""
"ADALBERTO AP PEREIRA """ """ ""0,01" 895 "APOSENTADO"" """ 02-01-1989 "12.01.01"" PORTO PREV APOSENTADOS """ mar-06 """ ""0,01" 0 0 104 740 "001-00000000-0"" """ "402-PORTOPREV-APOSENTADOS"" """ 1 VENCIMENTOS """ ""30,00" """ ""0,01" 21 "AUXILIO"" ""ALIMENTACAO" """ ""0,00" 80 ADICIONAL TEMPO DE SERVICO 0 0,01 81 SEXTA PARTE 0,01 0,01 82 REGIME TEMPO INTEGRAL 0 0,01 115 PLANO DE SAUDE-MP-DEP 0,01 119 SEGURO DE VIDA - AMERICAN LIFE 0,01 347 PORTOPREV - (2) 0 0,01 383 I.R.R.F. 0,01 0,01 0,01 0,01 0,01 0,01 1 "000895"" "
"ALCEU ANTONIO DE OLIVEIRA """ """ ""0,01" 22 "APOSENTADO"" """ 04-12-2004 "12.01.05"" S.A.E.F. APOSENTADOS """ mar-06 """ ""0,01" 1 1 104 740 "013-00000000-0"" """ "402-PORTOPREV-APOSENTADOS"" """ 1 VENCIMENTOS """ ""30,00" """ ""0,01" 21 "AUXILIO"" ""ALIMENTACAO" """ ""0,00" 109 MENSALIDADE SINDICATO 0 0 113 CBASICA-SUPERM.VILAS BOAS LTDA 0 121 PLANO COB. COMPL.IM/HOSP. STD 0 0 123 RICARDO FENILI & CIA LTDA EPP 0 136 PLANO DE SAUDE-IM-DEP. 0 139 DROGARAIZ-EMILIO A.MANSINI 0 140 NATUFARMA-ANA L.B.RIBEIRO-ME 0 157 EMPRESTIMO-CX.EC.FEDERAL 0 0 0 0 2 "000022"" "
"ALEXANDRE HIPOLITO COSTA """ """ ""0,01" 13 "APOSENTADO"" """ 27-07-2004 "12.01.01"" PORTO PREV APOSENTADOS """ mar-06 """ ""0,01" 2 2 104 740 "013-00000000-0"" """ "402-PORTOPREV-APOSENTADOS"" """ 1 VENCIMENTOS """ ""30,00" """ ""0,01" 21 "AUXILIO"" ""ALIMENTACAO" """ ""0,00" 109 MENSALIDADE SINDICATO 0 0 113 CBASICA-SUPERM.VILAS BOAS LTDA 0 123 RICARDO FENILI & CIA LTDA EPP 0 127 PORTOFARMA DROG.M.FORM.LTDA 0 136 PLANO DE SAUDE-IM-DEP. 0 139 DROGARAIZ-EMILIO A.MANSINI 0 157 EMPRESTIMO-CX.EC.FEDERAL 0 0 0 0 0 0 3 "000013"" "
"ANA MARIA LOUREIRO DA SILVA """ """ ""0,01" 34 "APOSENTADO"" """ 23-07-2005 "12.01..01"" PORTO PREV APOSENTADOS """ mar-06 """ ""0,01" 1 1 104 740 "013-00000000-0"" """ "402-PORTOPREV-APOSENTADOS"" """ 1 VENCIMENTOS """ ""30,00" """ ""0,01" 21 "AUXILIO"" ""ALIMENTACAO" """ ""0,01" 116 PLANO DE SAUDE-MP-IND. 0,01 120 PLANO C.C.MP-STANDARD 1 0,01 0,01 0,01 0,01 0,01 4 "000034"" "
"ANGELINO DONDERE """ """ ""0,01" 597 "APOSENTADO"" """ 12-11-2002 "12.01.05"" S.A.E.F. APOSENTADOS """ mar-06 """ ""0,01" 1 1 104 740 "023-00000000-0"" """ "402-PORTOPREV-APOSENTADOS"" """ 1 VENCIMENTOS """ ""30,00" """ ""0,01" 21 "AUXILIO"" ""ALIMENTACAO" """ ""0,01" 109 MENSALIDADE SINDICATO 2,5 0,01 115 PLANO DE SAUDE-MP-DEP 0,01 120 PLANO C.C.MP-STANDARD 2 0,01 0,01 0,01 0,01 0,01 5 "0005"" "
"ANTONIA DURITA CUNHA """ """ ""0,01" 44 "PENSIONISTA"" """ 01-10-2005 "12.01.02"" PORTO PREV PENSIONISTAS """ mar-06 """ ""0,01" 3 3 104 899 "013-00000000-0"" """ "000-"" """ 1 VENCIMENTOS """ ""30,00" """ ""0,01" 21 "AUXILIO"" ""ALIMENTACAO" """ ""0,00" 0,01 0,01 0,01 6 "000044"" "
"ANTONIA FONSECA MACHADO """ """ ""0,01" 623 "APOSENTADO"" """ 01-03-2001 "12.01.01"" PORTO PREV APOSENTADOS """ mar-06 """ ""0,01" 0 0 104 740 "001-00000000-0"" """ "402-PORTOPREV-APOSENTADOS"" """ 1 VENCIMENTOS """ ""30,00" """ ""0,01" 21 "AUXILIO"" ""ALIMENTACAO" """ ""0,00" 135 PLANO DE SAUDE-IM-IND. 0,01 157 EMPRESTIMO-CX.EC.FEDERAL 0,01 165 PLANO COB. COMPL.IM/HOSP. EXC 1 0 0,01 0,01 0,01 0,01 7 "000623"" "
|
|
|
|
|
