
10/04/2003, 23:07
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
ok, te comento que (dejando de lado todo el HTML, las partes ASP que no influirían en tu script y luego de probarlo), Mickel tenía la razón!
el problema está en el skipline
Acá te dejo el script que use para probar (que no es más que una versión reducida del tuyo): <%
Dim FSO, oCarpeta, colFicheros, fichero, oFichero
Dim sContenido
Dim codCliete, numPedido, fechaHoraped, fechaHorapro, codPostal, ordenCompra
Dim numEntrega, codProd, cantidad, contador
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oCarpeta = FSO.GetFolder("C:\")
set colFicheros = oCarpeta.Files 'contador=1
for each fichero in colFicheros
if fichero.Name="pedidos.txt" then
set oFichero = fichero.OpenAsTextStream(1)
Do While oFichero.AtEndOfStream<>True
sContenido=""
sContenido = oFichero.ReadLine
response.write(sContenido & "<br>") 'oFichero.SkipLine 'contador=contador+1
Loop
oFichero.Close
set oFichero = nothing
end if
next
%>
Fijate las cosas que "comenté" (y marqué en negritas) y que tal vez estén de más -como el contador-... El skipline SI está de más
Tambien te dejo el archivo TXT que utilicé a manera de ejemplo, según tus especificaciones (ubicado en C: y con el mismo nombre que vos le diste, salvo que con otro contenido): Linea 1
Linea 2
Linea 3
Linea 4
Linea 5
Linea 6
Linea 7
Linea 8
Linea 9
Linea 10
Linea 11
Linea 12
Linea 13
Linea 14
Linea 15
Linea 16
Linea 17
Linea 18
Linea 19
Linea 20
Sin usar skipline, el resultado es la lectura de TODAS las lineas. Usándolo, sólo veo las impares.
saludos
Última edición por AlZuwaga; 10/04/2003 a las 23:13 |