Leer TXT con FSO.

En vez de leer linea a linea haz un tso.readall y cargas todo el contenido
en una variable.

Si cada linea es un registro puedes separarlos por el salto de linea,
vbcrlf

Y dentro de cada registro los campos parecen estar separados por
tabulador, vbtab

Usa estos delimitadores para manejar los datos.

Saludos.


fpmweb wrote:

Hola,

estoy leiendo un fichero txt con FileSystemObject, y me surge un
problema.

El fichero dispone de varias lineas con infromación, por ejemplo:

AAADFSFSDFSD111111111Xasfas fasdfasdfdasfasd
00000002121213135afaasf
BBBDFSFSDFSD222222222asfas fasdfasd fdasfasd
00000002121213135afaasf
CCCDFSFSDSD222222222asfas fa sdfa fasdf asd d
00000002121213135afaasf

Ahora tengo que recorrer todo el txt, recuperar linea a linea y
formatearlo. En definitiva preparar los campos para realizar un insert en
la base de datos.
Deberia quedar asi:

AAADFSFSDFSD
111111111
Xasfas fasdfasdfdasfasd 00000002121213135
afaasf


BBBDFSFSDFSD
222222222
asfas fasdfasd fdasfasd 00000002121213135
afaasf


CCCDFSFSDSD
etc

De esta forma recupero la linea, corto los trozos que necesito y voy
haciendo el insert en la BD para cada bloque (o linea). El problema surge
que no lo recupera correctamente.

Tengo el siguiente código:

Set fso = CreateObject("Scripting.FileSystemObject")
Set tso = fso.OpenTextFile ("C:\Inetpub\wwwrootssssp\eees\" &
"xxxx.txt")
do until (tso.AtEndOfStream)
response.write Mid(tso.ReadLine, 1, 9) & "<br>"
loop
tso.close


Aquí el primer response.write Mid(tso.ReadLine, 1, 9) & "<br>" lo
recupera bien,
pero cuando trato de recuperar la segunda parte del campo no lo recupera
bien


Set fso = CreateObject("Scripting.FileSystemObject")
Set tso = fso.OpenTextFile ("C:\Inetpub\wwwrootssssp\eees\" &
"xxxx.txt")
do until (tso.AtEndOfStream)
response.write Mid(tso.ReadLine, 1, 9) & "<br>"
response.write Mid(tso.ReadLine, 10, 3) & "<br>"
loop
tso.close

En este caso no lo recupera bien, me aparecen menos registros.

¿¿¿¿ Alguna solución ???

¿Hay algún método movefirst, movelast...?

Gracias.