eu tenho um arquivo em TXT que seus dados estão dispostos em 2 colunas. E o valor das informações de cada coluna estão na mesma posição do arquivo. Eu queria saber onde eu to errando no "ParseToArray" e se eu posso usar o "Mid" ou o "Trim" em algum lugar. Meu objetivo é que a partir de um formulario importando esse TXT e o banco em Access onde irá ser importado, esses valores sejam dispostos nas colunas da tabela criada. O tratamento do meu ParseToArray está assim:
Private Sub ParseToArray(sLine As String, A() As String)
Dim P As Long, LastPos As Long, i As Long
Dim Campo As String
P = InStr(sLine, " ")
Dim Posicao As Long
'se ler uma linha em branco não faz nada
If Trim(sLine) = "" Then
Exit Sub
End If
Do While P
Campo = Trim(Mid$(sLine, LastPos + 1, P - LastPos - 1))
'recebe a posição do vetor a ser armazenado o campo
Posicao = VarreVetor(Campo)
LastPos = P
i = i + 1
P = InStr(LastPos + 1, sLine, "=", vbBinaryCompare)
'se posição menor do que 9 é porque encontrou este campo no vetor
If Posicao < 9 And Posicao > 0 Then
' A(Posicao) = Trim(Mid$(sLine, LastPos + 1, P - LastPos - 1))
A(Posicao) = Mid$(sLine, LastPos + 1)
ElseIf Posicao = 0 Then
' Grava a Posição do CDR
A(0) = Trim(Mid$(sLine, LastPos + 1, P - LastPos - 1))
End If
Loop
If i = 0 Then
A(i) = Mid$(sLine, LastPos + 1)
End If
End Sub
se alguem souber e puder me ajudar eu agradeço.