dúvida sobre banco de dados em texto?

[vilmarbr]

Olá Pessoal,

Então, eu tenho várias tabelas de banco de dados em formato texto que eu abro e varro os arquivos com estas funções

da biblioteca do VB 6 VBA.FileSystem conforme abaixo.

Eu gostaria de saber se tem alguma forma de pegar cada campo, sabendo a posição em que cada um começa, sem precisar

usar funções de string (MID, InStr , etc...) ????

Grato.

'------------------------------------------------------------------------------------

If m_strArquivoLog = "" Then

MsgBox "Favor escolher o arquivo de log para processamento", vbCritical, "Aviso"

Call cmdAbrirLog_Click

Exit Sub

Else

Open m_strArquivoLog For Input As #1

End If

prgBarra.Value = 0

prgBarra.Min = 0

prgBarra.Max = 100

lngTotal = LOF(1)

Do While Not EOF(1)

DoEvents

Line Input #1, vrtLinha

If InStr(1, vrtLinha, "00000001", vbTextCompare) <> 1 And _

InStr(1, vrtLinha, "99999999", vbTextCompare) <> 1 Then

txtResultado.Text = txtResultado.Text & vrtLinha & vbCrLf

End If

lngRegistrosLidos = lngRegistrosLidos + Len(vrtLinha & vbNewLine)

prgBarra.Value = Format(lngRegistrosLidos * 100 / lngTotal, "###.#0")

lblAviso.Caption = prgBarra.Value & "%" & vbNewLine & "Registros Lidos: " & _

lngRegistrosLidos & vbNewLine & "Total de Registros: " & lngTotal

Loop

datHoraFim = Format(Now, "hh:mm:ss")

lblAviso.Caption = lblAviso.Caption & vbNewLine & "Início: " & datHoraInicio & " - Fim: " & datHoraFim

Close #1

'------------------------------------------------------------------------------------

Exemplo de dados de uma tabela:

0000000277881591459000100 DE xxxxxx RIBUI RA DE VEICULOS LTDAZ00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

0000000477881098869000105 aaaa RES L TDA T00000

0000000477881098869000105 aaaa RES L TDA T00000

0000000477881098869000105 aaaa RES L TDA T00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

0000000277881591459000100 DE xxxxxx RIBUI RA DE VEICULOS LTDAZ00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

0000000477881098869000105 aaaa RES L TDA T00000

0000000477881098869000105 aaaa RES L TDA T00000

0000000477881098869000105 aaaa RES L TDA T00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

0000000314053038378000140 CA NEIRO dddddddddddd dd .MAQS.LTDAT00000

[kuroi]

porque você não quer usar Mid()??

[vilmarbr]

eu não queria usar MID para não ter que ficar comparando string, mas to vendo que não tem jeito mesmo pelo que estou pesquisando na web.

acho que com MID vai ficar lento, mas se não tem jeito, vai de MID mesmo :rolleyes: