[Resolvido]Problemas ao carregar arquivo txt

Boa Tarde galera,

Estou com um pequeno problema que afeta no desempenho total do meu access...Na hora de importar um arquivo txt, o meu primeiro campo é um ID e ele começa do 1 e vai até 64823 (um exemplo). Só que essa diferença de casas impacta do segundo campo pra frente... Exemplo do arquivo:

ID, Campo2
98,"IOA
99,"AWS
100,"ABC
101,"DFG
102,"HIJ
103,"KLM

O meu problema esta na mudança de decimal para centésimo e de centésimo para milhar...
Eu preciso modificar o código para que ele use o delimitador "" para separar corretamente, só que não sei como fazer...Alguém pode me dar uma ajuda para solucionar este problema?

'Abre o arquivo txt
Open VarArq For Input As #1

'move para proxima linha
Line Input #1, LinhaTXT

While Not EOF(1)

'move para a 2ª linha
Line Input #1, LinhaTXT

'Retira a informação do txt e armazena na variavel - 33 campos
Teste1 = Mid(LinhaTXT, 1, 5)
Teste2 = Mid(LinhaTXT, 8, 4)

'insere as informações na tabela
rs.AddNew
rs.Fields("Campo_1") = Teste1
rs.Fields("Campo_2") = Teste2

rs.Update
Wend
Close 1

Boa noite Cibele, tudo tranquilo....
Nosso colega OsmarJr disponibilzou um exelente material sobre "Importando arquivos texto via VBA". Bom estudo....

http://speedy.sh/ZYfeq/Importando-Arquivos-Texto-Via-VBA.rar

Se lhe ajudar e resolver retorne, o forum lhe agradece

Olá Cafpr... eu não consigo fazer download's, poderia me enviar por e-mail por gentileza?

riot.skateboarding@gmail.com

Obrigada!

Cibele.....enviei o arquivo para o endereço que forneceu....
Bom estudo

Bom dia colegas do fórum!

Cafpr o que está no anexo eu preciso exatamente da primeira parte só que em VBA...rs...na forma manual do access eu já sabia, o que eu não estou conseguindo fazer e saber é como usar o delimitador em VBA....

Alguma ajuda?

Cibele boa noite, não lhe respondi antes porque estava estudando e no caminho encontrei aqui no forum um tópico sobre delimitador, dê uma olhadinha e entre no código do botão "Importar txt". bom estudo....

http://maximoaccess.forumeiros.com/t242-resolvidoimportar-arquivo-texto-sem-delimitadores#1313

Bom...pedi para que o JPaulo me enviasse o exemplo, pois aqui eu não consigo abrir...

Assim que receber alguma ajuda volto a postar aqui...

Caso alguém mais puder me ajudar....

Cibele, só para me orientar futuramente sobre alguma duvida sua. Exemplos para você somente por email????

Oi cafpr, pra mim os exemplos tem que ser por e-mail por enquanto, pois por aqui é tudo bloqueado e em casa estou sem internet...

O JPaulo me enviou o exemplo do tópico que você me passou, mas surgiu dois probleminhas:

1º o meu delimitador no caso seria uma " aspas duplas e quando coloco da erro...
2º A minha tabela possui colunas e eu precisava inserir os dados na coluna devida, na importação ele coloca tudo em uma única linha...

Segue o código:

Delimitador = ","" 'defina aqui qual o delimitador"

If Delimitador = "" Then Delimitador = " "
If Delimitador = "" Then Delimitador = vbTab

fnum = FreeFile
On Error GoTo NoTextFile
Open ArquivoTexto For Input As fnum

On Error GoTo NoDatabase
Set DB = CurrentDb
On Error GoTo 0

Do While Not EOF(fnum)
Line Input #fnum, LinhaDoTexto

'se existe texto, segue o código
'If Len(LinhaDoTexto) > 0 Then

'se existir uma linha em branco, passa para a proxima
If Len(LinhaDoTexto) < 0 Then
LinhaDoTexto = LinhaDoTexto + 1
End If

'percorre todo o texto do txt e adiciona à tabela
InstrucaoSQL = "INSERT INTO " & _
strTabela & " VALUES ("
Do While Len(LinhaDoTexto) > 0
Posicao = InStr(LinhaDoTexto, Delimitador)
If Posicao = 0 Then
InstrucaoSQL = InstrucaoSQL & _
"'" & LinhaDoTexto & "', "
LinhaDoTexto = ""
Else
InstrucaoSQL = InstrucaoSQL & _
"'" & Left$(LinhaDoTexto, Posicao - 1) & _
"', "
LinhaDoTexto = Mid$(LinhaDoTexto, Posicao + Len(Delimitador))
End If
Loop

InstrucaoSQL = Left$(InstrucaoSQL, Len(InstrucaoSQL) - 2) & ")"


Poderia me ajudar?

Bom Dia Pessoal... consegui solucionar o problema com o seguinte código

Sub Elimina(Linha As String, A() As String)

Dim P As Long, LastPos As Long, i As Long

'verifica a primeira posião do caractere | que divide as colunas
P = InStr(LinhaTXT, ",")

'Enquanto P <> 0 executa o while
'o P será verificado de dentro do While assim retorna novamente
Do While P
'LastPos armazena a ultima posição e que será o incio para retirar o caracteres
'P armazena a posição atual
'P - LastPos - 1 o resultado será o quantidade de caracteres que será extraido
'Abaixo é extraido o valor da linha e armazenado no array que é incrementado pelo i
A(i) = Mid$(LinhaTXT, LastPos + 1, P - LastPos - 1)


'Armazena a ultima posição
LastPos = P

'Incrementa o contador i
i = i + 1

'P verifica a posição do proximo divisor |
P = InStr(LastPos + 1, LinhaTXT, ",", vbBinaryCompare)
Loop
A(i) = Mid$(LinhaTXT, LastPos + 1)

End Sub

Caso os comentários estejam errados, me desculpem é que fui escrevendo conforme fui entendendo...