Caros Colegas,

Estou com um problemão. Tenho uma arrey que recebe dados de um indice, o problema é que o numero do indice é variável, ou seja, não é fixo tipo i = x to xx. Não sei se ficou claro, mas vou postar o código:

 

F = FreeFile
Open App.Path & "Bilhetes_record_08.txt" For Input As F

Do While Not EOF(F)
    Line Input #F, linha 'uma linha do arquivo texto
   
    For i = 1 To Len(linha)
        lvMinPos = InStr(i, linha, "|")
        lvMaxPos = InStr(lvMinPos + 1, linha, "|")
        lvLenPos = lvMaxPos - lvMinPos
        If i < Len(linha) Then
            lvStr = Mid(linha, lvMinPos + 1, lvLenPos - 1)
            i = lvMaxPos - 1
        End If
        ReDim Preserve lvArray(i) As String
        lvArray(i) = lvStr
    Next i
Loop

O índice de lvArray varia e preciso pegar este valor para inserir em uma tabela.

 

Alguem pode ajudar?

 

Alguma ajuda?

Por favor!

Ainda estou com duvida do que você deseja.

 

no seu código, (não testei ), pelo que entendi faz o seguinte

 

 For i = 1 To Len(linha)
..

..

        ReDim Preserve lvArray(i) As String
        lvArray(i) = lvStr
Next i

 

no caso acima em i seria armazenado um valor de 1 até numero de caracteres da linha

 

ex:

 

linha=10 caracteres

 

então lvArray(i) ficaria assim

 

lvArray(1)

lvArray(2)

lvArray(3) e assim por diante...

 

o que está saindo errado pra você e qual seria a informação que este array deveria retornar

estie olhando um outro post seu vi o seguinte:

 

|1397-87373|0|0|2008-01-10 06:30:44|2008-01-10 06:31:17|32||11|5229|5229|1001|||HD002/D00001/2008_01_10/H06/A01397/M_21837.WAV|7029||

 

seu objetivo seria desmembrar esta linha para o seguinte

 

1397-87373

0

0

2008-01-10 06:30:44

2008-01-10 06:31:17

 

32

11

5229

 

e assim por diante seria este o resultado que você deseja

Isso mesmo caro Treze.

Consigo desmembrar a string, mas não consigo extrair do array.

Verificando esta string acima, você consegue me ajudar?

 

Fico muito grato.

Bom só mais um esclarecimento por favor você disse que consegue desmembrar a string certo< ou seja para este formato: