Heudes
|
VITÓRIA
ES - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/06/2011 09:25 hs
Bom dia galera,
Preciso de uma ajuda.
Preciso pegar um arquivo TXT, retirar informações dele e jogar em um outro layout.
Como assim?
Eu tenhu um arquivo de Contra-cheque, que saih no formulário padrão, esses de papelaria mesmo, e eu preciso jogá-lo em um outro Layout, um que saia 2 contra-cheques por página A4.
Pesquisei e vi a possibilidade de importar para um Banco de Dados pelo Visual Basic.
Então queria saber se realmente há essa possibilidade, e se alguém poderia me orientar como faço isso.
Agradeço galera!
|
|
|
|
|
|
|
|
Postada em 06/06/2011 09:29 hs
a importação e exportação pode ser feita para o vb.
|
|
|
|
Heudes
|
VITÓRIA
ES - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/06/2011 10:00 hs
Sim eu sei.
Mas queria saber como importar informações nas posições X e Y, por exemplo, Linha X do carctere 50 ao 70 será o Nome do Funcionário, e do 71 ao 76 é a matricula do funcionário.
Entendeu?
|
|
|
|
|
|
Postada em 06/06/2011 10:26 hs
muito mais facil ainda. essas posiçoes são fixas? sempre o funcionario va de 50 a 70? e a matricula de 71 a 76?
seria assim:
sub carregar()
Dim iARQ As Integer
Dim sLinha As String
Dim sArquivo As String
Dim v_sql As String
Dim iLinhas As Integer
cnLoad.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "anco_dados.mdb"
iARQ = FreeFile
Open sArquivo For Input As iARQ
iLinhas = 0
Dim rsCadProd As ADODB.Recordset
Set rsCadProd = New ADODB.Recordset
cnLoad.BeginTrans
Do While Not EOF(iARQ)
DoEvents
Line Input #iARQ, sLinha
Dim texto_coluna
texto_coluna = Split(sLinha, ";") 'se for separado por ";" se for "," trocar no split
sql = "SELECT * FROM tabelax "
rsCadProd.Open sql, CN
If rsCadProd.EOF Then
iLinhas = iLinhas + 1
'independente do tamaho no nome ele pega o conteudo sem importar a posição, 'caso contrario não use split(), utilize mid(texto,o_incio,qtecarateres)
'posicao texto_coluna(0)='coluna 1
'posicao texto_coluna(1)='coluna 2
'posicao texto_coluna(2)='coluna 3
v_sql = "insert into tabelax(codigo,nome, descricao) values("
v_sql = v_sql & " " & sLinha & ", '" & texto_coluna(1) & "', '" & texto_coluna(2) & "') "
cnLoad.Execute (v_sql)
End if
rsCadProd.Close
Loop
cnLoad.CommitTrans
Set rsCadProd = Nothing
' Fecha o arquivo
Close #iARQ
MsgBox "Arquivo carregado com sucesso!", vbInformation, App.Title
end sub
|
|
TÓPICO EDITADO
|
|
|
|
Rafaela
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/06/2011 10:42 hs
Blz, como seria para xml ? alguem sabe?
|
|
|
|
Heudes
|
VITÓRIA
ES - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/06/2011 10:44 hs
Sim sempre são fixas, porém...
No arquivo,
Sai na linha 1 várias informações diferentes,
na linha 2 várias outras informações diferentes tb...
chega num ponto, na linha 12, que muda de funcionário e começa tudo de novo....
linha 12 as mesmas informações da linha 1, porém pra outro funcionário,
linha 13 mesmas informações da linha 2 para outro funcionário,
e assim vai indo em todos os meus 834 funcionários!
=B
|
|
|
|
|
