formulario a un archivo en 'txt'

luqueagm · #1 (**permalink**) 18/06/2009, 13:44

Hola..soy nuevo

Mira. Tengo un codigo que estoy desarrollando pero no sé porque no me da una funcion de javascript el resultado que deberia dar. Se trata de enviar los valores de un formulario a un archivo en 'txt'. Lo voy a utilizar solo en un computador (no para internet) y en explorer. PEro en relacion al codigo en javascript no lo hace y no sé por qué. HE aqui el codigo:

----
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>prueba.xls</TITLE>
<META http-equiv=Content-Type content="text/html; charset=UTF-8">
<META content="Microsoft FrontPage 5.0" name=GENERATOR>
<STYLE type=text/css>.eebuttons {
WIDTH: 120px
}
.ee100 {
PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-WEIGHT: 400; FONT-SIZE: 10pt; VERTICAL-ALIGN: bottom; COLOR: windowtext; PADDING-TOP: 1px; FONT-STYLE: normal; FONT-FAMILY: Arial; TEXT-ALIGN: left
}
.ee103 {
PADDING-RIGHT: 1px; PADDING-LEFT: 0px; FONT-WEIGHT: 400; FONT-SIZE: 10pt; BACKGROUND: silver; VERTICAL-ALIGN: bottom; COLOR: windowtext; PADDING-TOP: 0px; FONT-STYLE: normal; FONT-FAMILY: Arial; TEXT-ALIGN: right
}
.ee105 {
FONT-WEIGHT: 400; FONT-SIZE: 10pt; BACKGROUND: silver; VERTICAL-ALIGN: bottom; COLOR: windowtext; FONT-STYLE: normal; FONT-FAMILY: Arial; TEXT-ALIGN: right
}
TEXTAREA {
OVERFLOW: auto
}
</STYLE>

<STYLE type=text/css media=screen>.eebuttonbar_top {
MARGIN-BOTTOM: 6px; PADDING-BOTTOM: 6px; BORDER-BOTTOM: blue 2px solid
}
.eebuttonbar_bottom {
BORDER-TOP: blue 2px solid; MARGIN-TOP: 6px; PADDING-TOP: 6px
}
.eetabs {
DISPLAY: block
}
</STYLE>

<STYLE type=text/css media=print>.eebuttonbar_top {
DISPLAY: none
}
.eebuttonbar_bottom {
DISPLAY: none
}
.eetabs {
DISPLAY: none
}
</STYLE>

<SCRIPT language=javascript>

var co = new Object;
function recalc_onclick(ctl) {
if (true) {

co.p1A2=eeparseFloat(document.formc.p1A2.value);co .p1B2=eeparseFloat(document.formc.p1B2.value);calc (co);document.formc.p1C2.value=eedisplayFloat(co.p 1C2);
};};

var eeisus=0;var eetrue="VERDADERO";var eefalse="FALSO";var eedec=",";var eeth=".";var eedecreg=new RegExp(",","g");var eethreg=new RegExp("[.]","g");

function calc(data){var c1A2=data.p1A2;var c1B2=data.p1B2;var c1C2=(((c1A2)+(c1B2)));data.p1C2=c1C2;};

function myIsNaN(x){return(isNaN(x)||(typeof x=='number'&&!isFinite(x)));};function eeparseFloat(str){str=String(str).replace(eedecreg ,".");var res=parseFloat(str);if(isNaN(res)){return 0;}else{return res;}};function eedisplayFloat(x){if(myIsNaN(x)){return Number.NaN;}else{return String(x).replace(/\./g,eedec);}};
</SCRIPT>

</HEAD>
<BODY onload=initial_update();document.formc.p1A2.focus( );>

<script language="javascript">
function Writedata()
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
var write_id;
write_id = document.formc.getElementById('write_id').value ;
alert('El archivo ha sido realizado \n' + write_id);
var s = fso.CreateTextFile(write_id, true);

s.WriteLine(document.formc.getElementById('p1A2'). value);
s.WriteLine(document.formc.getElementById('p1B2'). value);
s.WriteLine(document.formc.getElementById('p1C2'). value);
s.Close();
}
</script>


<FORM id=formc name=formc action="" method=post>
<DIV class=eebuttonbar_top>

</DIV>
<DIV id=panel1 style="DISPLAY: block">
<TABLE style="WIDTH: 180pt; BORDER-COLLAPSE: collapse" cellSpacing=0
cellPadding=0 bgColor=#ffffff border=0>
<COLGROUP>
<COL width=60>
<COL width=60>
<COL width=60>
<TBODY>
<TR style="HEIGHT: 13pt">
<TD class=ee100>  </TD>
<TD class=ee100>  </TD>
<TD class=ee100>  </TD></TR>
<TR style="HEIGHT: 13pt">
<TD class=ee103>
<INPUT class=ee105 id=p1A2
onblur="this.value=eedisplayFloat(eeparseFloat(thi s.value));recalc_onclick('p1A2')"
style="WIDTH: 100%" tabIndex=1 value=2 name=p1A2 size="20"> </TD>
<TD class=ee103>
<INPUT class=ee105 id=p1B2
onblur="this.value=eedisplayFloat(eeparseFloat(thi s.value));recalc_onclick('p1B2')"
style="WIDTH: 100%" tabIndex=2 value=2 name=p1B2 size="20"> </TD>
<TD class=ee103>
<INPUT class=ee105 id=p1C2
style="BORDER-RIGHT: #000000 0px solid; BORDER-TOP: #000000 0px solid; OVERFLOW: hidden; BORDER-LEFT: #000000 0px solid; WIDTH: 100%; BORDER-BOTTOM: #000000 0px solid"
tabIndex=-1 readOnly value=0 name=p1C2 size="20"> </TD></TR></TBODY></TABLE>
<P></P></DIV>
<DIV class=eebuttonbar_bottom><INPUT class=eebuttons onclick="recalc_onclick('')" type=button value=CALCULAR name=xl_update_bottom>
<INPUT class=eebuttons onclick="reset_onclick('')" type=button value=BORRAR name=xl_reset_bottom>
<INPUT class=eebuttons onclick=window.print(); type=button value=IMPRIMIR name=xl_print_bottom>

<b><input type="button" onclick="Writedata()" value="ARCHIVO TXT">
<input type="text" name="write" value="Computos.txt" id="write_id" size="20"><br/></b>

</DIV>

<SCRIPT language=javascript>
function reset_onclick(x){document.formc.reset();postcode() ;recalc_onclick('');};function postcode(){};function eequerystring(){var querystring=document.location.search;if(querystrin g.length>0){variables=(querystring.substring(1)).s plit("&");var variable;var key;var value;for(var ii=0;ii<variables.length;ii++){variable=variables[ii].split("=");key=unescape(variable[0]);value=unescape(variable[1]);if(document.formc[key]!=null){document.formc[key].value=value;}}}}function initial_update(){postcode('');eequerystring();reca lc_onclick('');}
</SCRIPT>
</FORM></BODY></HTML>

-----

Lo esencial del codigo que no funciona esta aqui:

</HEAD>
<BODY onload=initial_update();document.formc.p1A2.focus( );>

<script language="javascript">
function Writedata()
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
var write_id;
write_id = document.formc.getElementById('write_id').value ;
alert('El archivo ha sido realizado \n' + write_id);
var s = fso.CreateTextFile(write_id, true);

s.WriteLine(document.formc.getElementById('p1A2'). value);
s.WriteLine(document.formc.getElementById('p1B2'). value);
s.WriteLine(document.formc.getElementById('p1C2'). value);
s.Close();
}
</script>

...y en...

<b><input type="button" onclick="Writedata()" value="ARCHIVO TXT">
<input type="text" name="write" value="Computos.txt" id="write_id" size="20"><br/></b>

---------------

Agradezco su ayuda.

Luque

luqueagm · #2 (**permalink**) 23/06/2009, 14:44

Lo esencial del codigo que no funciona esta aqui:

</HEAD>
<BODY onload=initial_update();document.formc.p1A2.focus( );>

<script language="javascript">
function Writedata()
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
var write_id;
write_id = document.formc.getElementById('write_id').value ;
alert('El archivo ha sido realizado \n' + write_id);
var s = fso.CreateTextFile(write_id, true);

s.WriteLine(document.formc.getElementById('p1A2'). value);
s.WriteLine(document.formc.getElementById('p1B2'). value);
s.WriteLine(document.formc.getElementById('p1C2'). value);
s.Close();
}
</script>

...y en...

<b><input type="button" onclick="Writedata()" value="ARCHIVO TXT">
<input type="text" name="write" value="Computos.txt" id="write_id" size="20"><br/></b>

#3 (**permalink**) 23/06/2009, 14:49

¿Qué es lo que no funciona? ¿en qué paso falla? Puedes ir colocando llamadas a alert() en diferentes puntos del código y ver qué se está ejecutando y qué no.

Saludos.

luqueagm · #4 (**permalink**) 23/06/2009, 20:34

Lo esencial del codigo que no funciona esta aqui:

Es esta parte,....lo que quiero es recoger todos los campos en ID del formulario para poder enviarlo a un archivo 'txt' o 'xls' que se nombra en un campo. El problema que tengo es que no puedo hacer que funcione.
Al probar con vbscript tampoco puedo hacer que funcione el vbscript. algo debo estar haciendo mal. Lo he probado en distintas areas para poder ver si es la posicion, pero ya no me queda mas que preguntar.
EL codigo que ya mande es una sintesis de un formulario mucho mayor, pero solo con 3 campos a tomar, por lo que me interesa tomar todos los ID, ya que sonm muchos mas. Pero necesito saber que estoy haciendo mal, ya que no puedo saber como hacer para que me funcione este script:

</HEAD>
<BODY onload=initial_update();document.formc.p1A2.focus( );>

<script language="javascript">
function Writedata()
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
var write_id;
write_id = document.formc.getElementById('write_id').value ;
alert('El archivo ha sido realizado \n' + write_id);
var s = fso.CreateTextFile(write_id, true);

s.WriteLine(document.formc.getElementById('p1A2'). value);
s.WriteLine(document.formc.getElementById('p1B2'). value);
s.WriteLine(document.formc.getElementById('p1C2'). value);
s.Close();
}
</script>

...y en...

<b><input type="button" onclick="Writedata()" value="ARCHIVO TXT">
<input type="text" name="write" value="Computos.txt" id="write_id" size="20"><br/></b>

Te agradezco tu atencion
NOta: en este archivo no mando vbscript
Luque

#5 (**permalink**) 23/06/2009, 21:48

Muy bien, pero en realidad no dices mucho más que antes. ¿el archivo llega a crearse?
¿has revisado bien la documentación de ese control ActiveX?

luqueagm · #6 (**permalink**) 24/06/2009, 13:59

Si.
Mira. EL archivo no se llega a crear al desarrollarlo en este codigo, pero al probarlo en otro archivo si funciona, y se crea el archivo. De hecho en el archivo que crea en el otro codigo, hay que permitir el activex, pero para este ni siquiera crea el archivo y solo refleja un error. No sé si estaré ingresando mal la informacion o será algun problema con getElementById.
La verdad que ya le he dado tantas vueltas, que mira, de todas formas mi interes es poder extraer los valores de los campos del formulario, lo mas automatico posible para poder llevarlo a un txt y tambien a un archivo en excel (eso bastaria con tabulaciones). Como te indico para el otro archivo lo hace sin ningun problema pero al insertarlo en este codigo html ni siquiera hace el archivo. Pero lo que me interesa, mas alla de codigo es llevar los campos a un txt o xls, mediante javascript y/o vbscript, pero ninguno de los 2 me resulta al aplicarlo en este formato de html. Y pongo de ejemplo este formato ya que el real archivo es mucho mas largo, el formulario tiene muchos campos y sería solo confudir. Por eso me arme esta muestra pequeña para poder probarlo aqui. Si copias y pegas el codigo, veras que es un html con 3 valores y 4 botones. Con los 3 primeros botones todo ok. PEro el que lleva a txt, no me da ningun archivo y estoy parado con eso.
Gracias
Luque

luqueagm · #7 (**permalink**) 24/06/2009, 14:07

Si quieres te puedo mandar una imagen y un archivo tambien con vbscript. Estuve buscando la forma de subir una imagen y el html pero no encontre la forma

Luque

#8 (**permalink**) 24/06/2009, 14:19

Bien, si el código te funciona en otra página pero no cuando lo pegas en la que tienes ahora, es claro que no es el código el problema...
Quizás haya más código JS en la página, y por errores de ese otro código el IE interrumpe la ejecución de JS.

Prueba quitando cualquier otro código javascript de la página.

Saludos.

luqueagm · #9 (**permalink**) 24/06/2009, 16:06

Hice lo que me dijiste.
Saqué las otras partes de codijo en javascript y dejé el codigo que expongo. Pero para cada una de las opciones que hice, por parte o todo sigue igual. No lo ejecuta.

Luque

#10 (**permalink**) 24/06/2009, 21:24

Adjunta por aquí el código completo de la página que tienes ahora, que creo que es hora de que lo compruebe yo mismo

luqueagm · #11 (**permalink**) 25/06/2009, 13:46

Hola

El codigo es el que esta ahi arriba, en el post. Es copiar y pegar.

El otro codigo es muy largo y esta enlazado con varias cosas por lo que no puedo postearlo. Pero el ejemplo de cosigo expuesto tiene la misma estructura y elementos: campos, clases, javascript, etc, por lo que ver esto es lo mismo que lo otro pero como una maqueta

#12 (**permalink**) 25/06/2009, 14:25

No es suficiente, lo que incluyes arriba no tiene los campos del formulario

La única forma de probarlo es verlo en su totalidad. Si te preocupa que otros vean el código con el que tienes problema, no se te podrá ayudar.

En última instancia supongo que podrías publicar el código en algún lugar y enviarme un privado con la URL. Entonces yo lo vería y publicaría la solución con la menor cantidad de código posible.

Saludos.

luqueagm · #13 (**permalink**) 25/06/2009, 17:09

no me dejan subir archivos...asi que aqui van: cada espacio un punto (.)
Aqui van:
w filedropper com /4ch
w s3 subirimagenes com:81/privadas/previo/thump_531496ejemo.gif

Luque

#14 (**permalink**) 28/06/2009, 17:30

Con IE7:
Me muestra un error en la línea 86, que corresponde a

Código javascript:

Ver originalvar fso = new ActiveXObject("Scripting.FileSystemObject");

El error es "El servidor de Automatización no puede crear el objeto", es un problema de seguridad. Lo que hice fue hacer que la página se corra en la zona de "Intranet local", y bajarle los niveles de seguridad a esa zona.
Luego obtuve un error en la línea 88:

Código javascript:

Ver originalwrite_id = document.formc.getElementById('write_id').value;

debería ser

Código javascript:

Ver originalwrite_id = document.getElementById('write_id').value;

tienes el mismo error en las líneas 95, 96 y 97 (los WriteLine).

Saludos.

luqueagm · #15 (**permalink**) 30/06/2009, 14:35

ok...voy a corregirlo, a probarlo y te cuento.

Gracias

Luque

luqueagm · #16 (**permalink**) 30/06/2009, 18:43

ok...
excelente.

funciona muy bien.
Felicitaciones.

Lo habia probado antes sin el nombre del formulario, pero no me habia funcionado. Y de 20 mil formas mas.
Bueno. Ahora tengo que aplicar el codigo a no se cuantos campos en formulario tras formulario. Lo hago en excel para poder hacerlo mas rapido... ¿sabras de algun software que permita validar los campos? (En realidad me interesa procesar los id de forma rapida solamente....por ahi tengo un script que no es mio pero que aqui en el foro vi que no es muy apto ya que no es muy confiable). Yo se del formbreeze pero no alcanzo a ver una demostracion tacita de ese software. Lo probe pero me arroja solo codigo.

Y otra consulta, ¿que niovel de confianza ves al procedimiento hecho?. ES decir, podrá llegar a fallar en algun instante para recoger una centenera de campos?.

Gracias nuevamente.
Y mucho
Luque

#17 (**permalink**) 01/07/2009, 13:28

No le veo problema alguno, pero creo que si vas a usar cientos de campos lo mejor es utilizar un bucle que los recorra.
Sea cual sea la forma en la que generes los campos, te sugiero usar nombres secuenciales para ellos (campo1, campo2, ..., campoN).

Así luego podrías recorrerlos en un for:

Código javascript:

Ver originalvar cant_campos = X;
var i;
 
for (i = 0; i < X; i++) {
    valor_campo = document.getElementById("campo" + i).value;
}

Ya dentro del for podrías, por ejemplo, llamar a WriteLine y escribir en el archivo.

Saludos.

luqueagm · #18 (**permalink**) 01/07/2009, 17:58

Ok.

Mira he tratado de hacer lo que dices pero me encuentro con un problema: todos los id comienzan con P1, pero despues difieren. Y desde el p1C14 al p1C22 son 'option value'. , pero decidi tambien probarlo uno por uno, (te anexo el adjunto). Lo he probado en forma 'uno por uno' hasta unos 15 ID y funciona muy bien. Pero para los 150 me crea el archivo pero vacio.

(espacio son puntos)
www filedropper com/variosid

¿De que forma deberia tratarse el FOR para ese tipo de situacion?

Gracias

Luque

luqueagm · #19 (**permalink**) 01/07/2009, 19:13

ah una cosa mas.
con los option, aplica "undefined", al testearlo con 20 IDs
Estoy aplicando:
+document.getElementById('id=p1G26').options.selec ted

luqueagm · #20 (**permalink**) 01/07/2009, 19:31

Disculpa. FE DE ERRATAS....Por eso no me salia...cometi un error grosero en el batcheo... habia colocado id= dentro del texto identificador.....y al modificarlo me resulta, haciendolo uno por uno. EL unico problema es que me sigue colocando 'undefined' para el option....pero aparece el archivo con los valores...
Te subo de nuevo el codigo.....www filedropper com/undefined (espacios son puntos)
Y a ver si me indicas como se deberia aplicar el FOR para la secuencia matricial que tengo y que comienza con P1.

#21 (**permalink**) 01/07/2009, 19:57

Si no tienes una secuencia que puedas recorrer fácilmente, lo mejor es que te crees un vector con los ID que tengas, y luego recorras ese vector

Código javascript:

Ver originalids = { "P1C14", ..., "P1C22" };
for (i = 0; i < ids.length; i++) { ...

Y para la lista desplegable, lo único que tienes que hacer es preguntar por el valor de la lista misma. Es decir, si lo que tienes es

Código html:

Ver original<select id="lista">

Podés obtener el valor con

Código javascript:

Ver originaldocument.getElementById("lista").value

Saludos.

luqueagm · #22 (**permalink**) 01/07/2009, 20:15

ah ok....

voy a probar con los IDs del FOR
en lo otro....ya llegue a la opcion con:
+document.getElementById('p1C21').options[document.getElementById('p1C21').selectedIndex].text
pero es mejor lo que explicas...

para cada option....
Lo estoy aplicando con text...y no con value...
Lo unico...tengo una duda: al accionar el boton para enviar el archivo a excel, me da error, es decir, tengo que volver a cargar el archivo para poder volver a tener la opcion de enviar al excel la informacion y eso me hace perder la informacion que tengo en los campos, ¿por que pasará?...sucede solo al haber negado la opcion de poder llevar el archivo (es decir, para cuando uno se acuerda a ultima hora de llenar un campo)

luqueagm · #23 (**permalink**) 01/07/2009, 21:13

Ah...una cosa.
Por ahi mencionaste que es necesario dejar una carpeta en forma de 'privado' o 'red local',de manera de poder deshabilitar las opciones de seguridad o dejarlas a l minimo....eso como se puede lograr con codigo o fisicamente?

Gracias

Luque

#24 (**permalink**) 01/07/2009, 22:09

Cita:

Iniciado por luqueagm

al accionar el boton para enviar el archivo a excel, me da error, es decir, tengo que volver a cargar el archivo para poder volver a tener la opcion de enviar al excel la informacion y eso me hace perder la informacion que tengo en los campos, ¿por que pasará?...sucede solo al haber negado la opcion de poder llevar el archivo (es decir, para cuando uno se acuerda a ultima hora de llenar un campo)

En principio no se me ocurre nada... ¿quizás sea por la forma en que funciona el control ActiveX?

Cita:

Iniciado por luqueagm

Ah...una cosa.
Por ahi mencionaste que es necesario dejar una carpeta en forma de 'privado' o 'red local',de manera de poder deshabilitar las opciones de seguridad o dejarlas a l minimo....eso como se puede lograr con codigo o fisicamente?

No, lo que quería decir es que logré que funcionara haciendo que el IE considerara a la página como en zona de "red local".
El objetivo de hacer esto es poder bajar el nivel de seguridad para que el programa pueda crear el archivo, sin tocar la configuración de la "zona de internet". Bajar los niveles de seguridad para la zona de internet te puede dejar expuesto a bastantes problemas.

No es algo que puedas hacer con código, tendrás que ubicar la página en un servidor apropiado y luego agregar ese servidor a la zona de red local. Una mejor solución sería intentar descubrir qué configuración es la que le da permiso para crear rchivos, y activar solamente esa configuración específica, pero como no uso IE regularmente no sé qué opción será.

Saludos.

luqueagm · #25 (**permalink**) 08/07/2009, 16:11

Hola

Gracias. He podido salir adelante con lo que me has indicado. Solo una consulta mas.
Al enviar un archivo a texto, me sale el tipico aviso que me indica que 'Un control activex de esta pagina podria no ser seguro al interactuar con otras partes de la pagina. ¿Desea permitir esta accion" y el consiguiente si o no.
¿Como se puede evitar por codigo que se acepte?
Yo se para poder interactuar con modo oculto para no desplegar con la instruccion:
Application.DisplayAlerts = FALSE
Y tambien para un recuadro de excel.
.CLOSE savechanges=False

¿Como es para este caso?
¿sirve alguna instruccion tipo: propiedad InvisibleAtRuntime = FALSE ?

gracias

Luque

#26 (**permalink**) 09/07/2009, 08:10

Ya de eso no tengo idea, pero el instinto me dice que no se puede.

Imagínate que si la advertencia está justamente para que no se ejecuten controles a menos que el usuario así lo quiera, permitir que se deshabilite a través de código en la página la hace absolutamente inútil: cualquier control que se quiera instalar sin autorización simplemente deshabilitaría la alerta

Seguramente se pueda quitar bajando los niveles de seguridad del Internet Explorer, pero dudo que se pueda hacer en el código de la página.

Saludos.