Dibujar una tabla mediante FUNCTION

corvin · #1 (**permalink**) 04/12/2007, 15:22

Hola, alguien me puede ayudar, resulta que en la universidad me pidieron que dibuje una tabla de un formulario solamente con funciones delcaradas antes...
Mi tabla es así:

Código HTML:

<table width="43%" border="1" align="center">
  <tr>
    <td width="20%">Rut</td>
    <td width="80%">&nbsp;</td>
  </tr>
  <tr>
    <td>Nombre</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>Direccion</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>Ciudad</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>Tel&eacute;fono</td>
    <td>&nbsp;</td>
  </tr>
</table>

Lo que quiero es lo mismo, pero solamente hecho con funciones..

Ojala alguien me pueda ayudar...

....de antemano muchas gracias y saludos!!!!

JuanRAPerez · #2 (**permalink**) 04/12/2007, 16:11

antes que nada tu sabes algo de ASP
o has hecho el intento de desarrollarlo ya?

-- --

u_goldman · #3 (**permalink**) 04/12/2007, 16:11

Muy bien ¿Qué es lo que llevas hecho? si nos dices en que te está fallando con gusto te orientamos, si nos dices que te hagamos la tarea, la cosa cambia

Saludos

corvin · #4 (**permalink**) 04/12/2007, 17:02

Miren, tengo hechos los campos a llenar, ASP no se nada, solo lo de 2 clases, lo que si se es PHP...

Esto es lo que llevo

Código HTML:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<html>
<head>
<title>Documento sin t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
  function CrearInput(tipo,nombre,valor)
    dim crear
	if(tipo="select")then
	  crear="<select name='"& nombre &"'><option>" & valor &"</option></select>"
	else  
	  crear="<input type='"& tipo &"' name='" & nombre &"' value='" & valor & "'>"
	end if  
	CrearInput=crear
  end function 
  response.write(CrearInput("text","Rut","14.333.363-9"))
%>
<form name="form1" method="post" action="">
  <table width="43%" border="1" align="center">
    <tr>
      <td width="20%">Rut</td>
      <td width="80%">
	  <% i=0
	    response.write(CrearInput("text","nota" & i,"14.333.363-9"))%></td>
    </tr>
    <tr>
      <td>Nombre</td>
      <td><% i=1 
	        response.write(CrearInput("text","Nota" & i,"14.333.363-9"))%></td>
    </tr>
    <tr>
      <td>Direccion</td>
      <td><%i=2 
	        response.write(CrearInput("text","nota" & i,"14.333.363-9"))%></td>
    </tr>
    <tr>
      <td>Ciudad</td>
      <td><% 
	        response.write(CrearInput("select","Rut","14.333.363-9"))%>
        </td>
    </tr>
    <tr>
      <td>Tel&eacute;fono</td>
      <td><%i=3 
	        response.write(CrearInput("text","Rut","14.333.363-9"))%></td>
    </tr>
  </table>
</form>
</body>
</html>

No se me ocurre como podria dibujar una tabla para ese formulario llamando solo funciones... porque si se fijan los campos estan dentro de una tabla, pero, me piden que la tabla sea hecha con funciones... Se puede???

u_goldman · #5 (**permalink**) 04/12/2007, 17:20

Es lo mismo que tu funcion de crear input, basicamente necesitas un ciclo for, yo haria una subrutina y no una funcion pues en teoria solo escribe codigo, no regresa un valor:

Código:

Sub CrearTabla(filas, columnas)
   Response.Write("<table>")
   for i = 1 to filas
        Response.Write("<tr>")
        for j = 1 to columnas
            Response.Write("<td></td>")
        next
        Response.Write("</tr>")
   next
   Response.Write("</table>")
End Sub

Ahi esta la idea, ahora, dentro de esa misma sub, puedes llamar a tu funcion para escribir los campos necesarios y quizas necesites otra para textos.

Saludos

corvin · #6 (**permalink**) 04/12/2007, 18:04

Cita:

Iniciado por u_goldman

Es lo mismo que tu funcion de crear input, basicamente necesitas un ciclo for, yo haria una subrutina y no una funcion pues en teoria solo escribe codigo, no regresa un valor:

Código:

Sub CrearTabla(filas, columnas)
   Response.Write("<table>")
   for i = 1 to filas
        Response.Write("<tr>")
        for j = 1 to columnas
            Response.Write("<td></td>")
        next
        Response.Write("</tr>")
   next
   Response.Write("</table>")
End Sub

Ahi esta la idea, ahora, dentro de esa misma sub, puedes llamar a tu funcion para escribir los campos necesarios y quizas necesites otra para textos.

Saludos

Muchisimas gracias!!! no le he provado pero trabajaré con el codigo que me diste... Muchas gracias de nuevo... SALUDOS!!!!!

u_goldman · #7 (**permalink**) 04/12/2007, 19:08

Por nah