Response.Write

virla · #1 (**permalink**) 22/04/2004, 13:43

Alguno sabe de algun componente que genere automaticamente el Response.Write de un codigo?
espero que me den una mano con esto y el otro mensaje que deje

buliwyf · #2 (**permalink**) 22/04/2004, 13:50

no entiendotu pregunta, podrias explicarte mejor?

meru-kun · #3 (**permalink**) 22/04/2004, 14:40

<%= "loque quieras"%>

Con eso, es como si pones
<% response.write "loque quieras"%>

Por si te sriver...

AlZuwaga · #4 (**permalink**) 22/04/2004, 14:50

Creo que se refiere a algo como esto: Ver código fuente de un archivo

virla · #5 (**permalink**) 22/04/2004, 17:57

lo que yo necesito es que el codigo de una pagina con cuadros y lo que sea me lo convierta en algo asi:

Response.Write "<H3>Código fuente de "&nombrefichero&"</H3>"
Response.Write "<pre>" & VbCrLf
Response.Write("<FONT SIZE=""2"">")

espero que sea claro, el tema es que cuando el codigo es un poco largo se hace engorroso hacerlo ademas de que como no entiendo bien este tema me gustaria en algun programita o modulo que me lo convierta automaticamente
gracias

AlZuwaga · #6 (**permalink**) 23/04/2004, 11:11

Sr. virla (por lo del cambio de género que te hicieron ayer

), cada vez te entiendo menos

A ver si esto que estoy pensando es lo correcto:

Decís que tenés un archivo que contiene...

Código:

<html>
<body>
<table><tr><td>hola</td></tr></table>
</body>
</hmlt>

Y lo querés transformar en...

Código:

Response.Write "<html>" & VBCrLf
Response.Write "<body>" & VBCrLf
Response.Write "<table><tr><td>hola</td></tr></table>" & VBCrLf
Response.Write "</body>" & VBCrLf
Response.Write "</hmlt>

...? es así?

virla · #7 (**permalink**) 23/04/2004, 13:20

Asi es mi querido compañeo dazuaga, usted esta en lo correcto :)

AlZuwaga · #8 (**permalink**) 23/04/2004, 14:21

Ok, entonces te paso un pequeño script que acabo de escribir.
Priemro te digo como funciona:

1- El archivo se tiene que llamar "html2asp.asp" (si le modificás el nombre, modificá también el código porque hace referencia a él mismo)

2- Colocás el archivo en una carpeta de tu sitio:
2.1- Si el archivo HTML al que le querés hacerle un response.write de cada una de sus líneas está en la misma carpeta que el archivo "html2asp.asp", directamente ejecutás éste último (http://misitio/carpeta1/html2asp.asp) y luego clickeás sobre el archivo en cuestión.
2.2- Si el archivo a "responsewritear" está una carpeta por encima del "html2asp.asp" (digamos, una carpeta llamada "carpeta2"), lo llamás así:
http://misitio/carpeta1/html2asp.asp...2/ejemplo.html
2.3- En el caso que esté una carpeta por debajo, lo llamás así: http://misitio/carpeta1/html2asp.asp..../ejemplo.html

4- Finalmente copiá la salida y pegala en tu editor ASP favorito.

Acá va el código de html2asp.asp:

<%
file = Request("file")
If file = "" then

Ruta = Server.MapPath(".")

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Ruta)
Set Archivos = Carpeta.Files

for each archivo in Archivos
Response.Write "<a href='html2asp.asp?file=" & archivo.Name & "'>" & archivo.Name & "</a><br>"
next

Set Archivos = Nothing
Set Carpeta = Nothing
Set FSO = Nothing

Else

file = Server.MapPath(file)
'on error resume next

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Archivo = FSO.OpenTextFile(file, 1)
Contenido = Archivo.ReadAll
Contenido = Replace(Contenido, "<", "<")
Contenido = Replace(Contenido, ">", ">")
Contenido = Replace(Contenido, " ", "&_nbsp;")
Contenido = Replace(Contenido, CHR(34), CHR(34) & " & CHR(34) & " & CHR(34))

arrContenido = Split(Contenido, VBCrLf)

Response.Write("<code>")
For i = 0 To UBound(arrContenido)
If Len(arrContenido(i)) = 0 Then
Response.Write "Response.Write VBCrLf" & "<br>"
Else
Response.Write "Response.Write " & CHR(34) & arrContenido(i) & CHR(34) & "<br>"
End if
Next
Response.Write("</code>")

Set Archivo = Nothing
Set FSO = Nothing

End if
%>

Saludos

PD: Donde dice &_nbsp;, quitale el guión bajo entre "&" y "n"

AlZuwaga · #9 (**permalink**) 23/04/2004, 14:27

Me olvidaba.. el archivo que se le pase por parámetro no debe tener ningún código ASP.

virla · #10 (**permalink**) 23/04/2004, 17:51

muy bueno lo tuyo, pero la idea mia era me parece algo mas facil,
copiar el texto a cambiar en una textbox y al presionar el boton lo cambie al otro formato para ser utilizado, pero de cualquier manera esta muy buena tu idea

este es el que hice de prueba, es correcto como lo saco?
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title>Formulario& nbsp;de& nbsp;envío& nbsp;de& nbsp;ficheros</title>"
Response.Write "</head>"
Response.Write "<body>"
Response.Write "<h3>xelUpload:& nbsp;prueba</h3>"
Response.Write "<p>Introduce& nbsp;un& nbsp;texto& nbsp;y& nbsp;elige& nbsp;un& nbsp;fichero& nbsp;para& nbsp;subir.</p>"
Response.Write "<form& nbsp;action=" & CHR(34) & "uptest.asp" & CHR(34) & "& nbsp;method=" & CHR(34) & "post" & CHR(34) & "& nbsp;enctype=" & CHR(34) & "multipart/form-data" & CHR(34) & ">"
Response.Write "Nombre& nbsp;<input& nbsp;type=" & CHR(34) & "text" & CHR(34) & "& nbsp;name=" & CHR(34) & "nombre" & CHR(34) & "& nbsp;size=" & CHR(34) & "20" & CHR(34) & ">& nbsp;<br>"
Response.Write "<input& nbsp;type=" & CHR(34) & "file" & CHR(34) & "& nbsp;name=" & CHR(34) & "fichero" & CHR(34) & "& nbsp;size=" & CHR(34) & "20" & CHR(34) & "><br>"
Response.Write VBCrLf
Response.Write "<input& nbsp;type=" & CHR(34) & "submit" & CHR(34) & ">"
Response.Write "</form>"
Response.Write "</body>"
Response.Write "</html>"

AlZuwaga · #11 (**permalink**) 23/04/2004, 18:40

Cita:

copiar el texto a cambiar en una textbox y al presionar el boton lo cambie al otro formato para ser utilizado

Si, eso lo pensé luego de terminar de escribir el código anterior

(porque, claro, no siempre uno tiene la posibilidad de tener el archivo en el mismo servidor donde está corriendo el ASP que transforma el contenido a responseS.writeS o simplemente es un código que uno copió de, por ejemplo, internet, etc)

Pero bueno, la idea es esa. En vez de usar FSO, ponés Contenido = Request("contenido") y listo (creo lo estás haciendo de manera similar actualmente).

Sólo una cosa que veo ahora en el ejemplo que usaste: Yo eliminaría la parte de Contenido = Replace(Contenido, " ", "&_nbsp;") (pasa que yo usé un HTML que casi no tenía espacios y veo que hacer ese reemplazo queda medio choto

)

Ahora, estaría bueno hacer una transformación con código ASP en el archivo a transformar. O sea, que algo como esto:

Código:

<html>
<title><% = "ejemplo" %></title>
<body>
hola<br>
<% if a=1 then b = 0 %>
</body>
</html>

se transforme en...

Código:

Response.Write "<html>"
Response.Write "<title>" & "ejemplo" & "</title>"
Response.Write "<body>"
Response.Write "hola<br>"
if a=1 then b = 0
Response.Write "</body>"
Response.Write "</html>"

... pero eso será para otro momento que esté medio al pedo y tenga ganas de pensar un rato (o hasta que mi jefe me diga "quiero que lo tengas listo para ayer"

)

virla · #12 (**permalink**) 23/04/2004, 18:46

ok, pero cuando lo tengas avisame porque me sirve y mucho
gracias dazuaga