Postada em 19/08/2008 22:01 hs
Supondo que vc já saiba abrir o arquivo e ler cada linha...
Eu usaria a função split para separar cada linha (registro) nos diversos campos que ela contém.
Após ler a linha, coloque-a em uma string (ex: LinhaLida). Aí use:
Dim Separa as Variant
Dim Campos() ' um array para armazenar os campos
Separa = Split(LinhaLida,chr(9)
ReDim Campos(Ubound(Separa) + 1)
For n = LBound(Separa) to Ubound(Separa)
Campos(n) = Separa(n)
Next n
Campos() vai ter os campos, linha a linha.
Obs. Dependendo da linguagem ou sistema que gerou o arquivo texto, pode haver mais de um caracter junto ao chr(9), o que pode dar erro com essa rotina.
|
