Grabar una tabla desde una ASP a un .TXT

gadget · #1 (**permalink**) 29/05/2003, 17:37

Hola Maestros, estoy obteniendo desde una ASP una tabla de HTML y la quiero meter tal como sale dentro de un archivo de texto, alquién me puede dar ideas sobre como hacerle?

Gracias

Mickel · #2 (**permalink**) 29/05/2003, 20:35

Graba toda la tabla como un archivo .txt usando FSO y TS

AlZuwaga · #3 (**permalink**) 29/05/2003, 20:42

:O!!!

Mickel, qué es TS?

gadget · #4 (**permalink**) 30/05/2003, 21:04

Mickel pues a mi me dejaste así

porque la verdad no te entendí mucho. Apenas vi en algún lado que utilizando ...

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath (archivo.txt)
Set archivo = FileObject.OpenTextFile (File, 2, True)
archivo.writeline "Prueba de escritura"
archivo.close

... se puede escribir un archivo de texto de una línea pero, cómo mandaría toda una tabla que además está en HTML y viene con formato? Aqui está mi tabla...

<table border="0" cellspacing="1" cellpadding="0" width="100%" bgcolor="#FFFFFF">
<tr>
<td align="center" colspan="4">GASTOS</tr>
<tr>
<td align="center" colspan="4">
DATOS al: 23/5/2003 
- Miles de pesos -</tr>
<tr>
<td align="left" colspan="4"><hr></td></tr>
<tr>
<td align="left">Region</td>
<td align="right">Gastado</td>
<td align="right">Programa</td>
<td align="Right">Avance %</td></tr>
<tr>
<td>NORTE</td>
<td align="right">3,818,958.8</td>
<td align="right">6,502,449.9</td>
<td align="right">58.7</td>
</tr>
</table>

Cómo mando toda la tabla?

Mickel · #5 (**permalink**) 30/05/2003, 21:54

Perdon, la costumbre de usar abreviaturas en el trabajo...

TS=TextStream object

Veamos...

<%
Dim oFS, oTS, sHTML
sHTML="<table border="0" cellspacing="1" cellpadding="0" width="100%" bgcolor="#FFFFFF">
<tr>
<td align="center" colspan="4">GASTOS</tr>
<tr>
<td align="center" colspan="4">
DATOS al: 23/5/2003 
- Miles de pesos -</tr>
<tr>
<td align="left" colspan="4"><hr></td></tr>
<tr>
<td align="left">Region</td>
<td align="right">Gastado</td>
<td align="right">Programa</td>
<td align="Right">Avance %</td></tr>
<tr>
<td>NORTE</td>
<td align="right">3,818,958.8</td>
<td align="right">6,502,449.9</td>
<td align="right">58.7</td>
</tr>
</table>"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oTS = oFS.OpenTextFile(_tu_archivo_, ForWriting, True)
oTS.Write sHTML
oTS.Close
oFS.Close
%>
<a href='_tu_archivo_'>Descarga la tabla desde aca</a>

gadget · #6 (**permalink**) 30/05/2003, 22:13

gracias Mickel como me mandaba error por las comillas dobles y luego por cadena no terminada lo puse así:

<%
Dim oFS, oTS, sHTML
sHTML="<table border='0' cellspacing='1' cellpadding='0' width='100%' bgcolor='#FFFFFF'>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td align='center' colspan='4'>GASTOS</tr>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td align='center' colspan='4'>"
sHTML=sHTML & "DATOS al: 23/5/2003 "
sHTML=sHTML & "- Miles de pesos -</tr>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td align='left' colspan='4'><hr></td></tr>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td align='left'>Region</td>"
sHTML=sHTML & "<td align='right'>Gastado</td>"
sHTML=sHTML & "<td align='right'>Programa</td>"
sHTML=sHTML & "<td align='Right'>Avance %</td></tr>"
sHTML=sHTML & "<tr>"
sHTML=sHTML & "<td>NORTE</td>"
sHTML=sHTML & "<td align='right'>3,818,958.8</td>"
sHTML=sHTML & "<td align='right'>6,502,449.9</td>"
sHTML=sHTML & "<td align='right'>58.7</td>"
sHTML=sHTML & "</tr>"
sHTML=sHTML & "</table>"
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oTS = oFS.OpenTextFile(archivo.txt, ForWriting, True)
oTS.Write sHTML
oTS.Close
oFS.Close

pero ahora me manda el error:

Microsoft VBScript runtime error '800a01a8'
Object required: 'archivo'
/DALFTAIPG/tabla_en_archivo.asp, line 25

Le falta algo?

Mickel · #7 (**permalink**) 30/05/2003, 22:21

Si. archivo.txt debe ir entre comillas en el opentextfile

gadget · #8 (**permalink**) 02/06/2003, 09:48

gracias Mickel pero ahora me aparece lo siguiente:

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/atw/tabla_en_archivo.asp, line 25

A qué se deberá?