Cita de: MCKSys Argentina en 29 Marzo 2015, 23:25 PMEn ese caso como debería hacerlo porque igualmente solo quiero agregar los datos de las variables en formato tabla_
Si abres como Append, siempre se agregarán al final del archivo.
La solución es que cargues todo el HTML, agregues lo que quieres agregar y luego sobreescribas todo el file.
Saludos!
- Bienvenido a Test Foro de elhacker.net SMF 2.1.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
#1
Programación Visual Basic / Re: Ayuda para insertar texto en un punto especifico de html
29 Marzo 2015, 23:34 PM #2
Programación Visual Basic / Ayuda para insertar texto en un punto especifico de html
29 Marzo 2015, 23:19 PM
Estoy intentando generar una especie de bitacora utilizando VB6.0 y html;
la idea es tomar variables o valores de textbox y organizarlos en una tabla dentro del html, ya logre enviar los datos al html pero no los coloca en el lugar que necesito si no que los agrega al final adjunto codigo de vb (lo saque de google)
y necesito ir formado la tabla en este documento (aqui he retirado algunos scrips que utilizo para dejar practicamente solo la tabla)
Agradezco cualquier ayuda que me puedan brindar Pd. por las funciones del programa al que deseo añadir esta funcion solo puedo programarlo en VB6.0
la idea es tomar variables o valores de textbox y organizarlos en una tabla dentro del html, ya logre enviar los datos al html pero no los coloca en el lugar que necesito si no que los agrega al final adjunto codigo de vb (lo saque de google)
Código [Seleccionar]
Private Sub Form_Load()
Dim Linea As String, AuxAgregar As String
End Sub
Private Sub Command1_Click()
Open "C:\prueba.html" For Input As #1
Do While Not EOF(1)
Line Input #1, Linea 'Te Recoge línea por línea
If InStr(1, Linea, "</tr>") Then AuxAgregar = Linea 'Al final se quedará con la última línea que contenga "</tr>"
Loop
Close #1
Open "C:\prueba.html" For Append As #1 'Usamos Append para que lo añada al documento
Print #1, crlf & "<tr> <td>" & Text1.Text & "</td>" & crlf & "<td>" & Text2.Text & "</td></tr>"
Close #1
End Suby necesito ir formado la tabla en este documento (aqui he retirado algunos scrips que utilizo para dejar practicamente solo la tabla)
Código [Seleccionar]
<html>
<head>
<title>base de datos</title>
</head>
<body>
<tr>
<td>Celda 1</td>
<td>Celda 2</td>
<td>Celda 3</td>
</tr>
<tr>
<td>Celda 4</td>
<td>Celda 5</td>
<td>Celda 6</td>
</tr>
>>>>>>>>Aqui deberia agregarse el texto<<<<<<<<<<<<
</table>
</body>
</html>Agradezco cualquier ayuda que me puedan brindar Pd. por las funciones del programa al que deseo añadir esta funcion solo puedo programarlo en VB6.0
#3
Scripting / Re: Acciones sobre archivos de texto. [Batch]
29 Marzo 2015, 23:04 PM
Yo tengo una duda sobre algo que he intentado hacer con VB6.0 y nada mas no he podido sera que lo podre hacer con un batch?, la idea es agregar datos entre la ultima etiqueta "</tr>"y la etiqueta "</table>"a fin de ir armandome una tabla con datos de una variable
Código (html4strict) [Seleccionar]
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Tabla de registro</title>
</head>
<body>
<td>Celda 1</td>
<td>Celda 2</td>
<td>Celda 3</td>
</tr>
<tr>
<td>Celda 4</td>
<td>Celda 5</td>
<td>Celda 6</td>
</tr>
</table>
</body>
</html>
#4
Programación Visual Basic / [AYUDA]Optimizacion Sistema de monitoreo VB6.0 Utilkizando DDE con RSLINXS
28 Septiembre 2014, 20:36 PM
Antes que nada gracias por timarse la molestia de pasar por este tema espero que allguien pueda ayudarme con mi problema, hace un par de meses hice una conssulta soble la isualizacion de un programa a pantalla completa y con la ayuda de ustedes consegui el resultado que deseaba pero hoy dandole continuidad a ese mismo proyecto me he topado con un el problema que este tarda demasiado en ejecutar un ciclo de actualizacion, he colocado un reloj para poder visualizar la hora del sistema dentro de mi formulario pero a la hora de actualizarse da saltos de hasta 4 seg, ademas de darme algunas veces el problema de no poder cerrar el formulario con el boton salir que he colocado, la duda seria como puedo optimizar el funcionameinto de este sistema de monitore, he pensado utilizar un formulario 2 y en el hacer el llamamiento a las DDE pero no estoy seguro si puedo ejecutar mas de un timer en Vb 6.0 ya que intente correr dos timers independientes en un mismo form y no funciono por su ayuda de antemano gracias
#5
Programación Visual Basic / Re: Ayuda con resolución de formulario en VB 6.0
20 Julio 2014, 20:00 PM
si amigo busque pero unicamente encontre respuestas para visual 2010 y no se si se aplicaria igual a vb6.0
#6
Programación Visual Basic / Ayuda con resolución de formulario en VB 6.0
17 Julio 2014, 07:27 AM
muy buen dia amigos , creo este tema para consultar y de paso pedir ayuda para lograr lo siguiente:
resulta que estoy desarrollando un programa para monitorear el estado de una maquina controlada por un plc, utilizando las DDE de RSLINX, bueno el punto es que con ayuda de un compañero logramos hacerlo funcionar en tiempo real, pero a la hora del diseño del formulario este tiene un tamaño pequeño y al maximizarse lo hace únicamente la ventana en si pero no su contenido que incluye varios textbox, labels y una imagen de fondo.
ahora la pregunta es como puedo hacer que este formulario se expanda en pantalla completa sin importar la resolucion del monitor junto con todo su contenido es decir una especie de escalado a pantalla completa?
por su ayuda les agradezco desde ahora
ademas les dejo el codigo con el cual comunicamos es bastante simple y aun con algunos bugs menores pero antes de revisar eso me interesa el poder utilizarlo en una pantalla grande.
resulta que estoy desarrollando un programa para monitorear el estado de una maquina controlada por un plc, utilizando las DDE de RSLINX, bueno el punto es que con ayuda de un compañero logramos hacerlo funcionar en tiempo real, pero a la hora del diseño del formulario este tiene un tamaño pequeño y al maximizarse lo hace únicamente la ventana en si pero no su contenido que incluye varios textbox, labels y una imagen de fondo.
ahora la pregunta es como puedo hacer que este formulario se expanda en pantalla completa sin importar la resolucion del monitor junto con todo su contenido es decir una especie de escalado a pantalla completa?
por su ayuda les agradezco desde ahora
ademas les dejo el codigo con el cual comunicamos es bastante simple y aun con algunos bugs menores pero antes de revisar eso me interesa el poder utilizarlo en una pantalla grande.
Código [Seleccionar]
Private Sub Form_Load()
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Timer1_Timer()
'VELOCIDAD
Text1.LinkTopic = "RSLINX|650V19"
Text1.LinkItem = "N7:140,L1,C1"
Text1.LinkMode = 1
Text1 = (Val(Text1) * 600) / 3686
Text1 = Round(Text1, 0)
'CLIPS
Text2.LinkTopic = "RSLINX|650V19"
Text2.LinkItem = "N7:50,L1,C1"
Text2.LinkMode = 1
'
'DECLARAR G4
Text11.LinkTopic = "RSLINX|650V19"
Text11.LinkItem = "N80:27,L1,C1"
Text11.LinkMode = 1
'DECLARAR VARIABLES DE G7
'H4
Text12.LinkTopic = "RSLINX|650V19"
Text12.LinkItem = "N7:20,L1,C1"
Text12.LinkMode = 1
'H6
Text13.LinkTopic = "RSLINX|650V19"
Text13.LinkItem = "N7:22,L1,C1"
Text13.LinkMode = 1
'H5
Text14.LinkTopic = "RSLINX|650V19"
Text14.LinkItem = "N7:21,L1,C1"
Text14.LinkMode = 1
'DECLARAR G7
Text15 = (Val(Text12) * Val(Text13))
Text15 = Val(Text14) / Val(Text15) * 1000
'OPERAR OEE
Text3 = Text15
Text3 = Text2 / Text15
Text3 = Text3 / Text11 * 100
Text3 = Round(Text3, 1)
'DECLARAR TIEMPO TOTAL
Text4.LinkTopic = "RSLINX|650V19"
Text4.LinkItem = "N7:150,L1,C1"
Text4.LinkMode = 1
'DECLARAR TIEMPO PARCIAL
Text5.LinkTopic = "RSLINX|650V19"
Text5.LinkItem = "N7:151,L1,C1"
Text5.LinkMode = 1
Text5 = Val(Text5) / 10
'FORMULA PARA LOG OBJETIVOS
Text7 = Text15 * 720
Text7 = Round(Text7, 0)
If (Text12 = 300) Then
Text6 = " EXP"
Text8 = 300
Else
End If
If (Text12 = 400) Then
Text6 = "NAT"
Text8 = 400
Else
End If
If (Text12 = 450) Then
Text6 = "KLE"
Text8 = 325
Else
End If
If (Text12 = 1000) Then
Text6 = "SCT"
Text8 = 636
Else
End If
If (Text12 = 1001) Then
Text6 = "REG 1000"
Text8 = 550
Else
End If
If (Text12 = 1002) Then
Text6 = "NATL 1000"
Text8 = 500
Else
End If
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
0 Timer1.Enabled = True
Timer2.Enabled = False
End Sub
#7
Hardware / Re: mi pantalla pone sin señal
1 Junio 2014, 05:40 AM
Si eso te aha ocurrido despues de un corte luz tambien seria bueno que revises tu fuente de alimentacion con un multimetro ya que esta por lo general es la primera en recibir los daños a causa de sobre tensiones.
#8
Noticias / Re: Víctima de las redes sociales: una estudiante se suicida tras aparecer en un...
25 Mayo 2014, 23:31 PM
Igual quien critica a alguien por algo asi quien sabe que cosas peores hacen en privado y despues juegan a la doble moral
#9
Hardware / Re: [Ayuda] Sony Vaio
24 Mayo 2014, 01:55 AM
amigo en el caso de las sony vaio led cuando por un mal movimiento golpe, etc se daña el flex muchas veces es un cortocircuito entre la linea de alimentacion de los LEDS de la pantalla en este caso te recomiendo que revises si tu flex esta en buenas condiciones fisica(sin partes descubiertas en donde se enrrolla a la bisagra, una especie de quemadura tambien es esta area, etc) de ser asi reemplazalo , si aun asoi no funciona en la plavca madre generalmente muy cerca del conector del flex hay un fusible que destaca por su tamaño superior al de los demas elementos con tu equipo apagado y sin bateria mide continuida entre sus extremos con un multimetro si el no mide continuidad esta quemado y debes sustituirlo; si no encuentras uno puedes puentiarlo con un alambre fino pero muy fino y lu retroiliminacion deberia volvercualquier duda no dudes en preguntar 
#10
Dispositivos Móviles (PDA's, Smartphones, Tablets) / Re: Usb protgegido para escrityra
15 Mayo 2014, 04:37 AM
en el caso de ubuntu eso se hace en discos y ahi dala opcion de formatear o reasignar particiones